VB6+sql
expl
-
expl -
expl -
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
""""""""""""""
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
""""""""""""""
Configuration: Windows XP Internet Explorer 7.0
3 réponses
-
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)
-
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) -
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
