enregistrer la résultat d'une requête dans une textbox

enregistrer la résultat d'une requête dans une textbox - VB/VBA/VBS - Programmation

Marsh Posté le 28-03-2004 à 13:25:10    

bonjour
voilà je voudrais voire le résultat de ma requête
dans une text box mais comment faire
 Set access = New ADODB.Connection
 access.Provider = "Microsoft.Jet.Oledb.4.0"
 access.ConnectionString = "D:\1iga\programmation\vb\ENREGISTRER  FICHIER\fichierclient.mdb"
access.Open
access.Execute = "select count(numclient) from client"
Text1.Text = s
access.Close

Reply

Marsh Posté le 28-03-2004 à 13:25:10   

Reply

Marsh Posté le 29-03-2004 à 12:41:13    

Code :
  1. Dim Myrecord as ADODB.Recordset
  2. Dim access as ADODB.Connection
  4. Set access = New ADODB.Connection
  5. access.Provider = "Microsoft.Jet.Oledb.4.0"
  6. access.ConnectionString = "D:\1iga\programmation\vb\ENREGISTRER  FICHIER\fichierclient.mdb"
  7. access.Open
  9. SQL = "select count(numclient) from client"
  10. set Myrecord = new ADODB.recordset
  11. Myrecord.open SQL, access, adOpenDynamic, adLockOptimistic
  12. Text1.Text = Myrecord.fields(0).value
  13. access.Close


 
 ;)

Reply

Marsh Posté le 08-04-2004 à 15:34:36    

je te remercie beaucoup c'est cependand j'ai toujours un petit prob  
mon prob se trouve la  
sql = "select numclient,nom,prenom,adresse,telephone,fax,email from client where numclient=" + numclient.text + ""  
'prob avec le numclient.text prend pas comme valeur numérique à régler

Reply

Marsh Posté le 08-04-2004 à 16:46:06    

romano6241 a écrit :

je te remercie beaucoup c'est cependand j'ai toujours un petit prob  
mon prob se trouve la  
sql = "select numclient,nom,prenom,adresse,telephone,fax,email from client where numclient=" + numclient.text + "" 'prob avec le numclient.text prend pas comme valeur numérique à régler
 


 
Essaye de mettre ta valeur entre simple quote et utilise plutot l'operateur '&' pour concatener des chaines , genre :
 

Code :
  1. sql = "select numclient,nom,prenom,adresse,telephone,fax,email from client where numclient='" & numclient.text & "'"


 
:)


---------------
VA APPRENDRE ET REVIENS QUAND TU SAIS, SINON ABSTIENT TOI C'EST UN GRAND CONSEIL QUE JE TE DONNE... TU ES INCOMPÉTENT ET C'EST UNE RÉALITÉ, TU N'AS RIEN A FAIRE ICI FAUT S'Y CONNAITRE ... -Jojo1998 - RIP - http://tinyurl.com/qc47ftk
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed