NOTES VERS ACCESS URGENTTTTTTTTTT......

[Marcello]

Pourquoi Personne réponds???J´ai une vue avec 3 champs: Date; Matricule; typeCongés. Je veux exporter ses données dans une base Access. La table se nomme MVT. Je sais récuperer les données d´access vers notes avec ODBC. Par contre de ne sais pas le faire dans l´autre sens. Je ne comprend pas les exemples que je trouve. Si vous pouvez m´aider.AU SECOURSSSSS Merçi

[Stephane Maillard]

Bonjour,Option PublicUselsx "*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.disconnectEnd Sub[%sig%]

[Marcello]

J'ai récuperer déja ce code. J'ai une erreur sur:qry.SQL = "INSERT INTO " & TableName & " (ENCRYPTE,CLAIR) VALUES " & "('" & boucle & " ','BOZO1')"

[Stephane Maillard]

Bonjour,C'est sur une seul ligne :qry.SQL = "INSERT INTO " & TableName & " (ENCRYPTE,CLAIR) VALUES " & "('" & boucle & " ','BOZO1')"[%sig%]

[Marcello]

Cela ne marche toujours pas Option Public <------ erreur PUBLIC IS NOT ALLOWED IN THIS MODULEUselsx "*LSXODBC"Est il possible d'avoir des commentaires???Dim col(11) As String A quoi ça sert ?je ne comprend pas la ligne suivante...qry.SQL = "INSERT INTO " & TableName & " (ENCRYPTE,CLAIR) VALUES " & "('" & boucle & " ','BOZO1')"

[Stephane Maillard]

Bonjour,J'ai mal lu votre post, le code est en lotus script pour récupérer des données et non l'inverse.[%sig%]

[Marcello]

Merci pour les réponses