定义变量
public withevents rdso as rds.datacontrol
dim rs as adodb.recordest
建立RDS对象
private sub form_load()
set rdso= new rds.datacontrol
end sub
打开RDS
private open()
rdso.server="http://127.0.0.1"
rdso.connect="procider=microsoft.jet.oledb.3.51;"&_
"data source=c:/mdb/1.mdb"
rdso.sql="select * from book"
rdso.executeoptions=adcexecasync
rdso.fetchoptions=adcfetcbackground
rdso.refresh
end sub
检查RDS
private sub rdso_onreadystatechange()
if ...
set rs= rdso.recorset
...
end sub
以上是用vb编写的代码,如果用DELPHI应该如何编写??
stevensoft@163.net