CONNEXION MYSQL SANS ODBC

Commentaire de LogOff le 30/03/2005 18:03:55

Je parviens à me connecter à mon serveur sql, mais que faut-il préciser en argument pour la fonction EnumTables ?

Commentaire de LogOff le 31/03/2005 17:49:28

j'accède à la function EnumTables de cette façon :

Dim mySQL As cBaseMysql

Private Sub Form_Load()

    Set mySQL = New cBaseMysql

    mySQL.SetServer "sql.free.fr"
    mySQL.SetUser "..."
    mySQL.SetPassword "..."
    mySQL.SetDatabase "..."
    mySQL.OpenMySQL

    Me.Print "Connecté"
    Me.Print "Obtention de la liste des tables..."

    Me.Print mySQL.EnumTables

End Sub


mais aucune table n'est listée

Commentaire de derick le 01/04/2005 08:21:09

Yark !
Ne tenez pas compte de mon précédent commentaire, j'ai fait un mauvais copier / coller (voilà ce qui arrive quand on fait pls choses à la fois !

Commentaire de LogOff le 02/04/2005 01:34:32

ok leteltel, je vais essayer en local

Commentaire de vbsurfer le 06/12/2005 21:36:33

salut,

perso j'ai arrive à me connecter à un server mysql en local installé via easyphp juste pour tester ton code.

j'ai bien recup libmySQL.dll (copiez dans le meme dossier ke le projet et même dans system32), insérer ton cBaseMySQL.cls

rajouter les ref necessaire pour recordset

mis le load suivant : (jai bien sur creer les bases et tables qui vont bien. ca a marché un temps uniquement pour le listing des tables et le insert into et puis la ca marche plus :(

Private Sub Form_Load()

    Set mySQL = New cBaseMysql

    mySQL.SetServer "localhost"
    mySQL.SetUser "root"
    mySQL.SetPassword "root"
    mySQL.SetDatabase "test1"
    mySQL.OpenMySQL

    Me.Print "Connecté"
    Me.Print "Obtention de la liste des tables..."

    Me.Print mySQL.EnumTables

End Sub


tu pourait donné un exmple complet de tes fonction et dans kel ordre elle doivent être ececuté.

merci par avance,
VBsurfer

Commentaire de m2rtech le 30/09/2006 22:11:28

Salut,

lorsque le serveur a un soucis comment regler un timeout, histoire de ne pas attendre plusieurs dizaines de secondes ?

merci

Commentaire de m2rtech le 25/05/2007 12:51:14

Salut,

comment récupérer une valeur d'un champs ?
j'ai essayé :
mavaleur = Mysql.rs("nom_du_champ")

mais ça marche pas.

Merci de m'éclairer

Commentaire de kkZ le 04/04/2008 14:41:09

j'ai essayé ca :

Set mySQL = New cBaseMysql
mySQL.SetServer "***"
mySQL.SetUser "***"
mySQL.SetPassword "***"
mySQL.SetDatabase "***"
mySQL.OpenMySQL
mySQL.OuvrirSnap ("SELECT DISTINCT champ FROM table LIMIT 3")
mySQL.ExportSnapToRs (True)

Avec des tests dans la classe, cela semble fonctionner mais lors de la ligne de la classe mysql : Set ExportSnapToRs = rsRetour, la valeur recordcount de rsRetour est à 3 et dans mon form, elle arrive à 0 avec erreur BOF ou EOF.

Comprend pas,
Merci pour vos réponses.

kkZ

Commentaire de McKelian le 29/12/2010 16:34:25

Au cas où: Si erreur fonction non déclaré : Il faut aller dans les références et ajouter Microsoft OLE DB ActiveX Data Objects