Dim objconn As New OleDb.OleDbConnection(strconn)
Dim strsql As String
objconn.Open()
strsql = "insert into 腐蝕(ID,海域,船型,腐蝕部位,腐蝕型別,腐蝕現象,防腐措施)values(" & TextBox1.Text & ",'" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & ")"
Dim objcmd2 As New OleDbCommand(strsql, objconn)
objcmd2.ExecuteNonQuery()
objconn.Close()
MessageBox.Show("腐蝕資訊已經添加！")
Close()
uj5u.com熱心網友回復：
目測你的sql拼接有問題，比如最后漏了一個單引號。你除錯下看看
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/95276.html
上一篇：怎么用VB讀取EXCEL第二個sheet里面的資料？
下一篇：正則運算式Replace用法求教