再次提出"用王国荣的资料学习用VB的RDS程序有问题"!
以下引用同我一样的123for朋友的问题,您若能帮忙,给您200分都没问题!
各位高手:
我按王国荣的《asp & web 数据库》一书写以下代码:(事先在VB6.0的工程引用中引用了RDS Service 2.1 Library 和ADOR 2.1 Library.
运行调试时总是提示"For i = 0 To rs.Fields.Count - 1
"实时错误,对象变量rs或WITH变量未设置",实际上在”set rs=rdso.Recordset"显示为"rs=nothing"和"rdso.Recordset=Nothing",原代码如下:(完全是书上的代码,不能运行)错在哪里呢?
Dim rdso As New RDS.DataControl
Dim rs As ADOR.Recordset
Private Sub Command1_Click()
driver = "driver={Microsoft Access Driver (*.mdb)}"
dbpath = ";dbq=e:\member.mdb"
rdso.Server = "http://127.0.0.1"
rdso.Connect = driver & dbpath
rdso.SQL = "select * from world"
rdso.ExecuteOptions = adcExecAsync
rdso.FetchOptions = adcFetchBackground
rdso.Refresh
Set rs = rdso.Recordset
OutputRecordset rs
End Sub
Sub OutputRecordset(rs As ADOR.Recordset)
Dim S As String
S = ""
List1.Clear
For i = 0 To rs.Fields.Count - 1
S = S & rs.Fields(i).Name & vbTab
Next
List1.AddItem S
While Not rs.EOF
S = ""
For i = 0 To rs.Fields.Count - 1
S = S & rs.Fields(i) & vbTab
Next
List1.AddItem S
rs.MoveNext
Wend
End sub