VB.NET向access数据库插入数据出错
Dim conn As OleDbConnection
Dim sql As String
Dim rs As New DataSet()
Dim cmd As OleDbCommand
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Trim(userID.Text) <> "" Then
sql = " INSERT INTO user ( userid, username, userpw , userstyle ) VALUES ('" + userID.Text + "','" + username.Text + "','" + userPW.Text + "','" + ComboBox1.Text + "')"
cmd = New OleDbCommand(sql, conn)
Dim exp As Exception
Try
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
MessageBox.Show("添加记录成功")
Catch exp
MessageBox.Show("发生错误,没有正常添加记录")
End Try
End If
Call binddata()
End Sub
插入的数据类型都是文本的