Vb+sql+datagrid
expl
-
Joël -
Joël -
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
A voir également:
- Vb+sql+datagrid
- Logiciel sql - Télécharger - Bases de données
- Vb - Télécharger - Langages
- Vb audio cable - Télécharger - Audio & Musique
- Requete sql pix ✓ - Forum MySQL
- Sql lister les tables ✓ - Forum Programmation
5 réponses
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 +""
sql = "Select * From T1 where [Date Execution] Between " & d & " And " & f
ceci :
sql = "Select * From T1 where [Date Execution] Between " + d + " And " + f +""
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ù ?
Le type incompatible il se situe où ?
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
type incompatible