Discussion :

[SoulReaper]

Bonjour,

Je veux réaliser une application qui se connecte à une base de donnée Oracle pour effectuer une requête et l'afficher dans un DataGridView.

J'ai réussi à me connecter à la base de donnée et afficher le résultat de la requête dans une ListBox et puisque je débute encore avec VB.Net je ne sais pas comment afficher le résultat de ma requête dans un DataGridView

Ma table Étudiant se compose des champs suivants : Nom,Prénom,Date de Naissance et Note

Merci d'avance pour vos réponses

[jimb2k]

bonjour je crois que ce bout de code va t'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
 
Imports System.Data.OleDb
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim con As New OleDbConnection("integrated security=true ; data source=. ; initial catalog = Mabase")
        con.Open()
        Dim cmd As New OleDbCommand("select Nom,Prénom,Date de Naissance,Note from Étudiant ")
        cmd.Connection = con
        Dim da As New OleDbDataAdapter
        da.SelectCommand = cmd
        Dim ds As New DataSet
        da.Fill(ds, "Matable")
        DataGridView1.DataSource = ds.Tables("Matable")
        con.Close()
    End Sub
End Class

[SoulReaper]

Bonsoir,

Moi je n'ai pas utilisé OleDb puisque c'est une BD oracle j'ai opté pour ODP.NET
Voilà la totalité de mon code

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
 
Imports System.Data
Imports Oracle.DataAccess.Client
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Test.Click
        Dim oradb As String = "Data Source=oracle;User Id=user;Password=password;"
        Dim conn As New OracleConnection(oradb)
        Try
            conn.Open()
            Dim cmd As New OracleCommand
            cmd.Connection = conn
            cmd.CommandText = "select nom from test"
            cmd.CommandType = CommandType.Text
            Dim dr As OracleDataReader = cmd.ExecuteReader()
            While dr.Read()
                ListBox1.Items.Add(dr.Item("nom")) ' ou dr.Item(0)
            End While
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString())
        Finally
            conn.Dispose()
        End Try
    End Sub
End Class

Ici j'ai utilisé juste une table de teste contenant le champs nom

[SoulReaper]

C'est bon ,c'est résolu
J'ai utilisé la méthode cité dans ce sujet
http://www.developpez.net/forums/d76...w-base-oracle/

Merci pour ton aide