请老师帮看一下insert into 报错。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
If 班组TextBox.Text = "" Or 姓名TextBox.Text = "" Or 岗位ComboBox.Text = "" Or 性别ComboBox.Text = "" Or 工种ComboBox.Text = "" Or 等级证书ComboBox.Text = "" Then
MsgBox("请输入姓名、班组、岗位、性别、工种、等级证书！")
Exit Sub
Else
Dim connectionstring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database4.accdb;Persist Security Info=True;Jet OLEDB:Database Password=winamw"
Dim querystring As String = "insert into 三分队(班组，姓名，岗位，性别，工种，政治面貌，电话，职位，参加工作时间，等级证书，出生日期） values('" & 班组TextBox.Text & "','" & 姓名TextBox.Text & "','" & 岗位ComboBox.Text & "','" & 性别ComboBox.Text & "','" & 工种ComboBox.Text & "','" & 政治面貌ComboBox.Text & "','" & 电话TextBox.Text & "','" & 职位ComboBox.Text & "','" & 参加工作时间DateTimePicker.Text & "','" & 等级证书ComboBox.Text & "','" & 出生日期DateTimePicker.Text & "')"
Using connection As New OleDb.OleDbConnection(connectionstring)
connection.Open()
Dim command As New OleDb.OleDbCommand(querystring, connection)
command.ExecuteNonQuery()
End Using
MsgBox("添加人员信息完成！")
Me.Close()
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
[解决办法]
试试：
Dim querystring As String = "insert into 三分队(班组，姓名，岗位，性别，工种，政治面貌，电话，职位，参加工作时间，等级证书，出生日期） values('" & 班组TextBox.Text & "','" & 姓名TextBox.Text & "','" & 岗位ComboBox.Text & "','" & 性别ComboBox.Text & "','" & 工种ComboBox.Text & "','" & 政治面貌ComboBox.Text & "','" & 电话TextBox.Text & "','" & 职位ComboBox.Text & "',#" & cdate(参加工作时间DateTimePicker.Text) & "#,'" & 等级证书ComboBox.Text & "',#" & cdate(出生日期DateTimePicker.Text) & "#)"
插入的数据类型要与数据库字段类型匹配。
如果是数字类型要转换成数字，如：
'" & Val(TextBox10.Text) & "'
