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

2006-02-22 04:58:00 138 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Beaglebone Black 利用Ubuntu上网一参考了很多人的方案，不过最后还是靠自己完成了！曲折，有时觉得自己特慢热，学东西特慢！不过最后的最后，我成功地完成了！好了，言归正传。 Beaglebone Black 本身就是一个DHCP服务器，网络地址为192.168.7.0/30, 整个网络只有192.168.7.0、192.168.7.1、192.168.7.2、192.168.7.3。其中，第一个和第四个不能用，分别是网络号阅读详情

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

...全文