Affichage résultat requete SQL en visual basic dans un textbox [Résolu]

Signaler
Messages postés
95
Date d'inscription
jeudi 7 mai 2009
Statut
Membre
Dernière intervention
3 juillet 2009
-
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
Bonjour,
je commence tt juste le visual basic et je voudrais savoir comment faire pour afficher le résultat de ma requête dans un textbox.
Je possède 2 tables qui on une relation entre eux avec n°code :
-table1 : n°code , nomCode
-table2 : numéro, prénom, n°code

A l'aide d'un DATA j'affiche le numéro, le prénom et le n°code de table2 dans des textbox.
Je souhaiterai pouvoir afficher également le nomCode dans un autre textbox.

Voici ce que j'ai essayé mais qui ne marche pas :

<!-- BEGIN TEMPLATE: bbcode_code -->

Code :
Dim cnx As ADODB.ConnectionDim cmd As ADODB.CommandDim rs As ADODB.RecordsetDim bds As Database
Dim matier AsStringDim sql AsString
 
Set bds = OpenDatabase("C:\...\maBase.mdb")
sql = "SELECT nomCode from table1 where n°code='" & n°code.Text & "'"
nomCode.Text = bds.Execute sql

<!-- END TEMPLATE: bbcode_code -->L'erreur est à la ligne et sa doit être une erreur de syntaxe  :
nomCode.Text = bds.Execute sql
Merci

4 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
65
ta requete SQL ne doit donc pas comporter de ' (champ apparemment numérique)

sql = "SELECT `nomCode` from `table1` where `n°code`=" & n°code.Text
Messages postés
95
Date d'inscription
jeudi 7 mai 2009
Statut
Membre
Dernière intervention
3 juillet 2009

mon code est :
Dim cnx As ADODB.Connection 
Dim cmd As ADODB.Command 
Dim rs As ADODB.Recordset 
Dim bds As Database 
Dim sql As String 

Set bds = OpenDatabase("C:\...\maBase.mdb") 
sql = "SELECT nomCode from table1 where n°code='" & n°code.Text & "'" 
nomCode.Text = bds.Execute sql
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
65
bonjour,

Thèmes / VB.NET et VB 2005 /
1 - tu fais visiblement du VB6

2-mélange de DAODB et ADODB
Dim cnx As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset
Dim bds As Database

3- il faudrait ici des parenthèses:
nomCode.Text = bds.Execute(sql )

4- mais ca ne va tout de meme pas: il te faut passer par un Recordset :

Dim bds As Database
Dim sql As String

Set bds = OpenDatabase("C:\...\maBase.mdb")
sql = "SELECT `nomCode` from `table1` where `n°code`='" & n°code.Text & "' "
With bds.OpenRecordset(sql)
If .EOF then
nomCode.Text = "NON TROUVE!"
Else
nomCode.Text = .Fields(0).Value
End If
.Close
End With
bds.close


(là, c'est du DAODB)
Messages postés
95
Date d'inscription
jeudi 7 mai 2009
Statut
Membre
Dernière intervention
3 juillet 2009

Je te remercie mais j'ai une erreur avec :
With bds.OpenRecordset(sql)
il me dit : type de données incompatible dans l'expression du critère