primera línea en un txt (SqlDataReader)
Publicado por Oscar (2 intervenciones) el 17/12/2013 19:29:43
Hola a todos,
Tengo un pequeño al problema, estoy cargando en un SqlDataReader el contenido de un procedimiento almacenado, para escribirlo en un archivo txt, el código funciona sin embargo la falla es que lo que se graba en el archivo corresponde del registro 2 hasta el final y no se que pasa con el registro uno, simplemente no lo graba, esto es lo que hace
|02|Sofia||Lopez|Nuñez|12/12/2013|
|03|Alejandro||Quiróz|Chávez|10/12/2013|
|04|Rosa||Ramirez|Pérez|10/12/2013|
y como tendría que quedar
|01|Oscar||Moreno|Alvarez|13/12/2013|
|02|Sofia||Lopez|Nuñez|12/12/2013|
|03|Alejandro||Quiróz|Chávez|10/12/2013|
|04|Rosa||Ramirez|Pérez|10/12/2013|
acá esta el código
Cualquier ayuda será muy valiosa, saludos.
Tengo un pequeño al problema, estoy cargando en un SqlDataReader el contenido de un procedimiento almacenado, para escribirlo en un archivo txt, el código funciona sin embargo la falla es que lo que se graba en el archivo corresponde del registro 2 hasta el final y no se que pasa con el registro uno, simplemente no lo graba, esto es lo que hace
|02|Sofia||Lopez|Nuñez|12/12/2013|
|03|Alejandro||Quiróz|Chávez|10/12/2013|
|04|Rosa||Ramirez|Pérez|10/12/2013|
y como tendría que quedar
|01|Oscar||Moreno|Alvarez|13/12/2013|
|02|Sofia||Lopez|Nuñez|12/12/2013|
|03|Alejandro||Quiróz|Chávez|10/12/2013|
|04|Rosa||Ramirez|Pérez|10/12/2013|
acá esta el código
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
Imports System.DataImports System.Data.SqlClient
Imports System.IOPublic Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim cn As New SqlConnection("Server=OMORENO;Database=DBVentas;Integrated Security=True;")
Dim cmd As New SqlCommand("TraerDatos", cn)
Dim dr As SqlDataReader
cn.Open()
Try
cmd.CommandType = CommandType.StoredProcedure
dr = cmd.ExecuteReader()
Dim strStreamW As Stream
Dim strStreamWriter As StreamWriter
dr.Read()
Dim FilePath As String = "C:\Users\Oscar Moreno\Desktop\prueba.txt"
strStreamW = File.OpenWrite(FilePath)
strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.UTF8)
'AGREGANDO LA INFORMACION
While dr.Read()
strStreamWriter.WriteLine("|" & CStr(dr("DNIUsuario")) & "|" & campo1 & "||" & (CStr(dr("ApellidoPaterno"))) & "|" & (CStr(dr("ApellidoMaterno"))) & "|" & (CStr(dr("FechaNacimimento"))) & "|")
End While
strStreamWriter.Close()
dr.Close()
cn.Close()
Catch ex As Exception
MsgBox(ex.Message.ToString)
cn.Close()
End Try
End Sub
End Class
Cualquier ayuda será muy valiosa, saludos.
Valora esta pregunta
0