Article ID: 176874
Article Last Modified on 3/14/2005
184265 How To Distribute ADO with the Application Setup Wizard
Private Sub Command1_Click()
'DataControl
MousePointer = vbArrowHourglass
Dim dc As New RDS.DataControl
dc.Connect = "dsn=pubs;Username=<username>;PWD=<strong password>;" 'dsn should be a system dsn
dc.SQL = "select * from authors"
dc.Server = "http://ServerXXXX"
dc.ExecuteOptions = adcExecAsync
dc.Refresh
While dc.ReadyState = 2
DoEvents 'user has control during async query
Wend
MousePointer = vbDefault
MsgBox dc.Recordset.Fields(0).Value
End Sub
Private Sub Command2_Click()
'DataSpace, DataFactory
MousePointer = vbArrowHourglass
Dim ds As New RDS.DataSpace
Dim df, rs
Set df = ds.CreateObject("RDSServer.DataFactory",
"http://ServerXXXX")
Set rs = df.Query("dsn=pubs;Username=<username>;PWD=<strong password>;", "select * from authors")
MsgBox rs.Fields(0).Value
MousePointer = vbDefault
End Sub
184265 How To Distribute ADO with the Application Setup Wizard
191704 PRB: Unable to Load File to Register It During Setup
Keywords: kbhowto kbdatabase KB176874