VB.NET向access数据库插入数据出错

podongxi100 2008-06-22 04:41:22
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
插入的数据类型都是文本的
...全文
94 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
podongxi100 2008-06-22
  • 打赏
  • 举报
回复
没有什么错误,就是不能插入数据,cmd.ExecuteNonQuery()执行完了以后直接跳到了 Catch exp,该怎么改啊
chamme 2008-06-22
  • 打赏
  • 举报
回复
不要用 " + " 用 " & "
ymx1121 2008-06-22
  • 打赏
  • 举报
回复
[Quote=引用 2 楼 amandag 的回复:]
sql = " INSERT INTO [user] ( userid, username, userpw , userstyle ) VALUES ('" + userID.Text + "','" + username.Text + "','" + userPW.Text + "','" + ComboBox1.Text + "')"

user是sql的关键字,请加[]
[/Quote]

楼主正解!
amandag 2008-06-22
  • 打赏
  • 举报
回复
sql = " INSERT INTO [user] ( userid, username, userpw , userstyle ) VALUES ('" + userID.Text + "','" + username.Text + "','" + userPW.Text + "','" + ComboBox1.Text + "')"

user是sql的关键字,请加[]
fairy4 2008-06-22
  • 打赏
  • 举报
回复
不用try,看输出什么错误!!!!!!!!

16,717

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧