Requete avec un selectRésolu

Question

Bonjour tout le monde,

Je travail sur un projet en vb6 et une base de donnee access en ADO et je voudrai recuperer les resultat d une de mes requetes, pour ce faire j ai ecrit : 

dim rs as ADODB.recordset
set rs = OpenRecordset( rs, bdreadOnly) 
dim sql as string
sql "select * from professeur where nomprof'" & text4.text & "'"
connect.execute sql, rs 

(Il y a peu etre quelque faute de syntaxe mais je l ai ecri de tete)
Et quand j execute le tout il reconnai pas cette ligne :
set rs = OpenRecordset( rs, bdreadOnly) 
Pouvez vous m aider ? 


Sinople

cs_CanisLupus · Accepted Answer

Salut,

Essaie :
rst.Open sql, TaConnexionADO, , adLockReadOnly

Loup Gris

Sinople94 · Answer

Super ca marche nikel merci 


Sinople

ingstat · Answer

salut,
j'ai trouver votre reponse à une question paraille à la mienne et je vous demande de m'aider svp.
je cherche à afficher le resultat d'une requette sql dans une datagrid mais je trouve pas comment le faire.Voici le code:
Private Sub Command6_Click()
Dim d As Date
Dim f As Date
Dim RS As New ADODB.Recordset
Dim RS1 As New ADODB.Recordset
Dim sql As String
d = InputBox("Entrer la première date", "Afficher Etat")
f = InputBox("Entrer la deuxième date", "Afficher Etat")
If RS.State = adStateOpen Then RS.Close
RS.Open "T1", db, adOpenDynamic, adLockOptimistic
sql = "Select * From T1 where [Date Execution] Between " & d & " And " & f & ""
If RS1.State = adStateOpen Then RS1.Close
Set RS1 = New ADODB.Recordset
RS1.Open sql, db, adOpenDynamic, adLockOptimistic
End Sub

Ne me laissey pas tomber

Requete avec un select

3 réponses

Discussions similaires