fonction SQLOpen non définie

[baptiste]

Bonjour,

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?

Toutes les idées sont les bienvenues,

merci d'avance.

 

[Creepy]

Bonjour,

Effectivement il faut cocher Microsoft ADO.

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 :

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 :

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

En espérant que cela t'aidera

@+

Creepy

Message édité par: Creepy, à: 16/03/2006 14:08

 

[baptiste]

Merci.

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.

Baptiste