Notes Access connectivity

The following block of code is used to populate a Notes view with values from MS Access.

Before that include this in the options section

Uselsx "*LSXODBC"

Code

Dim session As   notessession
Dim database As notesdatabase
Dim view As notesview
Dim doc As notesdocument
  Set view=database.getview("viewname")
	Dim connection As ODBCConnection
	Dim query As ODBCQuery
	Dim result As ODBCResultSet
	
	Set session = New notessession
	Set database = session.currentdatabase	
	Set doc = session.documentcontext
	Set connection = New ODBCConnection
	Set query = New ODBCQuery
	Set result = New ODBCResultSet
	Set query.Connection = connection
	Set result.Query = query
	Call 	connection.ConnectTo("DSNname","","")
	i% = 0
	temp$ = "Select * from  table1"
	
	query.SQL = temp$
	If Not result.Execute Then
		Print result.GetExtendedErrorMessage,, result.GetErrorMessage	
		
	Else	
		result.firstrow
		Do
			
			
			Set doc = database.createdocument
			doc.form = ' Form Name
			doc.fldname = result.GetValue(2)
			
			doc.fldname= result.GetValue(3)			
			Call doc.save(True,True)			
			
			
			result.NextRow
		Loop Until result.IsEndOfData
	end if