Discussion :

[eric8787]

Bonsoir,

La requète suivante devrait m'afficher les enregistrements correspondants aux dates comprises entre datedeb et datefin, mais voilà, rien !
Même pas de message d'erreur. Il y a pourtant bien des choses à afficher.

Voici le début du code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 Dim datedeb As String
        Dim datefin As String
        datedeb = Me.DateTimePicker1.Value.ToString("dd/MM/yyyy")
        datefin = Me.DateTimePicker2.Value.ToString("dd/MM/yyyy")
 
        'AFICHAGE DANS DATAGRIDVIEW
        strConn = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\eric\Mes documents\Visual Studio 2005\Projects\numsdm\numsdm\Database1.mdf;Integrated Security=True;User Instance=True"
        ObjetConnection = New SqlConnection()
        ObjetConnection.ConnectionString = strConn
        ObjetConnection.Open()
        strSql = "SELECT * FROM MI where date >=" & datedeb & " AND date <= " & datefin & ""

Mercide votre aide

eric

un débutant qui débute

[Bluedeep]

Sauf que tu n'exécute aucune requête ici :

- tu ouvres une connexion
- tu mets une requête sql dans une chaine de caractére

et tu n'exécute rien (ou tu as oublié des lignes).

[eric8787]

si si j'execute voici donc le code complet.

Mon datagridview fonctionne bien mais aucune reponse à la requete

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Dim datedeb As String
        Dim datefin As String
        datedeb = Me.DateTimePicker1.Value.ToString("dd/MM/yyyy")
        datefin = Me.DateTimePicker2.Value.ToString("dd/MM/yyyy")
 
        'AFICHAGE DANS DATAGRIDVIEW
        strConn = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\eric\Mes documents\Visual Studio 2005\Projects\numsdm\numsdm\Database1.mdf;Integrated Security=True;User Instance=True"
        ObjetConnection = New SqlConnection()
        ObjetConnection.ConnectionString = strConn
        ObjetConnection.Open()
        strSql = "SELECT * FROM MI where date >=" & datedeb & " AND date <= " & datefin & ""
 
        ObjetCommand = New SqlCommand(strSql)
        ObjetDataAdapter = New SqlDataAdapter(ObjetCommand)
        ObjetCommand.Connection() = ObjetConnection
        ObjetDataSet = New DataSet
        ObjetDataAdapter.Fill(ObjetDataSet, "MI")
        ObjetDataTable = ObjetDataSet.Tables("MI")
        Dim objDataView As New DataView
 
        Dim strChampASCDESC As String
        ' Remplir tes options de trie
        strChampASCDESC = "ID DESC"
        'strFiltre = "NomDeLaConne1 = *'" & TaTextBox.Text & "'*"
        With objDataView
            ' Charger la table dans le DataView
            .Table = ObjetDataSet.Tables("MI")
            ' Ordre du trie de la vue filtrée, type string.
            ' ASC" ASC = Trie croissant, DESC Trie décroissant
            .Sort = strChampASCDESC
            ' Trie de la vue filtrée, type string.
            '.RowFilter = strFiltre
        End With
        Me.DataGridView1.DataSource = objDataView
        Me.DataGridView1.Columns("id").Visible = False

merci

eric

[soazig]

Bonjour,
As-tu essayé de copier coller le contenu de strSql directement dans Access pour voir ce qu'il te renvoie?
Personnellement j'ai un doute sur le format de tes dates. Je lui aurai mis du YYYY-MM-DD.
A+
Soazig

[eric8787]

En fait c'est je crois juste un prob de syntaxe car si je mets seulement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strSql = "SELECT * FROM MI where date >=" & datedeb & ""

J'ai des resultats !

eric

[eric8787]

C'était bien un erreur de syntaxe :

comme ça ça va mieux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strSql = "SELECT * FROM MI where date >= '" & datedeb & "' and date <= '" & datefin & "'"

eric