帮我看看
yzh 2000-03-25 10:35:00 初学VB,请大家帮我看看这段代码!
Private Sub Command1_Click()
Dim rs As Recordset
Screen.MousePointer = vbHourglass
Set rdc = New RDS.DataControl
rdc.ExecuteOptions = adcExecAsync
rdc.SQL = "SELECT * FROM Authors"
rdc.Connect = "DSN=mydsn"
rdc.Server = "http://localhost/"
rdc.Refresh
Set rs = rdc.Recordset
While rdc.ReadyState = adcReadyStateLoaded
DoEvents
Wend
If rs.EOF And rs.BOF Then
MsgBox ("对不起,数据库中没有记录!")
Else
Do Until rs.EOF
List1.AddItem rs.Fields("Author")
rs.MoveNext
Loop
End If
Set rdc = Nothing
Screen.MousePointer = vbNormal
End Sub
运行错误:实时错误'91'
对象变量或with块变量未设置
我的系统是win2000 server
vb 6.0 中文版
在odbc中设系统dsn=mydsn
引用
ADOR
RDS