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

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

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

Discussions similaires

Newsletters