export avec visual studio 2008

Version imprimable

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:

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

Ca devrait donne un truc dans ce genre là, à adapter.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public sub Export
 
        Dim ligne As DataGridViewRow
        Dim Nbcolonne As Integer = MyDatagridview.ColumnCount
        Dim maligne As String
        Myfile = File.CreateText("MyPath\MyFileName.txt")
 
        For Each ligne In MyDatagridview.Rows
 
            maligne = ""
 
            For i = 0 To Nbcolonne
 
                'Là le séparateur que je choisis est le " | "
                maligne = ligne.Cells(i).Value & " | " & maligne
 
            Next i
 
            Myfile.WriteLine(maligne)
 
        Next ligne
 
End Sub

PS : Ne pas oublier d'importer les bibliothèques SystemIO() et System.text

Code:

1
2
Imports System.IO
Imports System.Text

En espérant t'avoir aidé

:sm:

Merci à Methylene,
j'ai un peu modifié le code
nbColonne - 1
et
maligne = maligne & ligne.Cells(i).Value & " | "

Citation:

Envoyé par methylene

Ca devrait donne un truc dans ce genre là, à adapter.

Code:

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
Public sub Export
 
        Dim ligne As DataGridViewRow
        Dim Nbcolonne As Integer = MyDatagridview.ColumnCount
        Dim maligne As String
        Myfile = File.CreateText("MyPath\MyFileName.txt")
 
        For Each ligne In MyDatagridview.Rows
 
            maligne = ""
 
            For i = 0 To Nbcolonne - 1  ' sinon erreur
 
                'Là le séparateur que je choisis est le " | "
                maligne = ligne.Cells(i).Value & " | " & maligne
 
                ' pour respecter l'ordre d'affichage
                maligne = maligne & ligne.Cells(i).Value & " | "
 
            Next i
 
            Myfile.WriteLine(maligne)
 
        Next ligne
 
End Sub

PS : Ne pas oublier d'importer les bibliothèques SystemIO() et System.text

Code:

1
2
Imports System.IO
Imports System.Text

En espérant t'avoir aidé

:sm:

et pour compléter

j'ai trouvé également un code permettant d'exporter les données avec un OleDbDataReader

Code:

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
Imports System.IO
Imports System.Text
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
    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 Property monFichier As StreamWriter
 
    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
 
       ' export vers fichier texte du dataGridView par "Methylene"
 
        Dim exportLigne As DataGridViewRow
        Dim nbColonne As Integer = DataGridView1.ColumnCount
        Dim maLigne As String
        monFichier = File.CreateText("d:\export.txt")
 
        For Each exportLigne In DataGridView1.Rows
 
            maLigne = ""
            For i = 0 To nbColonne - 1
                maLigne = maLigne & exportLigne.Cells(i).Value & " | "
            Next i
 
            monFichier.WriteLine(maLigne)
 
        Next
 
' variante pour utilisation dans un OleDbDataReader
 
Dim MyConnexion As OleDbConnection = New OleDbConnection("provider=MSDAORA.1;User ID = NomUser/MotPasse; Data Source = NomSource")
Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
Mycommand.CommandText = "SELECT REFERENCE, STOCK, DERENT, DERSORT FROM NomTable"
MyConnexion.Open()
Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
 
	Do While myReader.read()
 
            Ligne = myReader.GetValue(0) & Chr(9) & myReader.GetValue(1) & Chr(9) & myReader.GetValue(2) & Chr(9) & myReader.GetValue(3)
            Print(1, Ligne & Chr(13) & Chr(10))
 
        Loop
 
    End Sub
 
End Class

bon courage à tous
le papou

23/04/2010, 16h00
methylene

Pas de souci, un peu lourd aussi le code avec le OleDbDataReader.