DominoArea.org [Archive]

je voudrais pouvoir faire une requete sql a partir d'un lotusscript sur une base externe (odbc)qqun aurait un bout de code qui fait, ca m'aideraitmerci d'avance

Bonjour,Voici un exemple :' ACCESS : Accès à la Base + RecupValeurs + CreationDocNotesSub Initialize Dim conn As New ODBCConnection Dim qry As New ODBCQuery Dim result 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="Clients" Dim nombre As Integer If conn.ConnectTo("TEST_ACCESS") Then Set qry.Connection = conn qry.SQL = "SELECT * FROM " & TableName & " WHERE [Code client] like 'A%' OR [Code client] like 'B%'" Set result.Query = qry Call result.Execute() columns = result.Columns Call result.lastrow DataNumResults = result.CurrentRow Call result.FirstRow For boucle= 1 To DataNumResults For k = 1 To columns col(k) = result.GetValue(k) Next Set Doc = Db.CreateDocument Doc.Form = "Formulaire" doc.table=tablename For i = 1 To columns Select Case i Case 1 : doc.col1=col(i) Case 2 : doc.col2=col(i) Case 3 : doc.col3=col(i) Case 4 : doc.col4=col(i) Case 5 : doc.col5=col(i) Case 6 : doc.col6=col(i) Case 7 : doc.col7=col(i) Case 8 : doc.col8=col(i) Case 9 : doc.col9=col(i) Case 10 : doc.col10=col(i) Case 11 : doc.col11=col(i) End Select Next Call Doc.ComputeWithForm(True,True) Call Doc.Save(True,False,False) Call result.NextRow() Next Else Messagebox("Impossible de se connecter au serveur") End If Call result.close(DB_Close) Call conn.disconnectEnd SubNe pas oublier de déclarer dans événement : (Options) de l'agent pour que cela fonctionne : Option PublicUselsx "*LSXODBC"[%sig%]

Question:pour que cette procedure fonctionne doit on céer en amont un masque correspondant au champ de la table importé?

Bonjour,Oui. J'ai créé un masque qui s'appel Formulaire avec des champs Colx[%sig%]