编程开发论坛 - Powered by Discuz! Board

标题: [VB资源] vb保存到数据库出错，请大侠救救 [打印本页]

作者: xiao173612 时间: 2008-12-13 00:33 标题: vb保存到数据库出错，请大侠救救

代码如下：
Private Sub Command1_Click()
Dim connectionstring As String
Adodc1.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\khzl.mdb;Persist Security Info=False" '设置数据库路径
Adodc1.CommandType = adCmdTable '设置记录源
Adodc1.RecordSource = "select * from 客户资料表" '连接数据库的message表文件
If Command1.Caption = "添加" Then
      Command1.Caption = "保存"
      Text1.SetFocus
      Text1.Text = ""
Else
Adodc1.Recordset.AddNew '添加新纪录
Adodc1.Recordset("房间编号").Value = Text1.Text
Adodc1.Recordset.Update  '保存
Adodc1.Refresh '刷新
MsgBox "客户资料已保存至数据库！", 64, "客户资料输入"
End If
End Sub

点【添加】输入数据后，再点【保存】，出现提示，
实时错误 '-2147217842 (80040e4e)':
操作已被取消，
点调试，错误定位在Adodc1.Recordset.AddNew '添加新纪录上，
请问各位大哥，这是怎么回事啊？

作者: Nothing 时间: 2008-12-15 22:28

Adodc1.RecordSource = "客户资料表" ' 不要使用SQL语句，你那条语句是查询的，不能输入新记录

欢迎光临编程开发论坛 (http://bbs.lihuasoft.net/)