插入查询无法正常访问Vb.net

时间:2013-07-29 07:15:31

标签: vb.net ms-access access-vba

我的代码是

Dim tmpSQL_2 = New StringBuilder
        tmpSQL_2.AppendLine("Insert into table(tbl_ID,tbl_Type,tbl_Type) ")
        tmpSQL_2.AppendLine(" VALUES ")
        tmpSQL_2.AppendLine("(@tbl_ID,@tbl_Type,@tbl_Type) ")
        Using tmpCMD As New OleDbCommand(tmpSQL_2.ToString, conn)
            tmpCMD.Parameters.AddWithValue("@tbl_ID", "0")
            tmpCMD.Parameters.AddWithValue("@tbl_Type", "my type")
            tmpCMD.Parameters.AddWithValue("@tbl_Ser_Id", "my type")
            tmpCMD.ExecuteNonQuery()
        End Using

用于插入表但不起作用。

我也没有收到任何错误。应该是什么问题?

1 个答案:

答案 0 :(得分:1)

以不同的方式尝试......

Dim cmdText As String = "INSERT INTO table(tbl_ID,tbl_Type,tbl_Type) VALUES (?,?,?)"
Dim cmd As SqlCommand = New OleDBCommand(cmdText, conn)

With cmd.Parameters
    .Add("@p1", OleDbType.Integer).Value = 0
    .Add("@p2", OleDbType.VarChar).Value = "my type"
    .Add("@p3", OleDbType.VarChar).Value = "my type"       
End With
cmd.ExecuteNonQuery()