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

Messages postés
8
Date d'inscription
mercredi 31 octobre 2012
Statut
Membre
Dernière intervention
25 février 2010
- - Dernière réponse : majo59
Messages postés
8
Date d'inscription
mercredi 31 octobre 2012
Statut
Membre
Dernière intervention
25 février 2010
- 13 janv. 2010 à 12:09
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
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
8
Date d'inscription
mercredi 31 octobre 2012
Statut
Membre
Dernière intervention
25 février 2010
3
Merci
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


@+

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 121 internautes nous ont dit merci ce mois-ci

Commenter la réponse de majo59