Bonjour,
Plusieurs solutions, soit faire une vue dans la base Lotus avec les infos que tu veux et faire un export en Excel ou Fichier et récupèrer ton fichier dans Access.
Autrement utilisé les connexion de type ODBC, un petit exemple =>
Option Public
Uselsx "*LSXODBC"
Sub Initialize
Dim conn As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim Result1 As New ODBCResultSet
Dim doc As NotesDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Set db=Session.CurrentDatabase
Dim col(11) As String
Dim TableName As String
TableName="Hack"
Dim nombre As Integer
If conn.ConnectTo("TestHack") Then
Set qry.Connection = conn
For boucle = 1 To 10
qry.SQL = "INSERT INTO " & TableName & " (ENCRYPTE,CLAIR) VALUES
" & "('" & boucle & " ','BOZO1')"
Set result1.Query = qry
Call result1.Execute()
Next
Else
Messagebox("Impossible de se connecter au serveur")
End If
Call result.close(DB_Close)
Call conn.disconnect
End Sub
Cordialement
Stéphane Maillard
http://www.dominoarea.org
Bonjour,
Plusieurs solutions, soit faire une vue dans la base Lotus avec les infos que tu veux et faire un export en Excel ou Fichier et récupèrer ton fichier dans Access.
Autrement utilisé les connexion de type ODBC, un petit exemple =>
Option Public Uselsx "*LSXODBC" Sub Initialize Dim conn As New ODBCConnection Dim qry As New ODBCQuery Dim result As New ODBCResultSet Dim Result1 As New ODBCResultSet Dim doc As NotesDocument Dim session As New NotesSession Dim db As NotesDatabase Set db=Session.CurrentDatabase Dim col(11) As String Dim TableName As String TableName="Hack" Dim nombre As Integer If conn.ConnectTo("TestHack") Then Set qry.Connection = conn For boucle = 1 To 10 qry.SQL = "INSERT INTO " & TableName & " (ENCRYPTE,CLAIR) VALUES " & "('" & boucle & " ','BOZO1')" Set result1.Query = qry Call result1.Execute() Next Else Messagebox("Impossible de se connecter au serveur") End If Call result.close(DB_Close) Call conn.disconnect End SubCordialement
Stéphane Maillard
http://www.dominoarea.org