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
si pudieran darme una mano, les agradeceré
saludos
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.Columnsrow = 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
0
