access中一个简单的查询数据库出错了（窗体vba），帮忙修正下

显示全部楼层 · 2011-9-3 10:53:16

代码：OptionCompareDatabasePrivateSubCommand0_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringSetcn=CurrentProject.ConnectionIfIsNull(w_id)AndIsNull(w_yhm)AndIsNull(w_ye)ThenMsgBox\"您确定要输出全部表单吗？\",vbOKOnly,\"提示\"Elsesql=\"select*From客户whereid=defds123w_idyhm=defds123w_yhmje=defds123w_ye\"\"\"rs.Opensql,cn,adOpenDynamic,adLockBatchOptimistic,adCmdTextIfNotrs.EOFThenList11=rsElseMsgBox\"没有记录\",vbOKOnlyvbInformation,\"提示\"w_id=\"\"EndIfEndIfrs.Closecn.CloseSetrs=NothingSetcn=NothingEndSub小弟今天刚学，可能有很多错误，劳烦大家修改下

千问 · 2011-9-3 10:53:16

这么多等于也要用逗号分隔一下啊刚才随便打了下，想想不太对，应该用or、and、not等关键字进行分隔。Sql=\"select*From客户whereid=\"defds123w_iddefds123\"andyhm=\"defds123w_yhmdefds123\"andje=\"defds123w_ye追问还是不对呀~~~一样的错误高亮提示在sql下面一行：rs.Opensql,cn,adOpenDynamic,adLockBatchOptimistic,adCmdText但是如果我全部放空点确定的话错误提示是：运行时错误\'3704’对象关闭时，不允许操作高亮提示在rs.Close顺便问下List11=rs这行有没有错，自己乱写的，不知道对不对（List11是列表框）

千问 · 2011-9-3 10:53:16

原来只看了图片，说了几句再看程序，应该有很多错。定义：DimcnAsNewADODB.ConnectionDimrsAsNewADODB.Recordset多了一个New吧。程序在打开数据库前再设置参数：Setcn=NewADODB.ConnectionSetrs=NewADODB.Recordset应该用：cn.open连接字符串先打开数据库，连接字符串应包含数据库的IP地址，数据源，用户名，密码等相关参数。打开数据库后才能用：rs.opensql,cn,1,1进行查询。比较乱，汗

千问 · 2011-9-3 10:53:16

连接数据库要怎么写还是不懂~~~~写个完整的来看下数据库就是本窗体在的文件，表名“客户”，用户名密码没改过，应该是“admin”和空密码小弟很早前学过一点JAVA，这两天急用access，昨天刚学的vb，有点晕乎感激不尽~~~