ADO m'éclairer...

Question

Salut...


J'ai downloader un petit programme sur le site et j'ai fais quelque modification pour le faire fonctionner avec ma BD.

Voici mon Code


'D&#233;claration des deux variables pour la connexion
Dim Connection As New ADODB.Connection
Dim MonRs As New ADODB.Recordset


Private Sub Form_Load()
    
    'Type de bases de donn&#233;e pour la connexion
    Connection.Provider = "Microsoft.jet.OLEDB.4.0"
    'Chemin de la base de donn&#233;e (APP.PATH permet de ce mettre dans le chemin
    'courant la ou ce trouve le projet)
    Connection.ConnectionString = "m:\Dossier_Actif.mdb"
    'Ouverture de la connection
    Connection.Open
    'Ouverture de la requ&#234;te sql dans le recordset
    MonRs.Open "Select * from DOSSIERS_ACTIF", Connection, adOpenDynamic, adLockOptimistic
    
End Sub


Mon programme plante &#224; la derni&#232;re ligne soit :
MonRs.Open "Select * from DOSSIERS_ACTIF", Connection, adOpenDynamic, adLockOptimistic


J'aurais besoin d'&#234;tre &#233;clairer un peu &#224; propose de cette ligne. Quoi fais quoi, bon je saisi quelques &#233;l&#233;ments mais ca plante et je vois pas pk ???


De plus dans le code que j'ai downloader, la personne utilise cette ligne:
Connection.Provider = "Microsoft.jet.OLEDB.4.0"


Si j'utilise Accesse 2000 est ce que je suis ok de garder cette ligne ??? Car je ne saisi pas trop cette ligne de code.

Merci d'avance

mad_kad · Answer

Tiens un exemple qui marche, &#231;a pourrais bien aider :

Public basecourante As String 'le chemin de la base de donn&#233;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&#233;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

philoo91 · Answer

Regarde si d&#233;j&#224; tu es connect&#233; &#224; ta base :

place le msgbox qui suit juste avant l'instruction qui plante

msgbox Connection.state 

si  tu as un z&#233;ro c'est pas bon ta base n'est pas ouverte 



Si tu as 1 regarde si tu ne t'ai pas gauffr&#233; dans la requette sql

 (ex 
DOSSIERS_ACTIF le nom de la table est bien orthographi&#233; ? la table existe)

ADO m'éclairer...

2 réponses

Discussions similaires