Récupération d'un DataTable Résolu

Question

Bonjour à tous et à toutes!

J'ai déjà bien eu du mal à me connecter à ma base oracle avec VB2008! Mais maintenant, il me reste un "tout petit" soucis à régler.

Ma requête passe, enfin y'a l'air, mais je ne voit pas comment la récupérer dans une combobox (ou pourquoi pas une listbox).

Voici mon code


        Dim MyAdapt1 As New OleDbDataAdapter
        Dim myDataTable1 As New DataTable
        Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=MSDAORA.1;Data Source=test;User ID=ops$pentest;Password=pentest;Persist Security Info=True")
        Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()


        Try

            Mycommand.CommandText = "select name from naiot_methods where status='CURRENT'"

            MyConnexion.Open()
            MyAdapt1.SelectCommand = Mycommand
            MyAdapt1.Fill(myDataTable1)

            MyConnexion.Close()

        Catch ex As Exception

            MsgBox(ex.Message.ToString())
            MyConnexion.Close()

        End Try


Merci d'avance pour votre aide,
Cordialement

majo59 · Accepted Answer

Désolé du dérangement :p

Je viens de trouver en bidouillant un peu. Je poste la réponse au cas où...


        Dim MyAdapt1 As New OleDbDataAdapter
        Dim myDataTable1 As New DataTable
        Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=MSDAORA.1;Data Source=***;User ID=***;Password=***;Persist Security Info=True")
        Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()


        Try

            Mycommand.CommandText = "select name from naiot_methods where status='CURRENT'"

            MyConnexion.Open()
            MyAdapt1.SelectCommand = Mycommand
            MyAdapt1.Fill(myDataTable1)

            Dim i As Integer
            For i = 0 To myDataTable1.Rows.Count - 1
                CB_METHODE.Items.Add(myDataTable1.Rows(i)("name").ToString)
            Next i

            MyConnexion.Close()

        Catch ex As Exception

            MsgBox(ex.Message.ToString())
            MyConnexion.Close()

        End Try


@+

Récupération d'un DataTable

1 réponse

Votre réponse

Discussions similaires