Call Voir sans le zip
Télécharger le zip
Je parviens à me connecter à mon serveur sql, mais que faut-il préciser en argument pour la fonction EnumTables ?
en fait j'ai oublié de virer l'argument on ne passe pas d'arguments ila fonction =>Public Function EnumTables() As StringDim pMyRow As LongDim myrow As LongDim pMyRs As LongDim i As LongDim sRetour As StringOn Error GoTo finpMyRs = mysql_list_tables(pMySQL, "")If (pMyRs <> 0) Then For i = 0 To mysql_num_rows(pMyRs) - 1 pMyRow = mysql_fetch_row(pMyRs) CopyMemory myrow, ByVal pMyRow, 4 sRetour = sRetour & CopieChaine(pMyRow) & "|" Next mysql_free_result (pMyRs)End IfIf sRetour <> "" Then sRetour = Mid(sRetour, 1, Len(sRetour) - 1)End Iffin:EnumTables = sRetourEnd Functionelle retourne une chaine avec la liste des tables séparés par des |
j'accède à la function EnumTables de cette façon :Dim mySQL As cBaseMysqlPrivate 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.EnumTablesEnd Submais aucune table n'est listée
Slt !Ton progr donne pas mal d'infos, c cool ... mais - Au chargement, j'ai le msg "trouve pas c:\windows\system32\wbem\wbemdisp.TLB"Indispensable ce fichier ou pas ?- tu n'as pas ajouté 'option explicit' : c'est voulu ?
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 !
c normal chez free on ne peux accéder aux bases mysql que par leurs interfaces phpmyadmin...
ok leteltel, je vais essayer en local
salut,peut tu donner un exemple pour executer une requete renvoyant un recordset ?merci
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.clsrajouter les ref necessaire pour recordsetmis 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.EnumTablesEnd Subtu pourait donné un exmple complet de tes fonction et dans kel ordre elle doivent être ececuté.merci par avance,VBsurfer
Bonjour,Est-ce que quelqu'un pourrait me dire comment ressortir une string d'une requete?Pour que, par exemple, lorsque je rentre l'adresse dans un champtexte il aille me chercher le nom et me l'affiche dans un deuxieme textbox!!resultat.Text = Requete("SELECT nom FROM adresse WHERE rue=nom_de_la_rue") ==> Un truc comme ça quoi!!Merci beaucoup,Freddy
Salut, lorsque le serveur a un soucis comment regler un timeout, histoire de ne pas attendre plusieurs dizaines de secondes ?merci
A tester :Comment récupérer une IP (interne) FREE.FRBen tout simplement en passant par leurs propres proxy qu'ils mettent à disposition. Voir les infos sur leurs pages d'assistance.J'avoue ne pas avoir testé avec MySQL mais ça vaut le cout de tenter la chose.Maintenant reste à savoir si IP PROXY FREE.FR = Localhost chez eux....Jeff
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
Excellente source, fonctionne correctement en local comme à distance. Manque d'infos concernant l'utilisation (executer une requete, recuperer les résultats...).MercikkZ
j'ai essayé ca :Set mySQL = New cBaseMysqlmySQL.SetServer "***"mySQL.SetUser "***"mySQL.SetPassword "***"mySQL.SetDatabase "***"mySQL.OpenMySQLmySQL.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
Public Function ExportSnapToRs(Optional ByRef Retour As Boolean = False) As ADODB.RecordsetJe reprends juste le développement après plusieurs années; je ne sais pas pourquoi ça me renvoie une erreur fonction non déclarée.Comment rajouter les ref necessaire pour recordset?
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
Presque 8 mois après... Mais il vaux mieux tard que jamais. C'était ça, et ça fonctionne. Merci!
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 875 113 membres 24 nouveaux aujourd'hui 16 153 membres club