数据库出问题,高手帮忙!

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会出问题,导致对象不能完成执行程序
阅读更多
想对作者说点什么? 我来说一句

hookSocket问题程序

2009年04月06日 265KB 下载

代码和问题图解

2007年11月28日 106KB 下载

数据库课程设计 求高手帮忙

2013年06月05日 100KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭