[VB6-MySQL] résultat Select (débutant)

Question

Bonjour,

Je dois travailler sur une appli développée par un ancien collègue, et je suis novice en VB.
Il y a une connexion à une bdd mysql qui est ecrite comme cela :

Dim cn As New MYSQL_CONNECTION
Dim rs As MYSQL_RS
DoEvents
    cn.OpenConnection serv, util, mp, Table
DoEvents

avec pour execution de requetes INSERT le code suivant:

' variable  sql = requete INSERT...
Set rs = cn.Execute(sql)

Or dans son code, il n'y a aucune requete SELECT (que je dois ajouter), et sur le net je n'ai trouvé que des exemple de codes effectués d'une autre manière : mysql_real_connect, mysql_query, etc. pour recuperer le resulat d'une SELECT

Est ce possible et comment recuperer le resultat d'un SELECT avec la premiere maniere (fonction Execute ) ?

Merci de votre aide

Marcus

Afficher la suite

Pascal_22 · Answer

Salut Marcus,

Je n'ai jamais programmer en vb avec mysql comme base de donnée, mets peut-être que la facon de procédé est la même peu importe la base de données.
Moi j'utilise accès comme base de donné
un coup ta connection créé tu créé ton record set qui lui va contenir l'information de ton select ...

Dim rsClient As ADODB.Recordset

Set rsClient = New ADODB.Recordset

With rsClient
.Source = "select * from Table_Clients"
.ActiveConnection = cn 'le nom de ta variable de ta connection
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open
End With

un coup ton record set (qui est RsClient) ouvert, tu peu procede de cette facon :
avec la propriété fields(1)
fields: est le nom du champs
me.txtNom.Text=rsClient.fields("Nom").value
la ca mets ce quil y a dans le champs nom dans un text box.
tu peu te promener dans ton record set
ex. rsClient.movenext ou movefirst ..... et ainsi de suite

Jespere avoir pu t'aider un peu !!
Bonne Chance
Pascal_22

[VB6-MySQL] résultat Select (débutant)

1 réponse

Votre réponse

Discussions similaires

Newsletters