Probleme datagrid, datasource ou autres
bonjour lorsque je lance mon programme en complie pas à pas voici l'erreur :
Citation:
Une exception de première chance de type 'System.Data.OleDb.OleDbException' s'est produite dans System.Data.dll
Elle se produit lorsque je rentre dans ma form qui contient un datagrid.
Je ne sais pas d'où ca peux provenir. Voici des bouts de codes si ca peux aider.
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
Dim strConnect As String
Public acconn As New OleDb.OleDbConnection
Public acsdr As OleDbDataReader
Public str As String
Public SIGNAT As Integer
Public cnn As New OleDb.OleDbConnection
Public cdr As OleDbDataReader
Public strawr As String
Public textt As String
Dim strConnectt As String
Public acconnn As New OleDb.OleDbConnection
Public acsdrr As OleDbDataReader
Public strr As String
Sub connect()
acconn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=U:\pass.accdb"
acconn.Open()
acconnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=U:\pass.accdb"
acconnn.Open()
cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=U:\pass.accdb"
End Sub
Public Class Menup
' Dim da As New OleDb.OleDbDataAdapter
' Dim cb As New OleDb.OleDbCommandBuilder(Da)
Private Sub FichierToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FichierToolStripMenuItem.Click
Form1.Show()
Form4.Close()
Me.Close()
End Sub
Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
Form4.Close()
End
End Sub
Private Sub bt_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click
Form4.Show()
Me.Close()
End Sub
Private Sub bt_search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_search.Click
Form7.Show()
Me.Close()
End Sub
Private Sub Menup_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: cette ligne de code charge les données dans la table 'PassDataSet41.Table5'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
Me.Table5TableAdapter3.Fill(Me.PassDataSet41.Table5)
'TODO: cette ligne de code charge les données dans la table 'PassDataSet3.Table5'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
Me.Table5TableAdapter2.Fill(Me.PassDataSet3.Table5)
'TODO: cette ligne de code charge les données dans la table 'PassDataSet1.Table5'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
Me.Table5TableAdapter1.Fill(Me.PassDataSet1.Table5)
'TODO: cette ligne de code charge les données dans la table 'PassDataSet2.Table5'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
Me.Table5TableAdapter.Fill(Me.PassDataSet2.Table5)
Module1.connect()
Module1.connect()
Form4.fillcombo()
Form4.fillcombox()
End Sub
Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub FillByToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Try
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Table5BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.Table5BindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.PassDataSet2)
End Sub
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chercher.Click
If rb_num.Checked = True Then
Table5DataGridView.DataSource = Me.PassDataSet3.Table5.Select("[num] like '%" & TextBox1.Text & "%'")
End If
If Rb_describe.Checked = True Then
Table5DataGridView.DataSource = Me.PassDataSet3.Table5.Select("description like '%" & TextBox1.Text & "%'")
End If
If rb_secteur.Checked = True Then
Table5DataGridView.DataSource = Me.PassDataSet3.Table5.Select("secteur like '%" & TextBox1.Text & "%'")
End If
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Table5DataGridView.Refresh()
Table5DataGridView.DataSource = Me.PassDataSet3.Table5
End Sub |
Mon programme en vb.net express est lié à une base de donnée nommé pass.
Alors merci de l'aide !
