Visual Basic.NET - crear archivo txt, con los datos de un DataGridView

   
Vista:

crear archivo txt, con los datos de un DataGridView

Publicado por Oscar (2 intervenciones) el 12/12/2013 16:43:01
Hola,

Son mis primeros pasos y aún me cuesta trabajo entender algunas cosas, espero puedan ayudarme, lo que estoy tratando de hacer es que los datos que obtengo de una consulta sql, los visualizo en un DataGridView y de allí los mando a un archivo txt, pero lo que deseo es mandar cada registro campo por campo y poderle dar formato a mi archivo de texto, porque tal como guardo los registros actualmente, se envían las filas separadas por tabulador pero lo que deseo es que cada fila lleve un separador entre los campos y no tenga espacios de tabulador,

1 OscarMorenoAlvarez15/02/2003 12:00:00 a. m. (fila actual)

|1|Oscar|Moreno|Alvarez|15/02/2003|12:00:00 a. m.| (Fila que quiero conseguir)

el código que utilizo es el siguiente

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
Imports System.Data.SqlClient
Public Class Form1
    Dim dt As New DataSet
    Dim dt2 As New SqlDataAdapter
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim servidor As String
        Dim basededatos As String
        servidor = "OMORENO"
        basededatos = "DBVentas"
        conexion(servidor, basededatos)
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim datillos As SqlDataAdapter
        Dim sql As String
        Dim dt As New DataSet
        sql = "SELECT * FROM TUsuario WHERE Nombre='" & TextBox1.Text & "'"
        datillos = New SqlDataAdapter(sql, miconexion)
        datillos.Fill(dt)
        DataGridView1.DataSource = dt.Tables(0)
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        SaveIt.InitialDirectory = "C:\TXT"
        SaveIt.FileName = "temp.txt"
        SaveIt.Filter = "Archivos de Texto (*.txt)| *.txt"
        SaveIt.ShowDialog()
        'Generando el archivo
        Dim w As New IO.StreamWriter(SaveIt.FileName)
        ' AGREGANDO LAS COLUMNAS
        Dim col As String = ""
        ' AGREGANDO LAS FILAS
        Dim row As String = ""
        Dim i As Integer = 0
        For Each r As DataGridViewRow In DataGridView1.Rows
            For Each c As DataGridViewColumn In DataGridView1.Columns
 
                row = row & Convert.ToString(r.Cells(c.HeaderText).Value)
            Next
            If i < DataGridView1.Rows.Count - 1 Then row &= Environment.NewLine
        Next
 
        'AGREGANDO LA INFORMACION
        w.WriteLine(row)
        w.Close()
    End Sub
End Class

si pudieran darme una mano, les agradeceré

saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de giancarlo

crear archivo txt, con los datos de un DataGridView

Publicado por giancarlo (280 intervenciones) el 28/10/2014 16:32:23
puedes adaptar lo siguiente

1
2
3
4
5
dim fila As List(Of String)
Dim sw As IO.StreamWriter = New IO.StreamWriter(archivo, False, System.Text.Encoding.Default)
For Each ele As String In fila
    sw.WriteLine(ele)
Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar