cs_LogOff
Messages postés69Date d'inscriptiondimanche 6 octobre 2002StatutMembreDernière intervention14 juillet 2009
-
30 mars 2005 à 18:03
YannGotti
Messages postés36Date d'inscriptionsamedi 29 mars 2003StatutMembreDernière intervention29 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.
YannGotti
Messages postés36Date d'inscriptionsamedi 29 mars 2003StatutMembreDernière intervention29 décembre 20101 29 déc. 2010 à 16:37
Presque 8 mois après... Mais il vaux mieux tard que jamais. C'était ça, et ça fonctionne. Merci!
McKelian
Messages postés1Date d'inscriptiondimanche 25 septembre 2005StatutMembreDernière intervention29 décembre 2010 29 déc. 2010 à 16:34
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
YannGotti
Messages postés36Date d'inscriptionsamedi 29 mars 2003StatutMembreDernière intervention29 décembre 20101 3 mai 2010 à 10:29
Public Function ExportSnapToRs(Optional ByRef Retour As Boolean = False) As ADODB.Recordset
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?
kkZ
Messages postés19Date d'inscriptionmercredi 19 décembre 2001StatutMembreDernière intervention30 avril 2008 4 avril 2008 à 14:41
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
kkZ
Messages postés19Date d'inscriptionmercredi 19 décembre 2001StatutMembreDernière intervention30 avril 2008 3 avril 2008 à 02:41
Excellente source, fonctionne correctement en local comme à distance. Manque d'infos concernant l'utilisation (executer une requete, recuperer les résultats...).
Merci
kkZ
m2rtech
Messages postés239Date d'inscriptionmercredi 9 octobre 2002StatutMembreDernière intervention20 février 2012 25 mai 2007 à 12:51
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
jeffadsl
Messages postés1Date d'inscriptionmardi 28 janvier 2003StatutMembreDernière intervention30 décembre 2006 30 déc. 2006 à 10:25
A tester :
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
m2rtech
Messages postés239Date d'inscriptionmercredi 9 octobre 2002StatutMembreDernière intervention20 février 2012 30 sept. 2006 à 22:11
Salut,
lorsque le serveur a un soucis comment regler un timeout, histoire de ne pas attendre plusieurs dizaines de secondes ?
merci
freddy1787
Messages postés60Date d'inscriptionmardi 24 juin 2003StatutMembreDernière intervention19 avril 2009 15 mars 2006 à 18:07
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 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
vbsurfer
Messages postés8Date d'inscriptionjeudi 30 décembre 2004StatutMembreDernière intervention 2 juin 2008 6 déc. 2005 à 21:36
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 :(
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
redtech2
Messages postés1Date d'inscriptionjeudi 11 septembre 2003StatutMembreDernière intervention24 octobre 2005 24 oct. 2005 à 12:24
salut,
peut tu donner un exemple pour executer une requete renvoyant un recordset ?
merci
cs_LogOff
Messages postés69Date d'inscriptiondimanche 6 octobre 2002StatutMembreDernière intervention14 juillet 2009 2 avril 2005 à 01:34
ok leteltel, je vais essayer en local
leteltel
Messages postés8Date d'inscriptionvendredi 3 janvier 2003StatutMembreDernière intervention10 février 2006 1 avril 2005 à 14:43
c normal chez free on ne peux accéder aux bases mysql que par leurs interfaces phpmyadmin...
cs_derick
Messages postés41Date d'inscriptionmardi 20 mai 2003StatutMembreDernière intervention25 août 2007 1 avril 2005 à 08:21
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 !
cs_derick
Messages postés41Date d'inscriptionmardi 20 mai 2003StatutMembreDernière intervention25 août 2007 1 avril 2005 à 08:19
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 ?
cs_LogOff
Messages postés69Date d'inscriptiondimanche 6 octobre 2002StatutMembreDernière intervention14 juillet 2009 31 mars 2005 à 17:49
j'accède à la function EnumTables de cette façon :
Me.Print "Connecté"
Me.Print "Obtention de la liste des tables..."
Me.Print mySQL.EnumTables
End Sub
mais aucune table n'est listée
leteltel
Messages postés8Date d'inscriptionvendredi 3 janvier 2003StatutMembreDernière intervention10 février 2006 31 mars 2005 à 10:07
en fait j'ai oublié de virer l'argument on ne passe pas d'arguments ila fonction =>
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 |
cs_LogOff
Messages postés69Date d'inscriptiondimanche 6 octobre 2002StatutMembreDernière intervention14 juillet 2009 30 mars 2005 à 18:03
Je parviens à me connecter à mon serveur sql, mais que faut-il préciser en argument pour la fonction EnumTables ?
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