Sérieux je m'embrouille c'est fou ...
Je trouve VB beaucoup plus compliqué qu'Access, je m'y attendais pas ...
Sérieux je m'embrouille c'est fou ...
Je trouve VB beaucoup plus compliqué qu'Access, je m'y attendais pas ...
En même temps tu peux faire beaucoup plus avec VB.net aussi
Si tu veux envoi moi un mail avec ta solution et je te met le code comme ça tu peux voir.
Envie de contribuer à la rubrique SharePoint ? Contactez moi par MP !
SharePoint : http://sharepoint.developpez.com
Mon site : http://lefortludovic.developpez.com
Mon blog : http://www.consultpoint.net/blog
Avec plaisir ...
J'ai testé plein de trucs : datareader, datatable, ... mais j'y arrive pas.
C'est quoi ton mail?
ps : je peux t'envoyer aussi ma version ACCESS que tu te rende compte du résultat.
oh yeah !!
C'est bon après de nombreux cassage de tête :
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59 Private Sub RefreshQuery() Dim DataGrid1 As New DataGridView S1 = "SELECT * FROM Maintenance WHERE ID <> 0 " If Me.Check_nom.Checked = -1 Then S1 = S1 & "AND Technicien='" & Me.Cmb_nom.Text & "' " End If If Me.Check_mach.Checked = -1 Then S1 = S1 & "And Maintenance!Machine = '" & Me.Cmb_mach.Text & "' " End If If Me.Check_type.Checked = -1 Then S1 = S1 & "And Maintenance!Type_panne = '" & Me.Cmb_type.Text & "' " End If If Me.Check_date.Checked = -1 Then S1 = S1 & " and Maintenance!Datem between " & CStr(Me.Cmb_date1.Value) - 1 & " and " & CStr(Me.Cmb_date2.Value) - 1 'SQL = SQL & " and Maintenance!Datem between " & CLng(Me.cmbdate1) & " and " & CLng(Me.cmbdate2) End If If Me.Check_term.Checked = -1 Then S1 = S1 & "And Maintenance!Op_term='" & Me.Cmb_term.Text & "' " End If 'Vide la listView Result.Items.Clear() 'initialise la couleur en Noir Result.ForeColor = Drawing.Color.Black SeConnecter("Maintenance") rs = con.Execute(S1) While Not rs.EOF Dim MyLine As ListViewItem = New ListViewItem(rs.Fields.Item(0).Value.ToString) Dim subLine As ListViewItem.ListViewSubItem = New ListViewItem.ListViewSubItem(MyLine, rs.Fields.Item(1).Value.ToString) MyLine.SubItems.Add(subLine) subLine = New ListViewItem.ListViewSubItem(MyLine, rs.Fields.Item(9).Value.ToString) MyLine.SubItems.Add(subLine) subLine = New ListViewItem.ListViewSubItem(MyLine, rs.Fields.Item(7).Value.ToString) MyLine.SubItems.Add(subLine) subLine = New ListViewItem.ListViewSubItem(MyLine, rs.Fields.Item(5).Value.ToString) MyLine.SubItems.Add(subLine) subLine = New ListViewItem.ListViewSubItem(MyLine, rs.Fields.Item(4).Value.ToString) MyLine.SubItems.Add(subLine) subLine = New ListViewItem.ListViewSubItem(MyLine, rs.Fields.Item(8).Value.ToString) MyLine.SubItems.Add(subLine) Result.Items.Add(MyLine) rs.MoveNext() End While rs = Nothing con.Close() con = Nothing End Sub
Ok cool
Content d'avoir pu t'aider
A bientôt
Envie de contribuer à la rubrique SharePoint ? Contactez moi par MP !
SharePoint : http://sharepoint.developpez.com
Mon site : http://lefortludovic.developpez.com
Mon blog : http://www.consultpoint.net/blog
Partager