Bonjour à tous,
voilà le code que j'utilise pour me connecter à une base de données Oracle, le datagridview fonctionne parfaitement mais impossible d'exporter les données dans un fichier texte ou d'utiliser une texte box. Quelqu'un pourrait-il continuer mon code.
Merci d'avance
le papou
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
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Dim connexion As String
    Dim connexionOle As OleDbConnection = New OleDbConnection()
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    Dim dv As DataView
    Dim cb As OleDbCommandBuilder
    Dim dr As OleDbDataReader
    Private Sub form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' initialisation de la connexion
        connexion = "provider=MSDAORA.1;User ID = NomUser/MotPasse; Data Source = NomSource"
        ' passage des paramètres de connexion à connexionOLE pour établir la connexion
        connexionOle = New OleDbConnection
        connexionOle.ConnectionString = connexion
FicOut = "c:\Export.TXT"
FileOpen(1, FicOut, OpenMode.Output)
Requete = "SELECT REFERENCE, STOCK, DERENT, DERSORT FROM NomTable" _
        + " WHERE stock >0 " _
        + " ORDER BY reference"
'objet dataAdapter pour accès à la table avec la requete
	da = New OleDbDataAdapter(Requete, connexionOle)
'les données sont stockées dans le dataSet
	ds = New DataSet()
'l'objet dataSet est rempli avec la méthode Fill
            da.Fill(ds, "NomTable")
'copie de l'bjet dans le dataView pour édition
            dv = ds.Tables("NomTable").DefaultView
'affichage des données dans le dataGridView1
	Me.DataGridView1.DataSource = dv
            dv.AllowEdit = False
' code à insérer pour export
    End Sub
 
End Class