ado读取数据,问题应该不难。代码贴出来了,请大家看看那里错了

gao 2006-02-22 04:58:00
Private Sub ImgIn_Click()
On Error GoTo eRRorHandle
Dim GetRight As New ADODB.Recordset
User_Name = UserName.Text
User_Pswd = Password.Text
Dim strsql As String
strsql = "select userid from app.users where username = '" & User_Name & "' and userpassword = '" & User_Pswd & "'"
Call Dbconnection
Set GetRight = New Recordset '●●注意这里出错了。
With GetRight
Set .ActiveConnection = cnMain
.Open strsql, , adOpenDynamic, adLockOptimistic
End With
If Not GetRight.EOF() Then
If InStr(1, GetRight.Fields("Privilege").Value, RightAll) > 0 Then
Unload FirstForm
frm1.Show
Else
MsgBox "无此权限!", vbCritical, "错误提示"
End If
Else
MsgBox "用户名称或口令错!", vbCritical, "错误提示"
End If
Exit Sub
eRRorHandle:
MsgBox "与数据库的连接失败!", vbCritical, "错误提示"
End Sub


Public Sub Dbconnection()
szConn = "Provider=MSDAORA.1;Password=123123;User ID=app;Data Source=app;Persist Security Info=True"
Set cnMain = New Connection
cnMain.Open szConn
End Sub
...全文
59 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
tony62 2006-02-22
Call Dbconnection
这句没有出错吗?我觉得应该是Set cnMain = New adodb.Connection

不过也可能问题的关键不在这里,你看看工程-引用里有没有引用ado呢
再有就是楼上的同志说的在recordset前加个adodb了


还有我给你介绍个下载电子书的好地方:
http://www.netyi.net/in.asp?id=tongyanlin
回复
faysky2 2006-02-22
Set GetRight = New Recordset '●●注意这里出错了。
----------------------------------------------------------
改为
Set GetRight = New ADODB.Recordset '●●注意这里出错了。

就OK了
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2006-02-22 04:58
社区公告
暂无公告