Fetching data from Microsoft Access

HCL Domino Domino Forum
1

Hi allI am trying to fetch data from a microsoft Access Database.The database is not to big and embedded in rich text field of a document in another lotus notes database.

Can this be accomplished with the OLE class because i cannot build up a ODBC connection on server…?

Any ideas…?

2

Subject: Fetching data from Microsoft Access

this should get you on right track , i hope

Sub Postopen(Source As Notesuidocument)

Dim con As New ODBCConnection

Dim query As New ODBCQuery

Dim result As New ODBCResultSet

Dim rma As String	

Set query.Connection = con

Set result.Query = query



con.ConnectTo("RMA")



If con.IsConnected = True Then

	Print "Connected to: " con.DataSourceName

	query.SQL = "SELECT * FROM Tabla1"

	result.Execute

	result.FirstRow

	

	rma = result.GetValue("RMANUM")

	Call Source.FieldSetText("RMA", rma)

Else

	Print "Connected to:" con.DataSourceName

End If



con.Disconnect

End Sub