ADO et Msflexgrid

Question

Bonjour j'utilise une connection ADO et  j'aimerais savoir comment faire pour lier une requête sql à une grid?? j'ai un msg d'erreur du type "ereur microsoft ODBC nom de fichier ou de pilote introuvable..." quand j'utilise  un control data.
quels composants à utiliser?y a t-il des références à rajouter en + de microsoft ADO library 2.5?
please help me!!

cs_vish · Answer

quelle est la base que tu utilises?
peux tu m'envoyer ton code
-pour la connection
-pour la requete 

merci

FloFlo78 · Answer

c'est une base access 2000, voilà le code:

Dim gConnect As New ADODB.Connection
Dim Rec1 As Recordset
Dim Rec2 As Recordset
Dim tmpsql As String
Dim Ident As String
Dim Provider As String
Dim Connexion As String
Dim Connectdb As Boolean

'********Connexion au Fichier Access********
Provider = "Microsoft.Jet.OLEDB.4.0"
Connexion = "C:\destinataire.mdb"

'*******Connexion à la base de données*********
Connectdb = True
With gConnect
    .Provider = Provider
    .ConnectionString = Connexion
    .CommandTimeout = 6
    .CommandTimeout = 60
    .Open
End With

j'ai trouvé le composant Adodc pour afficher ma requête ds une grid mais par contre je définit la connexion ds le form load et sur chaque bouton de cmd je suis obligé de la redéfinir comment je dois faire pr déclarer ma connexion qu'une seul fois??
merci

cs_vish · Answer

c 'est simple du écris ta procédure de connection dans un module puis apres tu peux faie appelle a cette procedure une  fois comme tu peux le faire 50 fois 
ex
Option Explicit
Public cn As ADODB.connection

Public Sub connection()
    Set cn = New ADODB.connection
          
    'récupère le chemin d'accès à la base de donnée dans la base de registre
    On Error GoTo errFind
    With cn
         .ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID= Alerte; Password= ;Initial Catalog=xxxxx;Data Source=xxxxxxxx"
         .Open
     End With

    Exit Sub
errFind:
    MsgBox "Erreur " & Err.Number & Chr(13) & Err.Description & Chr(13) & Err.Source
    MsgBox "Impossible to connect to database SQL SERVER 2000 ", vbExclamation, "Error"
    End
End Sub

apres dans le load de ta form  tu écris 
connection
voila

FloFlo78 · Answer

je te remercie pour ton aide.serait tu comment utiliser le control data version ADO??(Adodc)j'arrive pas à le paramétrer par le code,je suis obligé de le faire dans la fenêtre propriété de l'objet et c'est très pénible car je suis obligé de rusé avec l'affichage du grid(aucune colonne visible jusqu'à ce qu'une autre requête soit lancée).est-ce que tu sais ou je pourrais un peu de doc sur l'ADO et l'utilisation de ses composants?
merci Vish

ADO et Msflexgrid

4 réponses

Discussions similaires