Dim db1 As Database Dim db As ADODB.Connection Dim rs As Recordset Dim sqlstr As String Private Sub Command1_Click() systemname = systemnm.Text systempassword = systempd.Text systemmoney = systemmoney1.Text responsetimes = responsetime.Text If systemname <> "" And systempassword <> "" And systemmoney <> "" Then If (rs.RecordCount = -1) Then rs.AddNew rs.Fields("系统名称") = systemname rs.Fields("系统密码") = systempassword rs.Fields("初始金额") = systemmoney rs.Fields("响应时间") = responsetimes rs.Update Else rs.Delete rs.AddNew rs.Fields("系统名称") = systemname rs.Fields("系统密码") = systempassword rs.Fields("初始金额") = systemmoney rs.Fields("响应时间") = responsetimes rs.Update MsgBox ("系统初始设置成功!") End If Else MsgBox ("请填写好完整信息") End If End Sub Private Sub Text3_Change() End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() Set db = New ADODB.Connection db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "/Database/Car.mdb" + ";Persist Security Info=False" Set rs = New ADODB.Recordset rs.ActiveConnection = db rs.Open ("select * from Csh") systemnm.Text = "" systempd.Text = "" systemmoney1.Text = "" responsetime.Text = "" End Sub 我是菜鸟拉,为何我的rs.addnew和rs.delete会出问题,导致对象不能完成执行程序
数据库出问题,高手帮忙!
最新推荐文章于 2023-05-24 10:52:08 发布