DominoArea.org [Archive]

[syntax="ls"]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[/syntax]Ne pas oublier de déclarer dans événement : (Options) de l'agent pour que cela fonctionne : Option Public Uselsx "*LSXODBC