0/5 (6 avis)
Snippet vu 6 962 fois - Téléchargée 47 fois
'dans un module Public basecourante As String 'le chemin de la base de données Public Cx As ADODB.Connection 'acces a la base Public rs_jeu1 As ADODB.Recordset 'pour operer sur la base Public sql_requete1 as string 'requete sql 'on peut initialiser les requetes dans le module ou dans le code des form 'init du chemin la base basecourante = App.Path & "\bases\video1.mdb" 'init de la connexion et ouverture (regardez dans msdn pour les options précises) Set Cx = New ADODB.Connection Cx.Mode = adModeReadWrite Cx.Provider = "Microsoft.jet.OLEDB.4.0" Cx.Open basecourante 'init du recordset Set rs_jeu1 = New ADODB.Recordset rs_jeu.CursorLocation = adUseClient 'init de la requete SQL sql_requete1 = "SELECT * From table1 ORDER BY table1.champ1;" 'ensuite, quelque part dans le code avec disons une list Private Sub Form_Load() 'on ouvre le recodset 'et on remplit la liste rs_jeu1.Open sql_requete1, Cx, adOpenForwardOnly, adLockOptimistic rs_jeu1.Properties.Refresh Me.liste1.AddItem "" While (Not rs_jeu1.EOF) liste1.AddItem rs_jeu1.Fields(0) 'je prend juste le premier champ rs_jeu1.MoveNext Wend rs_genres.Close End Sub
24 févr. 2005 à 09:05
Ca c'est du code utile !!
++
1 juil. 2004 à 11:45
Merci
9 avril 2003 à 13:56
La function "Set" genere une erreur lorsque celle ci ne se trouve pas dans une procédure:
Message: "Erreur de compilation Incorrect à l'exterieur d'une procédure".
Quelqu'un saurait comment résoudre ce problème?
Merci
17 févr. 2003 à 11:32
7 avril 2002 à 06:01
Merci pour l'exemple
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.