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

neg03 95 Messages postés jeudi 7 mai 2009Date d'inscription 3 juillet 2009 Dernière intervention - 14 avril 2008 à 13:53 - Dernière réponse : Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention
- 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 

4 réponses

Répondre au sujet
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 14 avril 2008 à 14:56
+3
Utile
ta requete SQL ne doit donc pas comporter de ' (champ apparemment numérique)

sql = "SELECT `nomCode` from `table1` where `n°code`=" & n°code.Text
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Renfield
neg03 95 Messages postés jeudi 7 mai 2009Date d'inscription 3 juillet 2009 Dernière intervention - 14 avril 2008 à 13:55
0
Utile
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 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 14 avril 2008 à 14:21
0
Utile
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 95 Messages postés jeudi 7 mai 2009Date d'inscription 3 juillet 2009 Dernière intervention - 14 avril 2008 à 14:45
0
Utile
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.