oulàà attends, je suis pas sur de piger ta phrase...
effectivement, ça gueule moins comme cela :
1 2
|
SELECT id_activite, date_activite, description, temps, id_num_projet, id_num_pers_elsa, id_entreprise FROM dbo.activites WHERE date_activite >= 'Form93.DateTimePicker1.value' AND date_activite <= 'Form93.DateTimePicker2.value' |
mais ça me dit : "syntax error converting datetime from character string"
donc c'est bel et bien un prob de type ! Mais je pige pas la fin de ton post !!
----edit
pask moi je mets mon code dans le sql adapter... c'est dans le code du form que je fais le tostring ?
----edit
ça gueule toujours... mais si je mets '10/26/2006' à la place de 'Form93.Textbox4.text', ça fonctionne... c'est la dynamique avec des objets vb qui marche pas...
SELECT id_activite, date_activite, description, temps, id_num_projet, id_num_pers_elsa, id_entreprise FROM dbo.activites WHERE date_activite >= 'Form93.Textbox3.text' AND date_activite <= 'Form93.Textbox4.text'
----edit
j'deviens badingue...
je réexplique depuis le début ce que j'ai fait :
j'ai ajouté une requête 'FillBy' dans mon table adapter pour la table 'activite'... ça donne :
SELECT id_activite, date_activite, description, temps, id_num_projet, id_num_pers_elsa, id_entreprise FROM dbo.activites WHERE date_activite >= 'a' AND date_activite <= 'b'
'a' et 'b' sont des variables... j'ai essayé de mettre 'DateTimePicker1.value' ou 'Me.DateTimePicker1.value' ou encore 'Form93.DateTimePicker1.value', mais aussi essayé avec des textbox, des variables........ rien
si je mets en dur dans la requête sql, no prob.. je mets sous ce format 'mm/jj/aaaa'...et ça fonctionne... mais avec des objet vb.net... ça va pas..... "syntax error converting datetime from character string"...
voici le code de mon Form93, le form contenant mon reportviewer...
j'ai tout mis derrière un bouton... pis y a du code qui me mets les dates dans un textbox... sinon je remplis 2 autres textbox, bref, c'est "statique", mais c est pour tester encore...
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 36 37 38 39 40 41 42 43 44 45 46 47 48 49
|
Public Class Form93
Private Sub Form93_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
TextBox1.Text = DateTimePicker1.Value.ToString
TextBox2.Text = DateTimePicker2.Value.ToString
Dim a As String = "10/02/2006"
Dim b As String = "10/22/2006"
TextBox3.Text = a
TextBox4.Text = b
'TODO : cette ligne de code charge les données dans la table 'GpiDataSet.entreprises'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
Me.EntreprisesTableAdapter1.Fill(Me.GpiDataSet1.entreprises)
'TODO : cette ligne de code charge les données dans la table 'GpiDataSet.projets'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
Me.ProjetsTableAdapter1.Fill(Me.GpiDataSet1.projets)
'TODO : cette ligne de code charge les données dans la table 'GpiDataSet.collaborateurs'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
Me.CollaborateursTableAdapter1.Fill(Me.GpiDataSet1.collaborateurs)
'TODO : cette ligne de code charge les données dans la table 'GpiDataSet.participer_entreprises'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
Me.Participer_entreprisesTableAdapter1.Fill(Me.GpiDataSet1.participer_entreprises)
'TODO : cette ligne de code charge les données dans la table 'GpiDataSet.participer_collaborateurs'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
Me.Participer_collaborateursTableAdapter1.Fill(Me.GpiDataSet1.participer_collaborateurs)
'TODO : cette ligne de code charge les données dans la table 'GpiDataSet.activites'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
'Me.ActivitesTableAdapter1.Fill(Me.GpiDataSet1.activites)
Me.ActivitesTableAdapter1.FillBy(Me.GpiDataSet1.activites)
Cursor = Cursors.WaitCursor
Dim report As New CrystalReport4
report.SetDataSource(GpiDataSet1)
CrystalReportViewer1.ReportSource = report
Cursor = Cursors.Default
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
End Sub
End Class |
Partager