Es un ejemplo para conectarse desde lotus notes a access utilizando ODBC
Sub Initialize
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim msg As String
Dim m2 As String
con.ConnectTo("ATDB")
If Not con.IsConnected Then
Messagebox "Could not connect to ATDB",, "No connection"
Exit Sub
End If
Set qry.Connection = con
Set result.Query = qry
qry.SQL = "SELECT * FROM STUDENTS ORDER BY LASTNAME"
result.Execute
If Not result.IsResultSetAvailable Then
Messagebox "Couldn't get result set",, "No data"
Exit Sub
End If
msg = "Fields in STUDENTS table:" & Chr(10)
For i = 1 To result.NumColumns
'aqui nuestros campos serian algo asi
' firstName = result.GetValue("FIRSTNAME", firstName)
fieldInfo = result.FieldInfo(i)
If fieldInfo(DB_INFO_READONLY) = DB_READONLY Then
m2 = "read-only"
Else
m2 = "read-write"
End If
msg = msg & Chr(10) & _
i & " -> " & _
result.FieldName(i) & ", " & _
"size " & " " & result.FieldSize(i) & ", " & _
m2
Next
Messagebox msg,, "Fields"
result.Close(DB_CLOSE)
con.Disconnect
End Sub
|
Otros documentos de LotusScript
|