A l AIDE

[Alice]

Voici mon code : Kelk´un pourrait me dire comment créer un tableau a plusieurs dimensions pour ke je puisse y insérer des lignes(enregistrement) avec plusieurs colonnes(IdGroupe, Nom, Adresse...). Merci d´avance pour votre aide Sub Click(Source As Button) Dim item As notesitem Dim con As New ODBCConnection Dim session As New NotesSession Dim result As New ODBCResultSet Dim db As NotesDatabase Dim qry As New ODBCQuery Dim client As String Dim msg As String Dim doc As notesdocument Dim uidoc As notesuidocument Dim w As notesuiworkspace Set w=New notesuiworkspace Set uidoc=w.currentdocument Set doc = uidoc.document Set db = session.CurrentDatabase Set qry.Connection = con Set result.Query = qry con.ConnectTo("DsnGroupes") qry.SQL = "SELECT distinct(Idgroupe), Nom FROM Groupe " result.Execute msg = "Student names:" & Chr(10) result.Lastrow Redim array(result.NumRows-1) Do For i = 1 To result.NumRows result.CurrentRow = i array(i-1) = result.GetValue("Idgroupe", Idgroupe) Next doc.arrayy = array Call uidoc.refresh result.NextRow msg = IdGroupe & " " & Nom Messagebox msg Loop Until result.IsEndOfData result.Close(DB_CLOSE) con.Disconnect End Sub top

[Droad]

Par exemple: Dim con As New ODBCConnection Dim result As New ODBCResultSet Dim i As Long Set qry.Connection = con Set result.Query = qry con.ConnectTo("NPDB") qry.SQL = "SELECT id_doc, creator, date_creation FROM document" result.Execute If result.IsResultSetAvailable Then result.Lastrow Redim array(result.NumRows-1, 2) For i = 1 To result.NumRows result.CurrentRow = i array(i-1, 0) = result.GetValue("id_doc") array(i-1, 1) = result.GetValue("creator") array(i-1, 2) = result.GetValue("date_creation") Next result.Close(DB_CLOSE) End If con.Disconnect[%sig%]

[oguruma]

j'arrive après la fête...bon,de manière généraletableaux de chainesdim myArray(4,5) as string==> tableau à 5 lignes et 6 colonnes (0 compte pour une indice sauf si tu as mis option base 1 ; par défaut c'est option base 0)dim myArrayInt(10,5) as integertu peux aussi créer des tableaux sur des objets Notesdim myArrayCollection(10) as NotesDocumentCollectiondes tableaux comme on fait en java le "hashtable"dim myListTable List as stringtableau de structure dynamiquedim myArrayDynam as variant......redim myArrayDynam(10,5)tu peux augmenter la taille en gardant son contenu parredim preserve myArrayDynam(15,20)tu as aussi Lbound(myArray) et UBound(myArray) pour connâître les bornes inférieures et supérieurestu peux aussi faire des tableaux en 3 dim...dim myTroisDim(10,5,3) as stringliste avec 3 boucles imbriquéesfor i=0 to 10for j=0 to 5for k=0 to 3myTroisDim(i,j,k)="-LOW VALUE-"next knext jnext i