I usually use the following API to connect to interbase database.
Public Declare Function GetEnvironmentVariable Lib "kernel32" _
Alias "GetEnvironmentVariableA" (ByVal lpName As String, _
ByVal lpBuffer As String, _
ByVal nSize As Long) As Long
Private sub GetData()
' Database environment variables
Dim iapDbase As String * 64
Dim retVal As Long
' database connection variables
Dim objConn As New ADODB.Connection
Dim objRS As New ADODB.Recordset
' Get environment variable: IAP_DATABASE
retVal = GetEnvironmentVariable("IAP_DATABASE", iapDbase, 64)
iapDbase = Left$(iapDbase, retVal)
' Create and open data connection using ADO
objConn.Open "Provider=ISG OLE DB DbS Provider;Data Source=" & Trim(iapDbase) & ";"
objRS.Open "Select * from Patient", objConn, adOpenForwardOnly, adLockReadOnly
'... all other code
End Sub
Cheers,
-Ned
|