J'ai crée un formulaire window sous VB .NET pour afficher mes données dans un datagrid
Voici le code :
[/#ff1c00]
' Created by SharpDevelop.
' User: AHMED-DIOUF
' Date: 03/05/2005
' Time: 21:48
'  
' To change this template use Tools | Options | Coding | Edit Standard Headers.
'
 
Imports System
Imports System.Drawing
Imports System.Windows.Forms
 
Namespace AFISihm
 
    Public Class IParametre1
        Inherits System.Windows.Forms.Form
        Private components As System.ComponentModel.IContainer
        Private textBox3 As System.Windows.Forms.TextBox
        Private DWorkflow As System.Data.DataView
        Private groupBox2 As System.Windows.Forms.GroupBox
        Private groupBox1 As System.Windows.Forms.GroupBox
        Private menuItem2 As System.Windows.Forms.MenuItem
        Private menuItem6 As System.Windows.Forms.MenuItem
        Private ILoad As System.Windows.Forms.OpenFileDialog
        Private toolTip1 As System.Windows.Forms.ToolTip
        Private mainMenu1 As System.Windows.Forms.MainMenu
        Private panel1 As System.Windows.Forms.Panel
        Private radioButton1 As System.Windows.Forms.RadioButton
        Private tabWorkf As System.Windows.Forms.TabPage
        Private label3 As System.Windows.Forms.Label
        Private label2 As System.Windows.Forms.Label
        Private label1 As System.Windows.Forms.Label
        Private label6 As System.Windows.Forms.Label
        Private label5 As System.Windows.Forms.Label
        Private label4 As System.Windows.Forms.Label
        Private dataGrid1 As System.Windows.Forms.DataGrid
        Private btnOK As System.Windows.Forms.Button
        Private tabControl1 As System.Windows.Forms.TabControl
        Private btnValidate As System.Windows.Forms.Button
        Private textBox1 As System.Windows.Forms.TextBox
        Private rbIdent As System.Windows.Forms.RadioButton
        Private textBox2 As System.Windows.Forms.TextBox
        Private checkedListBox1 As System.Windows.Forms.CheckedListBox
        Private tabConf As System.Windows.Forms.TabPage
        Private tabWorkFlow As System.Data.DataSet
        Private menuItem3 As System.Windows.Forms.MenuItem
        Private WithEvents btnConn As System.Windows.Forms.Button
        Private menuItem1 As System.Windows.Forms.MenuItem
        Private menuItem7 As System.Windows.Forms.MenuItem
        Private grpOutput As System.Windows.Forms.GroupBox
        Private menuItem4 As System.Windows.Forms.MenuItem
        Private WithEvents btnDisconn As System.Windows.Forms.Button
        Private listBox1 As System.Windows.Forms.ListBox
        Private cbAttrPR As System.Windows.Forms.ComboBox
        Private grpConn As System.Windows.Forms.GroupBox
 
 
 
 
 
 
 
        Public Sub New()
            MyBase.New()
            '
            ' The Me.InitializeComponent call is required for Windows Forms designer support.
            '
 
 
            Me.InitializeComponent()
 
            '
            ' TODO : Add constructor code after InitializeComponents
            '
        End Sub
 
#Region " Windows Forms Designer generated code "
        ' This method is required for Windows Forms designer support.
        ' Do not change the method contents inside the source code editor. The Forms designer might
        ' not be able to load this method if it was changed manually.
        Friend WithEvents col0 As System.Data.DataColumn
        Friend WithEvents OracleDataAdapter As System.Data.OracleClient.OracleDataAdapter
        Friend WithEvents OracleConnection As System.Data.OracleClient.OracleConnection
        Friend WithEvents OracleCommand As System.Data.OracleClient.OracleCommand
        Friend WithEvents DataGridTableStyle1 As System.Windows.Forms.DataGridTableStyle
        Friend WithEvents DataGridTextBoxColumn1 As System.Windows.Forms.DataGridTextBoxColumn
        Friend WithEvents PARAM_FP As System.Data.DataTable
        Private Sub InitializeComponent()
            Me.components = New System.ComponentModel.Container
            Dim configurationAppSettings As System.Configuration.AppSettingsReader = New System.Configuration.AppSettingsReader
            Me.grpConn = New System.Windows.Forms.GroupBox
            Me.label3 = New System.Windows.Forms.Label
            Me.label2 = New System.Windows.Forms.Label
            Me.label1 = New System.Windows.Forms.Label
            Me.textBox3 = New System.Windows.Forms.TextBox
            Me.textBox2 = New System.Windows.Forms.TextBox
            Me.textBox1 = New System.Windows.Forms.TextBox
            Me.btnDisconn = New System.Windows.Forms.Button
            Me.btnConn = New System.Windows.Forms.Button
            Me.cbAttrPR = New System.Windows.Forms.ComboBox
            Me.listBox1 = New System.Windows.Forms.ListBox
            Me.tabWorkFlow = New System.Data.DataSet
            Me.PARAM_FP = New System.Data.DataTable
            Me.col0 = New System.Data.DataColumn
            Me.menuItem4 = New System.Windows.Forms.MenuItem
            Me.grpOutput = New System.Windows.Forms.GroupBox
            Me.btnOK = New System.Windows.Forms.Button
            Me.label6 = New System.Windows.Forms.Label
            Me.label5 = New System.Windows.Forms.Label
            Me.checkedListBox1 = New System.Windows.Forms.CheckedListBox
            Me.menuItem7 = New System.Windows.Forms.MenuItem
            Me.menuItem1 = New System.Windows.Forms.MenuItem
            Me.menuItem2 = New System.Windows.Forms.MenuItem
            Me.menuItem3 = New System.Windows.Forms.MenuItem
            Me.tabConf = New System.Windows.Forms.TabPage
            Me.btnValidate = New System.Windows.Forms.Button
            Me.groupBox1 = New System.Windows.Forms.GroupBox
            Me.groupBox2 = New System.Windows.Forms.GroupBox
            Me.label4 = New System.Windows.Forms.Label
            Me.rbIdent = New System.Windows.Forms.RadioButton
            Me.radioButton1 = New System.Windows.Forms.RadioButton
            Me.tabControl1 = New System.Windows.Forms.TabControl
            Me.tabWorkf = New System.Windows.Forms.TabPage
            Me.dataGrid1 = New System.Windows.Forms.DataGrid
            Me.DWorkflow = New System.Data.DataView
            Me.DataGridTableStyle1 = New System.Windows.Forms.DataGridTableStyle
            Me.DataGridTextBoxColumn1 = New System.Windows.Forms.DataGridTextBoxColumn
            Me.panel1 = New System.Windows.Forms.Panel
            Me.mainMenu1 = New System.Windows.Forms.MainMenu
            Me.menuItem6 = New System.Windows.Forms.MenuItem
            Me.toolTip1 = New System.Windows.Forms.ToolTip(Me.components)
            Me.ILoad = New System.Windows.Forms.OpenFileDialog
            Me.OracleDataAdapter = New System.Data.OracleClient.OracleDataAdapter
            Me.OracleCommand = New System.Data.OracleClient.OracleCommand
            Me.OracleConnection = New System.Data.OracleClient.OracleConnection
            Me.grpConn.SuspendLayout()
            CType(Me.tabWorkFlow, System.ComponentModel.ISupportInitialize).BeginInit()
            CType(Me.PARAM_FP, System.ComponentModel.ISupportInitialize).BeginInit()
            Me.grpOutput.SuspendLayout()
            Me.tabConf.SuspendLayout()
            Me.groupBox1.SuspendLayout()
            Me.tabControl1.SuspendLayout()
            Me.tabWorkf.SuspendLayout()
            CType(Me.dataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
            CType(Me.DWorkflow, System.ComponentModel.ISupportInitialize).BeginInit()
            Me.panel1.SuspendLayout()
            Me.SuspendLayout()
            '
            'grpConn
            '
            Me.grpConn.Controls.Add(Me.label3)
            Me.grpConn.Controls.Add(Me.label2)
            Me.grpConn.Controls.Add(Me.label1)
            Me.grpConn.Controls.Add(Me.textBox3)
            Me.grpConn.Controls.Add(Me.textBox2)
            Me.grpConn.Controls.Add(Me.textBox1)
            Me.grpConn.Controls.Add(Me.btnDisconn)
            Me.grpConn.Controls.Add(Me.btnConn)
            Me.grpConn.Location = New System.Drawing.Point(104, 22)
            Me.grpConn.Name = "grpConn"
            Me.grpConn.Size = New System.Drawing.Size(744, 45)
            Me.grpConn.TabIndex = 1
            Me.grpConn.TabStop = False
            '
            'label3
            '
            Me.label3.Location = New System.Drawing.Point(352, 15)
            Me.label3.Name = "label3"
            Me.label3.Size = New System.Drawing.Size(48, 15)
            Me.label3.TabIndex = 7
            Me.label3.Text = "Server :"
            '
            'label2
            '
            Me.label2.Location = New System.Drawing.Point(8, 15)
            Me.label2.Name = "label2"
            Me.label2.Size = New System.Drawing.Size(40, 14)
            Me.label2.TabIndex = 6
            Me.label2.Text = "User :"
            '
            'label1
            '
            Me.label1.Location = New System.Drawing.Point(168, 15)
            Me.label1.Name = "label1"
            Me.label1.Size = New System.Drawing.Size(64, 15)
            Me.label1.TabIndex = 5
            Me.label1.Text = "Password :"
            '
            'textBox3
            '
            Me.textBox3.Location = New System.Drawing.Point(400, 15)
            Me.textBox3.Name = "textBox3"
            Me.textBox3.TabIndex = 4
            Me.textBox3.Text = "AFIS"
            '
            'textBox2
            '
            Me.textBox2.Location = New System.Drawing.Point(232, 15)
            Me.textBox2.Name = "textBox2"
            Me.textBox2.PasswordChar = Microsoft.VisualBasic.ChrW(42)
            Me.textBox2.TabIndex = 3
            Me.textBox2.Text = "AFISOWNER"
            '
            'textBox1
            '
            Me.textBox1.Location = New System.Drawing.Point(48, 15)
            Me.textBox1.Name = "textBox1"
            Me.textBox1.TabIndex = 2
            Me.textBox1.Text = "AFIS_OWNER"
            '
            'btnDisconn
            '
            Me.btnDisconn.Location = New System.Drawing.Point(640, 16)
            Me.btnDisconn.Name = "btnDisconn"
            Me.btnDisconn.Size = New System.Drawing.Size(88, 22)
            Me.btnDisconn.TabIndex = 1
            Me.btnDisconn.Text = "DisConnexion"
            '
            'btnConn
            '
            Me.btnConn.Location = New System.Drawing.Point(544, 16)
            Me.btnConn.Name = "btnConn"
            Me.btnConn.Size = New System.Drawing.Size(72, 22)
            Me.btnConn.TabIndex = 0
            Me.btnConn.Text = "Connexion"
            '
            'cbAttrPR
            '
            Me.cbAttrPR.Location = New System.Drawing.Point(72, 126)
            Me.cbAttrPR.Name = "cbAttrPR"
            Me.cbAttrPR.Size = New System.Drawing.Size(184, 21)
            Me.cbAttrPR.TabIndex = 2
            Me.cbAttrPR.Text = "-- select one attribut--"
            '
            'listBox1
            '
            Me.listBox1.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.tabWorkFlow, "T_IDTB_PARAM_FP.PM_NOM_ML" ))
            Me.listBox1.DataSource = Me.tabWorkFlow
            Me.listBox1.DisplayMember = "T_IDTB_PARAM_FP.PM_NOM_ML"
            Me.listBox1.Location = New System.Drawing.Point(8, 52)
            Me.listBox1.Name = "listBox1"
            Me.listBox1.Size = New System.Drawing.Size(152, 199)
            Me.listBox1.TabIndex = 0
            Me.listBox1.ValueMember = "T_IDTB_PARAM_FP.PM_NOM_ML"
            '
            'tabWorkFlow
            '
            Me.tabWorkFlow.DataSetName = "oData"
            Me.tabWorkFlow.Locale = New System.Globalization.CultureInfo("fr-FR" )
            Me.tabWorkFlow.Tables.AddRange(New System.Data.DataTable() {Me.PARAM_FP})
            '
            'PARAM_FP
            '
            Me.PARAM_FP.Columns.AddRange(New System.Data.DataColumn() {Me.col0})
            Me.PARAM_FP.MinimumCapacity = 80
            Me.PARAM_FP.TableName = "T_IDTB_PARAM_FP"
            '
            'col0
            '
            Me.col0.ColumnName = "PM_NOM_ML"
            '
            'menuItem4
            '
            Me.menuItem4.Index = 1
            Me.menuItem4.Text = "Macros"
            '
            'grpOutput
            '
            Me.grpOutput.Controls.Add(Me.btnOK)
            Me.grpOutput.Controls.Add(Me.label6)
            Me.grpOutput.Controls.Add(Me.label5)
            Me.grpOutput.Controls.Add(Me.checkedListBox1)
            Me.grpOutput.Controls.Add(Me.listBox1)
            Me.grpOutput.Location = New System.Drawing.Point(312, 7)
            Me.grpOutput.Name = "grpOutput"
            Me.grpOutput.Size = New System.Drawing.Size(480, 312)
            Me.grpOutput.TabIndex = 1
            Me.grpOutput.TabStop = False
            Me.grpOutput.Text = "Ouput"
            '
            'btnOK
            '
            Me.btnOK.Location = New System.Drawing.Point(352, 272)
            Me.btnOK.Name = "btnOK"
            Me.btnOK.Size = New System.Drawing.Size(75, 21)
            Me.btnOK.TabIndex = 4
            Me.btnOK.Text = "Ok"
            '
            'label6
            '
            Me.label6.Location = New System.Drawing.Point(320, 32)
            Me.label6.Name = "label6"
            Me.label6.Size = New System.Drawing.Size(100, 15)
            Me.label6.TabIndex = 3
            Me.label6.Text = "columns"
            '
            'label5
            '
            Me.label5.Location = New System.Drawing.Point(8, 30)
            Me.label5.Name = "label5"
            Me.label5.Size = New System.Drawing.Size(100, 15)
            Me.label5.TabIndex = 2
            Me.label5.Text = "tables"
            '
            'checkedListBox1
            '
            Me.checkedListBox1.Location = New System.Drawing.Point(320, 48)
            Me.checkedListBox1.Name = "checkedListBox1"
            Me.checkedListBox1.Size = New System.Drawing.Size(144, 199)
            Me.checkedListBox1.TabIndex = 1
            '
            'menuItem7
            '
            Me.menuItem7.Index = 3
            Me.menuItem7.Text = "Help"
            '
            'menuItem1
            '
            Me.menuItem1.Index = 0
            Me.menuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.menuItem2, Me.menuItem3})
            Me.menuItem1.Text = "File"
            '
            'menuItem2
            '
            Me.menuItem2.Index = 0
            Me.menuItem2.Text = "load"
            '
            'menuItem3
            '
            Me.menuItem3.Index = 1
            Me.menuItem3.Text = "exit"
            '
            'tabConf
            '
            Me.tabConf.Controls.Add(Me.btnValidate)
            Me.tabConf.Controls.Add(Me.grpOutput)
            Me.tabConf.Controls.Add(Me.groupBox1)
            Me.tabConf.Location = New System.Drawing.Point(4, 22)
            Me.tabConf.Name = "tabConf"
            Me.tabConf.Size = New System.Drawing.Size(808, 543)
            Me.tabConf.TabIndex = 0
            Me.tabConf.Text = "Configuration"
            '
            'btnValidate
            '
            Me.btnValidate.Location = New System.Drawing.Point(56, 267)
            Me.btnValidate.Name = "btnValidate"
            Me.btnValidate.Size = New System.Drawing.Size(128, 45)
            Me.btnValidate.TabIndex = 2
            Me.btnValidate.Text = "Validate"
            '
            'groupBox1
            '
            Me.groupBox1.Controls.Add(Me.groupBox2)
            Me.groupBox1.Controls.Add(Me.label4)
            Me.groupBox1.Controls.Add(Me.cbAttrPR)
            Me.groupBox1.Controls.Add(Me.rbIdent)
            Me.groupBox1.Controls.Add(Me.radioButton1)
            Me.groupBox1.Location = New System.Drawing.Point(8, 59)
            Me.groupBox1.Name = "groupBox1"
            Me.groupBox1.Size = New System.Drawing.Size(264, 171)
            Me.groupBox1.TabIndex = 0
            Me.groupBox1.TabStop = False
            Me.groupBox1.Text = "Order and Pre-Filtering"
            '
            'groupBox2
            '
            Me.groupBox2.Location = New System.Drawing.Point(264, 163)
            Me.groupBox2.Name = "groupBox2"
            Me.groupBox2.Size = New System.Drawing.Size(200, 93)
            Me.groupBox2.TabIndex = 4
            Me.groupBox2.TabStop = False
            Me.groupBox2.Text = "groupBox2"
            '
            'label4
            '
            Me.label4.Location = New System.Drawing.Point(16, 126)
            Me.label4.Name = "label4"
            Me.label4.Size = New System.Drawing.Size(56, 15)
            Me.label4.TabIndex = 3
            Me.label4.Text = "Criterion :"
            '
            'rbIdent
            '
            Me.rbIdent.Location = New System.Drawing.Point(16, 74)
            Me.rbIdent.Name = "rbIdent"
            Me.rbIdent.Size = New System.Drawing.Size(128, 23)
            Me.rbIdent.TabIndex = 1
            Me.rbIdent.Text = "N:N ( Identification )"
            '
            'radioButton1
            '
            Me.radioButton1.Location = New System.Drawing.Point(16, 37)
            Me.radioButton1.Name = "radioButton1"
            Me.radioButton1.Size = New System.Drawing.Size(144, 22)
            Me.radioButton1.TabIndex = 0
            Me.radioButton1.Text = "1:N ( Authentification )"
            '
            'tabControl1
            '
            Me.tabControl1.Controls.Add(Me.tabConf)
            Me.tabControl1.Controls.Add(Me.tabWorkf)
            Me.tabControl1.Location = New System.Drawing.Point(8, 15)
            Me.tabControl1.Name = "tabControl1"
            Me.tabControl1.SelectedIndex = 0
            Me.tabControl1.Size = New System.Drawing.Size(816, 569)
            Me.tabControl1.TabIndex = 0
            '
            'tabWorkf
            '
            Me.tabWorkf.Controls.Add(Me.dataGrid1)
            Me.tabWorkf.Location = New System.Drawing.Point(4, 22)
            Me.tabWorkf.Name = "tabWorkf"
            Me.tabWorkf.Size = New System.Drawing.Size(808, 543)
            Me.tabWorkf.TabIndex = 1
            Me.tabWorkf.Text = "Workflow"
            '
            'dataGrid1
            '
            Me.dataGrid1.AlternatingBackColor = System.Drawing.Color.LightGray
            Me.dataGrid1.BackColor = System.Drawing.Color.Gainsboro
            Me.dataGrid1.BackgroundColor = System.Drawing.Color.Silver
            Me.dataGrid1.BorderStyle = System.Windows.Forms.BorderStyle.None
            Me.dataGrid1.CaptionBackColor = System.Drawing.Color.LightSteelBlue
            Me.dataGrid1.CaptionFont = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
            Me.dataGrid1.CaptionForeColor = System.Drawing.Color.MidnightBlue
            Me.dataGrid1.DataMember = ""
            Me.dataGrid1.DataSource = Me.DWorkflow
            Me.dataGrid1.FlatMode = True
            Me.dataGrid1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
            Me.dataGrid1.ForeColor = System.Drawing.Color.Black
            Me.dataGrid1.GridLineColor = System.Drawing.Color.DimGray
            Me.dataGrid1.GridLineStyle = System.Windows.Forms.DataGridLineStyle.None
            Me.dataGrid1.HeaderBackColor = System.Drawing.Color.MidnightBlue
            Me.dataGrid1.HeaderFont = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
            Me.dataGrid1.HeaderForeColor = System.Drawing.Color.White
            Me.dataGrid1.LinkColor = System.Drawing.Color.MidnightBlue
            Me.dataGrid1.Location = New System.Drawing.Point(8, 22)
            Me.dataGrid1.Name = "dataGrid1"
            Me.dataGrid1.ParentRowsBackColor = System.Drawing.Color.DarkGray
            Me.dataGrid1.ParentRowsForeColor = System.Drawing.Color.Black
            Me.dataGrid1.SelectionBackColor = System.Drawing.Color.CadetBlue
            Me.dataGrid1.SelectionForeColor = System.Drawing.Color.White
            Me.dataGrid1.Size = New System.Drawing.Size(664, 208)
            Me.dataGrid1.TabIndex = 2
            Me.dataGrid1.TableStyles.AddRange(New System.Windows.Forms.DataGridTableStyle() {Me.DataGridTableStyle1})
            '
            'DWorkflow
            '
            Me.DWorkflow.AllowDelete = False
            Me.DWorkflow.AllowEdit = False
            Me.DWorkflow.AllowNew = False
            Me.DWorkflow.Table = Me.PARAM_FP
            '
            'DataGridTableStyle1
            '
            Me.DataGridTableStyle1.DataGrid = Me.dataGrid1
            Me.DataGridTableStyle1.GridColumnStyles.AddRange(New System.Windows.Forms.DataGridColumnStyle() {Me.DataGridTextBoxColumn1})
            Me.DataGridTableStyle1.HeaderForeColor = System.Drawing.SystemColors.ControlText
            Me.DataGridTableStyle1.MappingName = "PARAM_FP"
            Me.DataGridTableStyle1.ReadOnly = True
            '
            'DataGridTextBoxColumn1
            '
            Me.DataGridTextBoxColumn1.Format = ""
            Me.DataGridTextBoxColumn1.FormatInfo = Nothing
            Me.DataGridTextBoxColumn1.MappingName = "PM_NOM_ML"
            Me.DataGridTextBoxColumn1.ReadOnly = True
            Me.DataGridTextBoxColumn1.Width = 75
            '
            'panel1
            '
            Me.panel1.Controls.Add(Me.tabControl1)
            Me.panel1.Location = New System.Drawing.Point(8, 74)
            Me.panel1.Name = "panel1"
            Me.panel1.Size = New System.Drawing.Size(840, 590)
            Me.panel1.TabIndex = 0
            '
            'mainMenu1
            '
            Me.mainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.menuItem1, Me.menuItem4, Me.menuItem6, Me.menuItem7})
            '
            'menuItem6
            '
            Me.menuItem6.Index = 2
            Me.menuItem6.Text = "Test"
            '
            'OracleDataAdapter
            '
            Me.OracleDataAdapter.SelectCommand = Me.OracleCommand
            Me.OracleDataAdapter.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "IDTB_PARAM_FP", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("PM_NOM_ML", "PM_NOM_ML" )})})
            '
            'OracleCommand
            '
            Me.OracleCommand.CommandText = CType(configurationAppSettings.GetValue("OracleCommand.CommandText", GetType(System.String)), String)
            Me.OracleCommand.Connection = Me.OracleConnection
            '
            'OracleConnection
            '
            Me.OracleConnection.ConnectionString = "user id=AFIS_OWNER;Password=AFISOWNER;data source=AFIS;persist security info=Fals" & _
            "e"
            '
            'IParametre1
            '
            Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
            Me.ClientSize = New System.Drawing.Size(866, 675)
            Me.Controls.Add(Me.grpConn)
            Me.Controls.Add(Me.panel1)
            Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
            Me.Menu = Me.mainMenu1
            Me.Name = "IParametre1"
            Me.Text = "IParametre"
            Me.grpConn.ResumeLayout(False)
            CType(Me.tabWorkFlow, System.ComponentModel.ISupportInitialize).EndInit()
            CType(Me.PARAM_FP, System.ComponentModel.ISupportInitialize).EndInit()
            Me.grpOutput.ResumeLayout(False)
            Me.tabConf.ResumeLayout(False)
            Me.groupBox1.ResumeLayout(False)
            Me.tabControl1.ResumeLayout(False)
            Me.tabWorkf.ResumeLayout(False)
            CType(Me.dataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
            CType(Me.DWorkflow, System.ComponentModel.ISupportInitialize).EndInit()
            Me.panel1.ResumeLayout(False)
            Me.ResumeLayout(False)
 
        End Sub
#End Region
 
        Private Sub btnDisconn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisconn.Click
            Me.OracleConnection.Close()
            Me.btnDisconn.Enabled = False
            Me.btnConn.Enabled = True
        End Sub
 
        Private Sub btnConn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConn.Click
            Me.OracleConnection.Open()
            Me.btnConn.Enabled = False
            Me.btnDisconn.Enabled = True
        End Sub
 
        Private Sub IParametre1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Me.OracleDataAdapter.Fill(Me.tabWorkFlow)
        End Sub
    End Class
End Namespace[/#ff1c00]
 
 
Merci

mais de rien

Bon, y'en a marre des gens qui arrivent, te disent "ça marche pas", te balancent un code de 5 km et se cassent...
 
Message d'erreur ? Réaction ? Quelque chose qui se passe ? T'as débugger le truc, genre voir si la connection se fait ? Si le DataAdapter remplis la table ? etc. etc.

c'est le genre de mec que je n'aide même pas moi

ce monsieur n'aura qu'à recréer un topic clair s'il veut une réponse