标题:[求助]自动化错误
只看楼主
紫色青烟
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2007-9-13
 问题点数:0 回复次数:5 
[求助]自动化错误
If rs1.Fields("use_name") = Text1.Text And rs1.Fields("use_password") = Text2.Text And rs1.Fields("use_power") = Combo1.Text Then
当运行至此,提示自动化错误
代码为
rs.Open "select * from use ", cn, adOpenKeyset, adLockPessimistic
If rs.RecordCount > 0 Then
If Text1.Text <> "" And Text2.Text <> "" Then
Set rs1 = New ADODB.Recordset
rs1.Open "select * from use where use_name='" & Text1.Text & " and use_power= " & Combo1.Text & "'", cn, adOpenKeyset, adLockPessimistic
If rs1.Fields("use_name") = Text1.Text And rs1.Fields("use_password") = Text2.Text And rs1.Fields("use_power") = Combo1.Text Then
请问大虾们红色字该怎么改呀
搜索更多相关主题的帖子: 自动化 
2007-10-02 14:25
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 

rs1 open的时候单引号不够..


我的msn: myfend@
2007-10-02 14:30
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
得分:0 
2楼正解。
2007-10-02 14:51
紫色青烟
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2007-9-13
得分:0 
朋友们
我已经解决了这个问题,不是红色字出的问题
是SELECT语句错问题了
不过还是要谢谢你们!
2007-10-02 15:28
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
得分:0 
2楼说的就是select出错。
2007-10-02 15:38
缘吇弹
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:地球
等 级:版主
威 望:43
帖 子:3038
专家分:27
注 册:2007-7-2
得分:0 
呵呵,自己找出错误是最好的.

Repeat  Life=Study;Until (death);
2007-10-02 15:39



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-174634-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.343012 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved