Question

我有两个表，表单包含一个文本框，所以我需要将表1的行添加到表2中，并将每行的文本框中的值添加到表2中。

我有插入语法，但需要修改：

INSERT INTO table2(column3,column4) 
SELECT column1 + @parameter 
FROM table1 
WHERE column2=true

table1：column1 column2

table2：column3 column4

Form1：它有textbox1

完整代码：

Dim con As New OleDbConnection
Dim cmd As New OleDbCommand
Try
    con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\DellXPS\Desktop\mDB.accdb"

    con.Open()
    cmd.Connection = con
    cmd.CommandText = "INSERT INTO table2(column3,column4) SELECT column1 + @parameter FROM table1 WHERE column2=true"

    cmd.Parameters.Add("@parameter",  OleDbType.VarChar).Value = TextBox1.Text
    cmd.ExecuteNonQuery()
Catch ex As Exception
    MessageBox.Show("Error while inserting record on table..." & ex.Message, "Insert Records")
Finally
    con.Close()
End Try

我认为插入语法错误，跳到纠正

Answer 1

使用以下代码在命令中添加带有值的参数：

cmd.Parameters.AddWithValue("@parameter",TextBox1.Text);

如何在vb.net代码中添加参数以插入命令

1 个答案: