插入查詢不工作訪問Vb.net

Question

我的代碼是

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 

用於插入表，但它無法正常工作。

我也沒有收到任何錯誤。應該是什麼問題？

Answer 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()