Remote Data Objects


Public dbRDOConnect as ADODB.connection 
Public dbRDORecordset as ADODB.recordset
Dim sConnectionStr as string
Dim sSQLQuery as string

SConnectionStr = "DSN =" & DatabaseName & ";"
                              "UID = " & UserId & ";"
                              "PWD =" & Password & ";"

Set dbRDOConnect as New RDOconnection

With dbRDOConnect
      .Cursordriver = rdUseODDC
       .Connect = sConnectionStr
       .EstablishConnection rddrivernoprompt

End With

Set sSQLQuery = ""
DbRDOrecordset.Open = dbRDOConnect.OpenRecordset(




© 2017 Better Solutions Limited. All Rights Reserved. © 2017 Better Solutions Limited

Top

PrevNext