CONNECT TO MYSQL WITH VB6
WhiteDwarf
Messages postés
510
Date d'inscription
samedi 29 décembre 2001
Statut
Membre
Dernière intervention
23 mai 2008
-
5 juin 2006 à 20:27
r_gabor Messages postés 42 Date d'inscription vendredi 16 novembre 2001 Statut Membre Dernière intervention 16 mars 2012 - 14 févr. 2011 à 22:45
r_gabor Messages postés 42 Date d'inscription vendredi 16 novembre 2001 Statut Membre Dernière intervention 16 mars 2012 - 14 févr. 2011 à 22:45
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/37937-connect-to-mysql-with-vb6
https://codes-sources.commentcamarche.net/source/37937-connect-to-mysql-with-vb6
14 févr. 2011 à 22:45
Jessaier de taider comeme :)
Tu peux poster ton code qui gener l'erreur?
3 févr. 2011 à 03:57
mon problème est le suivant :
j'ai effectué la connexion avec la base de données mais mois j'ai 37 champs dans ma table alors quand je fais les arguments de la méthode insert par exemple il m'affiche une erreur comme quoi il y a beaucoup d'argument
merci;
18 déc. 2010 à 11:36
Quand je crée un nouveau nom, téléphone et que je l'envois dans la BDD MySql ça marche niquel, mais lorsque je quitte ton programme, ça efface l'entrée :(
Comment je peut faire (avec une requête) que lorsque je ferme le programme il enregistre la BDD ? Et que lorsque je l'ouvre il ré-ouvre la BDD sur la sauvegarde précédente ?
Merci,
30 nov. 2010 à 07:40
j'ai apprecié ton code
question 1. Peut-elle marcher avec ODBC 5.1 si je l'installe et change le 3.1 en 5.1 sur ton code?
question 2. quelle synthaxe pour creer une nouvelle base de données avec 'MySQL_NewDb' que tu as donné.
merçi d'avance pour vos reponse.
17 août 2010 à 20:33
Je pense que le problebe que tu rencontre est pas avex VB mais avec la configuration MYSQL.
Il faut configure MYSQL pour que tu puis connecter avec localhost ou 127.0.0.1 (default) ou bien avec server name ou IP addresse.
17 août 2010 à 18:26
j'arrive à communiquer avec ma base mysql quand je travail sur mon poste à condition que je garde "localhost" ou "127.0.0.1" quand je remplace cette chaine par le nom de ma machine ou son adresse IP (ex:192.168.1.1) là j'ai une erreur . la même erreur survient quand quand j'essaie de me connecter à la même base sur un autre poste de mon réseau via son adresse ou son nom.
Quelqu'un à t'il déja rencontré ce problème? quels peuvent être les solutions. Merci à tous.
NB: j'ai installer MyODBC
3 sept. 2007 à 11:29
1 août 2007 à 00:36
Va voire ce code, je vien de cree, je pens un truc comme ca il te faut.
http://www.vbfrance.com/code.aspx?ID=43625
Bye
31 juil. 2007 à 20:29
et ca ne marche effectivement pas.
je voudrais enregistrer le score du joueur dans une base et afficher sa position :) ca doit etre réalisable en VB quand meme ?!
31 juil. 2007 à 10:42
Oui, pour MyODBC tu doit installer sur le post si non ca ne marche pas.
Mais le jeux tu a programmer en VB? Si oui, ou ce trouve le base de donnes? Mon code est pas faite por ce connecter a une base externe alors si c'est local, tu doit installer comeme mysql aussi.
31 juil. 2007 à 10:31
merci pour cette source!
question: lorsque l'on crée l'exe de notre appli, on doit quand meme installer MyODBC sur les postes clients qui utiliseront l'appli? (je fais un jeu et si je dois obliger l'installation de MyODBC simplement pour afficher les statistiques à la fin du jeu, ca fait un peu lourd)
13 juin 2007 à 23:27
Tu peux le trouver a la menu Project/References et tu recherche par name.
Normalement tu doit avoire dans la liste
Bye
13 juin 2007 à 20:51
20 mars 2007 à 13:11
Ta réponse correspond exactement à ce que je voulais :)
je te remercie encore
à bientôt
9 mars 2007 à 22:09
Alors, dans le module MySQL efface le MySQL_Insert code et colle ca a la place de l'ancien.
Public Sub MySQL_Insert(MySQL_Conn As ADODB.Connection, Table As String, Values() As String)
Dim Field As String 'Will hold Fields name
Dim Value As String 'Will hold Values value
Dim Tmp As Variant 'Variable for split Values into Field and Value
Dim Sql As String 'Sql string
Sql = "INSERT INTO `" & Table & "` ("
Field "": Value ""
For Each Tmp In Values
Field = Field & "`" & Mid$(Tmp, 1, CLng(InStr(Tmp, "|")) - 1) & "`,"
Value = Value & "'" & Mid$(Tmp, CLng(InStr(Tmp, "|")) + 1, Len(Tmp) - CLng(InStr(Tmp, "|"))) & "',"
Next
Field = Mid$(Field, 1, Len(Field) - 1) 'Removing the last , string
Value = Mid$(Value, 1, Len(Value) - 1) 'Removing the last , string
'Build sql
Sql = Sql & Field & ") Values (" & Value & ")"
'MsgBox Sql
'Insert row
MySQL_Conn.Execute Sql
End Sub
Puis sur ton for change le code pour le button AddNew avec ca.
Private Sub cmdAddNew_Click()
'If textfields empty then exit sub
If txtNewName.Text "" And txtNewPhone.Text "" Then Exit Sub
Dim newData(1) As String
newData(0) = "name|" & txtNewName.Text
newData(1) = "phone|" & txtNewPhone.Text
Call MySQL_Insert(Connexion, "NewTable", newData)
'Clear text fields
txtNewName.Text = ""
txtNewPhone.Text = ""
'Reload listview
Set Rs = MySQL_Select(Connexion, "*", "NewTable", , , "id")
RefreshList
End Sub
Le separator que je utilise ici ce ne pas le "," mais le "|"
bon, jespere ca t'aide
salut
8 mars 2007 à 16:58
Je te remercie pour ce code qui m'aide beaucoup!
Dans la commande SQL INSERT, j'aimerai pouvoir envoyer mes fields et mes values séparés par des virgules et non pas séparément comme tu le proposes (field1 vers value1, field2 vers value2 etc...)
Aurais tu une idée sur le traitement à réaliser ?
Merci beaucoup
7 févr. 2007 à 15:55
Tout simplement il faut ajouter la reference Microsoft ActiveX Data Objects 2.8 Library a ton application et ca va marcher :)
7 févr. 2007 à 14:57
10 sept. 2006 à 15:33
Mais je ne pas esseyer encore. Le jour que je vais le faire je vais poster le code.
7 sept. 2006 à 14:33
je te précise que je suis bien en mysql mais un super débutant en vb. veille bien m'aider.
quand j'essaye il m'affiche le message suivantPublic Function MySQL_Conn(ByVal Server As String, ByVal Db As String, ByVal User As String, ByVal Pwd As String) As ADODB.Connection
en plus je voudrais envoyer ma base vers un serveur avec apache et php si tu pouvais me donner un modèle
6 juin 2006 à 18:30
Tu doit installer sur ton post le MyODBC que tu peux telecharger sur le sit de www.mysql.com.
Apres ca tu doit cree sous MySQL une base de donnees seulement le base, pas besoin cree des tables, et puis changer dans le load_form events les parametres de ton access a MySQL sur ton post ou sur ton reseaux. Cette exaple utilis MySQL ODBC 3.51 Driver.
6 juin 2006 à 14:04
J'ai un problème lors de l'exécution :
Source de données non trouvée et nom du pilote non spécifié!
6 juin 2006 à 13:45
6 juin 2006 à 13:29
6 juin 2006 à 08:46
6 juin 2006 à 00:46
Sinon, ton message n'est pas trop compliqué ca va :)
@++
5 juin 2006 à 23:26
Ca depend de la provider. dans les plus par des hebergeur, ils configure le acces a mysql depuis localhost. Alors meme si tu me le adresse ip de server, tu pourra pas ce connecter. J'ai veu quelque part, si tu fait a script (mais je ne sais pas quio comme script) tu peux ex. faire une select et passer le resultat pour une autre programm. Je ne sais pas si vb6 et un page php peux ce communiquer, mais si oui, alors tu peuy faire une truc en php, fair appler ce script a pertir de ton appli sur ton poste, et quelque facon de change de information en traver de php sur mysql et vb.
Jespere que mon message est pas trop compliquer.
Gabor
5 juin 2006 à 20:27