j'ai une erreur de compil sur la fonction SQLOpen. 'sub ou fonction non définie'
j'ai essayer le mettre dans outils --> référence les biliotheques:
'Microsoft ActiveX data Objet' mais il y en a plusieurs. je crois les avoir toutes essyé, mais le problème résiste.
quelqu'un sait il si cette fonction SQLOpen est bien lié aux bibliothèques 'Microsoft ActiveX data Objet' ?
Est il possible que je ne dispose pas de la .dll ou .ocx correspondant et que la boite de dialogue 'référence' me propose de pointer sur la bibliothèque quand même?
Il nous faudrait un exemple en PJ pour t'aider plus. Mais je pense comme à priori que tu n'as pas déclaré correctement une variable ou un truc de ce genre.
Enfin à titre d'information voila comment je me connecte à une base MySQL en ADO :
Code:
Option Private Module
Public Connection_Base As New ADODB.Connection
Public Function Connection()
Dim strSource As String
' .State=0 càd non connecté
' .State=1 càd CONNECTé
If Connection_Base.State = 0 Then
Connection_Base.ConnectionString = 'DRIVER={MySQL ODBC 3.51 Driver};' & _
' SERVER=Dudul; DATABASE=test;' & _
' UID=rwsuivi;PWD=rwsuivi;' & _
'OPTION=16427'
Connection_Base.Open
End If
End Function
et je l'appelle comme cela :
Code:
Dim Rst_Temp As New ADODB.Recordset
Dim sSQL As String
Set Rst_Temp = Nothing
Call Connection
sSQL = 'REQUETE SQL'
With Rst_Temp
.CursorLocation = adUseClient
.Open sSQL, Connection_Base, adOpenStatic, adLockOptimistic, adCmdText
End with
j'ai fait un blocage sur les bibliotheques ADO, le promblème ne venait pas de la.
j'ai adapté ton code à mes besoins et tout marche pour le mieux. merci beaucoup.