Probleme datagrid, datasource ou autres

**thetrollman** · 14/08/2013, 17h13

bonjour lorsque je lance mon programme en complie pas à pas voici l'erreur :

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 :

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
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 !

**shayw** · 14/08/2013, 17h17

Salut

pourquoi 3 fois

Code :

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

1
2
acconn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=U:\pass.accdb"
        acconn.Open()

**thetrollman** · 14/08/2013, 17h21

j'ai essayer avec une source j'ai pas compris pourquoi mais dans mes combobox ils sont vide avec une seule source. Quand j'en aie 3 ils se remplissent. C'est stupide mais c'est broche à foin

**callo** · 14/08/2013, 17h43

Envoyé par thetrollman

j'ai essayer avec une source j'ai pas compris pourquoi mais dans mes combobox ils sont vide avec une seule source. Quand j'en aie 3 ils se remplissent. C'est stupide mais c'est broche à foin

Pas du tout besoin de l'avoir 3 fois. Surement que tu as oublié de faire

acconn.Open()

lorsque tu mettais une seule source.

**thetrollman** · 14/08/2013, 18h04

c'est ce que je viens de faire et un combobox reste vide. mais le probleme du datagrid ca ne le résous pas ..

**anasschiguer** · 14/08/2013, 21h23

Bonjour,
Tu dois nous fournir des détails précis , pas quelques choses d'inutile, par exemple tu as bien dit que le problème se pose lors de l'ouverture de ton form qui contient un DataGridView (DGV) cela signifie que tu crois que celui ci est la source ?? en plus pourquoi ne pas nous indiquer la ligne ou cette exception s'affiche exactement ??
D'autre part, si le problème est à l'ouverture de ton formulaire, c'est pas la peine de nous montrer le code dérrière plusieurs menuStripButton ou des button tout court,
Aide nous à localiser ton erreur

PS : et comme l'a signalé Mr shayw il n'est jamais possible que trois bouts de codes qui se suivent servent à qlq chose !!!

**clementmarcotte** · 15/08/2013, 00h20

Rebonjour,

Coudonc, est-ce un programme généré automatiquement par un moteur de conversion ?

Parce que ces lignes me font penser que c'est un système automatique de broche à foin qui a produit une usine à gaz qui produit de la moutarde au lieu de produire du gaz:

[QUOTE=thetrollman;7438073]

Code :

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

1
2
3
4
5
6
7
8
        '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)

QUOTE]

Parce que, ramasser 4, ou peut-être même 41, DataSets pour contenir, disons 5 tables, plus 4 TableAdapters, c'est du délire.

Je pense que tu devrais nous dire tout ce que tu sais de cette source. Parce que; ce que je vois là, cela dépasse l'entendement.

Ou bien, et j'espère que ce n'est pas cela, tu as un pseudo très réaliste.

**thetrollman** · 15/08/2013, 13h49

[quote=clementmarcotte;7438408]Rebonjour,

Coudonc, est-ce un programme généré automatiquement par un moteur de conversion ?

Parce que ces lignes me font penser que c'est un système automatique de broche à foin qui a produit une usine à gaz qui produit de la moutarde au lieu de produire du gaz:

Envoyé par thetrollman

Code :

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

1
2
3
4
5
6
7
8
        '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)

QUOTE]

Parce que, ramasser 4, ou peut-être même 41, DataSets pour contenir, disons 5 tables, plus 4 TableAdapters, c'est du délire.

Je pense que tu devrais nous dire tout ce que tu sais de cette source. Parce que; ce que je vois là, cela dépasse l'entendement.

Ou bien, et j'espère que ce n'est pas cela, tu as un pseudo très réaliste.

Disons que j'ai eu beaucoup de probleme avec à remplir mon datagrid pour le mettre à jour ils fallais toujours que j'en fais un nouveau ..

**thetrollman** · 15/08/2013, 14h06

J'ai mis une seule source et nettoyer mes passdata de trop mais mon probleme initial reste la voici en fichier joint ce que j'Essaie de dire. J'essaie d'etre le plus clair possible

Probleme datagrid, datasource ou autres

VB.NET

Vue hybride

Discussions similaires

Partager

Partager