使用VB.NET Windows窗体更新MS Access数据库 [英] Using VB.NET Windows Form to update MS Access database

问题描述

我有一个简单的Access数据库，想要使用VB.NET窗体来更新tbl数据。我一直收到错误，即cmd.ExecuteNonQuery（）无法执行。

这是代码。任何想法？

 受保护的子按钮1_Click（ByVal发送者作为对象，ByVal e As System.EventArgs）处理Button1.Click



  ;       Dim strConnectionString =" Provider = Microsoft.Jet.OLEDB.4.0; Data Source = {My Database} .mdb; Persist Security Info = False"

        Dim cnnOLEDB As New OleDbConnection（strConnectionString）

        Dim cmdOLEDB As New OleDbCommand

        Dim cmdInsert As New OleDbCommand

        Dim cmdUpdate As New OleDbCommand

        Dim cmdDelete As New OleDbCommand

        Dim InsertQuery As String



        cnnOLEDB.Open（）

       

        InsertQuery =" INSERT tblItem SET（Indate，StkLoc，UPC，Desc，SN，Cond，RetPrice，Cost）VALUES（@ Inndate，@ StkLoc，@ UPC，@ Desc，@ SN，@ Cant，@ RetPrice，@ Cost） WHERE Item=@TextBox2.Text）"

        Dim cmd As OleDbCommand = New OleDbCommand（InsertQuery，cnnOLEDB）



        cmd.Parameters.AddWithValue（" @ InDate"，TextBox1.Text）

        cmd.Parameters.AddWithValue（" @ Item"，TextBox2.Text）

        cmd.Parameters.AddWithValue（" @ StkLoc"，TextBox3.Text）

        cmd.Parameters.AddWithValue（" @ UPC"，TextBox9.Text）

        cmd.Parameters.AddWithValue（" @ Desc"，TextBox4.Text）

        cmd.Parameters.AddWithValue（" @ SN"，TextBox5.Text）

        cmd.Parameters.AddWithValue（" @ Cond"，TextBox6.Text）

        cmd.Parameters.AddWithValue（" @ RetPrice"，TextBox7.Text）

        cmd.Parameters.AddWithValue（" @ Cost"，TextBox8.Text）



        cmd.ExecuteNonQuery（）



        cnnOLEDB.Close（）



        MessageBox.Show（" Item Update Complete。）



        Me.Close（）

解决方案

你需要< a href ="https://msdn.microsoft.com/en-us/library/bb208861%28v=office.12%29.aspx?f=255&MSPPError=-2147217396">
INSERT INTO 而不是简单地在CommandText中插入。

I have a simple Access database and want to use VB.NET windows form to update tbl data. I keep getting an error that cmd.ExecuteNonQuery() can not be executed.

Here is the code. Any ideas?

 Protected Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source={My Database}.mdb;Persist Security Info=False"
        Dim cnnOLEDB As New OleDbConnection(strConnectionString)
        Dim cmdOLEDB As New OleDbCommand
        Dim cmdInsert As New OleDbCommand
        Dim cmdUpdate As New OleDbCommand
        Dim cmdDelete As New OleDbCommand
        Dim InsertQuery As String

        cnnOLEDB.Open()
       
        InsertQuery = "INSERT tblItem SET (Indate, StkLoc ,UPC,Desc, SN, Cond, RetPrice, Cost) VALUES (@Indate, @StkLoc , @UPC, @Desc, @SN, @Cond, @RetPrice, @Cost)WHERE Item=@TextBox2.Text)"
        Dim cmd As OleDbCommand = New OleDbCommand(InsertQuery, cnnOLEDB)

        cmd.Parameters.AddWithValue("@InDate", TextBox1.Text)
        cmd.Parameters.AddWithValue("@Item", TextBox2.Text)
        cmd.Parameters.AddWithValue("@StkLoc", TextBox3.Text)
        cmd.Parameters.AddWithValue("@UPC", TextBox9.Text)
        cmd.Parameters.AddWithValue("@Desc", TextBox4.Text)
        cmd.Parameters.AddWithValue("@SN", TextBox5.Text)
        cmd.Parameters.AddWithValue("@Cond", TextBox6.Text)
        cmd.Parameters.AddWithValue("@RetPrice", TextBox7.Text)
        cmd.Parameters.AddWithValue("@Cost", TextBox8.Text)

        cmd.ExecuteNonQuery()

        cnnOLEDB.Close()

        MessageBox.Show("Item Update Complete.")

        Me.Close()

解决方案

You need INSERT INTO rather than simply INSERT in the CommandText.

这篇关于使用VB.NET Windows窗体更新MS Access数据库的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！