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

neg03
Messages postés
95
Date d'inscription
jeudi 7 mai 2009
Dernière intervention
3 juillet 2009
- 14 avril 2008 à 13:53 - Dernière réponse : Renfield
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
- 14 avril 2008 à 14:56
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
Afficher la suite 

Votre réponse

4 réponses

Meilleure réponse
Renfield
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
- 14 avril 2008 à 14:56
3
Merci
ta requete SQL ne doit donc pas comporter de ' (champ apparemment numérique)

sql = "SELECT `nomCode` from `table1` where `n°code`=" & n°code.Text

Merci Renfield 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 94 internautes ce mois-ci

Commenter la réponse de Renfield
neg03
Messages postés
95
Date d'inscription
jeudi 7 mai 2009
Dernière intervention
3 juillet 2009
- 14 avril 2008 à 13:55
0
Merci
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
Commenter la réponse de neg03
Renfield
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
- 14 avril 2008 à 14:21
0
Merci
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)
Commenter la réponse de Renfield
neg03
Messages postés
95
Date d'inscription
jeudi 7 mai 2009
Dernière intervention
3 juillet 2009
- 14 avril 2008 à 14:45
0
Merci
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
Commenter la réponse de neg03

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.