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

原创 2005年05月31日 22:11:00
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会出问题,导致对象不能完成执行程序

J2ME 发送彩信问题,请个位高手帮忙,长时间在线等待

开发环境介绍: eclipse + wtk  问题: 将程序按照到nokia 5233的手机上后,通过程序发送彩信,彩信内容包括,图片和一段文字,发送到sony 爱立信的手机上。 1....

oracle安装,卸载,图形界面新增数据库详细步骤,以及基本小命令和遇到监听器出问题时解决方法

安装数据库: 1.解压,要先解压1,在解压2,到同一个文件。(注意顺序一定不要错)                         《是》           ...

谁知道真正高手黑客的联系方式? 求帮忙

当今的大学教务系统是否安全呢? 是否很多学生想找黑客改成绩呢? 答案很明显,没有百分百安全的系统。越安全的系统,越有人要去突破。 很多学生想找人改成绩,却又怕被骗,很多收定金的人,打着低价格进行高仿我...

高手帮忙解决一下

2011-3-20 16:33:24 org.apache.catalina.core.AprLifecycleListener init信息: Loaded APR based Apache Tom...

regedit 出问题就用 regedit.exe copy下

  • 2009年12月20日 08:22
  • 130KB
  • 下载

俄罗斯方块 最新版之音乐出问题

  • 2009年05月13日 10:36
  • 4.5MB
  • 下载

高手帮忙指指怎么改

警告: Could not create JarEntryRevision for [jar:file:/D:/apache-tomcat-7.0.2-windows-x86/apache-tomca...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:数据库出问题,高手帮忙!
举报原因:
原因补充:

(最多只允许输入30个字)