VB6+sql Fermé

Question

Bonjour,
Je vois pas ou est le problemme dans ce code:
L'erreur est:Aucune valeur donnée pour un ou plusieurs parametres requis 
 
""""""""""""""
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", "Nombre d'affaires Executées")
f = InputBox("Entrer la deuxième date", "Nombre d'affaires Executées")
If RS.State = adStateOpen Then RS.Close           'ouvrir la table
RS.Open " T1", db, adOpenDynamic, adLockOptimistic
sql = "Select * From T1 where [Date Execution] Between d And f " 'requette:la date d'execution entre les 2 dates    saisi
If RS1.State = adStateOpen Then RS1.Close
RS1.Open sql, db, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = RS1'Afficher le resultat dans une datagrid
""""""""""""""

Polux31 · Answer

Bonjour,

Je ne comprends pas à quoi te sert RS ?

Ensuite il faut faire la déclaration comme ça :

Dim RS As ADODB.Recordset

et ensuite créer l'objet recordset :

Set RS = New ADODB.Recordset

D'autre part voilà la syntaxe pour inclure des variables dans un code pour passer une requête SQL :

sql = "Select * From T1 where [Date Execution] Between " & d & " And " & f 

;o)

expl · Answer

Bonjour Polux, 
Merci pour  tes conseils,mais ca mache pas encore.
Cette instruction est soulignée : Set DataGrid1.DataSource = RS1'Afficher le resultat dans une datagrid 
l'erreur est:Le jeu d'enregistrements ne peu pas prendre en compte les signets.
Je compte sur toi

Polux31 · Answer

Bonjour,

Visiblement il y a un problème dans les enregistrements récupérés dans le recordset. C'est là qu'il faut chercher. Il faut vérifier le format des champs de la base ...

;o)

VB6+sql

3 réponses

Discussions similaires