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
""""""""""""""
A voir également:
- VB6+sql
- Vb6 - Télécharger - Divers Utilitaires
- Logiciel sql - Télécharger - Bases de données
- Requete sql pix - Forum PHP
- Additions et multiplication dans des requêtes SQL ✓ - Forum MySQL
- Sql query download - Télécharger - Gestion de données
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)
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)
