CONNEXION MYSQL SANS ODBC
cs_LogOff
Messages postés
69
Date d'inscription
dimanche 6 octobre 2002
Statut
Membre
Dernière intervention
14 juillet 2009
-
30 mars 2005 à 18:03
YannGotti Messages postés 36 Date d'inscription samedi 29 mars 2003 Statut Membre Dernière intervention 29 décembre 2010 - 29 déc. 2010 à 16:37
YannGotti Messages postés 36 Date d'inscription samedi 29 mars 2003 Statut Membre Dernière intervention 29 décembre 2010 - 29 déc. 2010 à 16:37
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/30427-connexion-mysql-sans-odbc
https://codes-sources.commentcamarche.net/source/30427-connexion-mysql-sans-odbc
29 déc. 2010 à 16:37
29 déc. 2010 à 16:34
3 mai 2010 à 10:29
Je 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?
4 avril 2008 à 14:41
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
3 avril 2008 à 02:41
Merci
kkZ
25 mai 2007 à 12:51
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
30 déc. 2006 à 10:25
Comment récupérer une IP (interne) FREE.FR
Ben 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
30 sept. 2006 à 22:11
lorsque le serveur a un soucis comment regler un timeout, histoire de ne pas attendre plusieurs dizaines de secondes ?
merci
15 mars 2006 à 18:07
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 champ
texte 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
6 déc. 2005 à 21:36
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
24 oct. 2005 à 12:24
peut tu donner un exemple pour executer une requete renvoyant un recordset ?
merci
2 avril 2005 à 01:34
1 avril 2005 à 14:43
1 avril 2005 à 08:21
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 !
1 avril 2005 à 08:19
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 ?
31 mars 2005 à 17:49
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
31 mars 2005 à 10:07
Public Function EnumTables() As String
Dim pMyRow As Long
Dim myrow As Long
Dim pMyRs As Long
Dim i As Long
Dim sRetour As String
On Error GoTo fin
pMyRs = 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 If
If sRetour <> "" Then
sRetour = Mid(sRetour, 1, Len(sRetour) - 1)
End If
fin:
EnumTables = sRetour
End Function
elle retourne une chaine avec la liste des tables séparés par des |
30 mars 2005 à 18:03