sql datagrid adodc

Question

bonjour a tous le monde 
encore une fois je suis bloqué 
j'ai réalisée une connections entre ma base de donnée SQL  et DataGrid a laide d'une adodc 
pour le moment tous va bien la DataGrid affiche tous les enregistrement de ma BD 
Maintenant je veux spécifie l'affichage des donné par une période entre deux date j'ai trouvée la requet suivante :

 "SELECT * FROM table WHERE ([DATE] >= ' 2008 / 2 / 2 ' AND [DATE] <= ' 2008 / 2 / 29 ')"
elle maffiche aucune erreur 
peut etre que j mal place ma requet !!!!!
ou il faux placé la requet et comment  ?????? 
merci d'avance

lillith212 · Answer

Salut,

Peux tu donner ton code complet?
Ensuite es-tu sur de ton format de date?
Enfin, le code de ta requête que tu as mis est ainsi dans ton code?
Si c'est le cas si mes souvenirs sont bon, ne faut-il pas un point virgule à la fin d'une requête de type sql?
[Date] est le nom de ton champs dans la table table?
Bon courage

S.L.B.
<hr />

sofien86 · Answer

Voici mon code : Dim str, objConnection, objCommand, oRs, strSQL On Error Resume Next str = "provider=msdasql; Initial Catalog= TCI ; DSN=TCI" strSQL = "SELECT * FROM sofien WHERE TIME ([DATE] >= ' 2008 / 2 / 2 ' AND [DATE] <= ' 2008 / 2 / 29 ') " Set objConnection = CreateObject("ADODB.Connection") objConnection.ConnectionString = str objConnection.CursorLocation = 3 objConnection.Open If Err.Number <> 0 Then mess = MsgBox("Pas de connexion", 0, "Erreur") Err.Clear Exit Sub End If Set oRs = CreateObject("ADODB.Recordset") Set objCommand = CreateObject("ADODB.Command") objCommand.CommandType = 1 Set objCommand.ActiveConnection = objConnection objCommand.CommandText = strSQL Set oRs = objCommand.Execute Set objCommand = Nothing objConnection.Close Set objConnection = Nothing Adodc1.Visible = True DataGrid1.Visible = True End Sub

sofien86 · Answer

je voudrai juste affiche les donné enregistre entre les deux date s.v.p aidé moi je suis bloqué et je ne trouve pas la solution j déjà change tous les type de date disponible est c la même résulta

lillith212 · Answer

Re,

Peux tu répondre à mes autres questions?

Merci

SLB

LIBRE_MAX · Answer

Bonsoir, ..elle maffiche aucune erreur ! Comment peut-tu être sûr qu' il n' y en a pas ? T' as mis d' emblée un On Error Resume .. Gères cela autrement: On Error Goto mon_erreur str = "provider=msdasql; Initial Catalog= TCI ; DSN=TCI" strSQL = "SELECT * FROM sofien WHERE TIME ([DATE] >= ' 2008 / 2 / 2 ' AND [DATE] <= ' 2008 / 2 / 29 ') " Set objConnection = CreateObject("ADODB.Connection") objConnection.ConnectionString = str objConnection.CursorLocation = 3 objConnection.Open If Err.Number <> 0 Then mess = MsgBox("Pas de connexion", 0, "Erreur") Err.Clear Exit Sub End If Set oRs = CreateObject("ADODB.Recordset") Set objCommand = CreateObject("ADODB.Command") objCommand.CommandType = 1 Set objCommand.ActiveConnection = objConnection objCommand.CommandText = strSQL Set oRs = objCommand.Execute Set objCommand = Nothing objConnection.Close Set objConnection = Nothing Adodc1.Visible = True DataGrid1.Visible = True Exit Sub mon_erreur: MsgBox Err.Description End Sub Tu auras alors la description de ce qui cloche.

[] Ce qui va sans dire. va mieux en le disant.

Sql datagrid adodc

5 réponses

Votre réponse

Discussions similaires