Vb+sql+datagrid

Fermé

expl - 4 sept. 2008 à 15:10
Joël - 24 nov. 2008 à 15:47

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

A voir également:

Vb+sql+datagrid
Vb cable - Télécharger - Audio & Musique
Vb - Télécharger - Langages
Récupération serveur sql - Télécharger - Gestion de données
Sql query - Télécharger - Gestion de données
Sql replace plusieurs valeurs - Forum Programmation

5 réponses

Réponse 1 / 5

RailBird
4 sept. 2008 à 15:13

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 +""

expl
4 sept. 2008 à 15:24

ca tourne pas,
type incompatible

Réponse 2 / 5

RailBird
4 sept. 2008 à 15:29

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ù ?

expl
4 sept. 2008 à 15:39

j'ai vérifié le format du champ dans la base.
le format est :date,abregée pour access(dd/mm/yyyy).
la requette est selectionnée.

expl
4 sept. 2008 à 16:10

si je supprime : Set DataGrid1.DataSource = RS1
on m'affiche aucune erreur.
Pourais je recuperer le resultat du requette autrement(mis a part le datagrid)
Merci de me repondre.

Réponse 3 / 5

yagami_raito1 Messages postés 12 Date d'inscription jeudi 4 septembre 2008 Statut Membre Dernière intervention 18 septembre 2008
4 sept. 2008 à 15:44

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

Réponse 4 / 5

expl
4 sept. 2008 à 15:58

Merci,mais je comprend pas c #
je trvail avec VB6

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

ingstat Messages postés 49 Date d'inscription vendredi 15 août 2008 Statut Membre Dernière intervention 10 septembre 2008
5 sept. 2008 à 16:09

Mais pourquoi je ne trouve pas de réponse?

Joël
24 nov. 2008 à 15:47

En sql la date est en anglais il te suffit de transformer ta date jj/mm/aaa en mm/jj/aaaa
Personne je pratque toujours avec une dateDeb et dateFin c'est plus facile
....where.....> dateDebânglais an < dateFinanglais
'ce qui revient au même que Beetwen

Discussions similaires

[PL/SQL] le rôle exact du (+) dans une clause

Qu'est ce qu'un BLOB en SQL ou MySQL?

SQL Lister les tables d'une base

[SQL] manipulation des dates

SQL: soustraction entre 2 champs de 2 requete

Discussions similaires

Newsletters