Vb+sql+datagrid
Bonjour,
je veux afficher le resultat d'une requette sql dans une datagrid.
je bloque sur ce problemme depuis des jours et je trouve pas la solution et je ne peux pas avancer.
Merci pour votre aide,
Voici le code et l'erreur est "le jeu d'enregistrement ne peut pas prendre en compte les signets"
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
Set DataGrid1.DataSource = RS1
End Sub
je veux afficher le resultat d'une requette sql dans une datagrid.
je bloque sur ce problemme depuis des jours et je trouve pas la solution et je ne peux pas avancer.
Merci pour votre aide,
Voici le code et l'erreur est "le jeu d'enregistrement ne peut pas prendre en compte les signets"
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
Set DataGrid1.DataSource = RS1
End Sub
Configuration: Windows XP Internet Explorer 6.0
5 réponses
-
Mais pourquoi je ne trouve pas de réponse?
-
Merci,mais je comprend pas c #
je trvail avec VB6 -
vous devez dabord ecrire des reqetes en sql
voila j ai rempli datagrid en utilisant ce code en c #
protected void Button1_Click(object sender, EventArgs e)
{
string ID_Activites = Request.QueryString["id"].ToString();
SqlConnection sqlconn = new SqlConnection(ConfigurationManager.ConnectionStrings["MyNewConnectionString"].ToString());
SqlCommand cmd = sqlconn.CreateCommand();
cmd.CommandText = "spActDetail ";
cmd.Parameters.Add(new SqlParameter("@Id_Activites", ID_Activites));
cmd.Parameters.Add(new SqlParameter("@description", Textdescription.Text));
cmd.Parameters.Add(new SqlParameter("@INN",TextINN.Text));
cmd.Parameters.Add(new SqlParameter("@OUT",Textout.Text));
cmd.Parameters.Add(new SqlParameter("@Doc_Remarque", Textremarque.Text));
cmd.CommandType = CommandType.StoredProcedure;
sqlconn.Open();
cmd.ExecuteNonQuery();
Response.Redirect("Saisie_Detail.aspx?id=" + ID_Activites);
}
c mon projet personel vous pouvez remplacer les champs -
Vérifie que ton format date est bien dd/mm/yyyy car access fou souvent les dates au format mm/dd/yyyy
Le type incompatible il se situe où ? -
Essaye au lieu de
sql = "Select * From T1 where [Date Execution] Between " & d & " And " & f
ceci :
sql = "Select * From T1 where [Date Execution] Between " + d + " And " + f +""
