[débutant] Help requète sql

Version imprimable

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:

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

10/12/2007, 17h37
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).

si si j'execute voici donc le code complet.

Mon datagridview fonctionne bien mais aucune reponse à la requete

Code:

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

10/12/2007, 21h23
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
10/12/2007, 21h26
eric8787

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

Code:

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

J'ai des resultats !

eric
10/12/2007, 23h12
eric8787

C'était bien un erreur de syntaxe :

comme ça ça va mieux :

Code:

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

eric