Mensajes

Tienes razón, se resolvió.

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

Código [Seleccionar] Expandir

Imports System.Data
Imports System.Data.SqlClient
Imports System.IO

Public 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.

No seas malo puedes darme un ejemplo

Buenas tengan todos

Tengo un pequeño problema que no he podido resolver y espero puedan darme una mano, lo que necesito es formar una cadena con los campos de una tabla de una bd en sql server, algo como esto

cadena = campo1 & "otra cosa" & campo2 & "otra cosa" & ......

Hasta ahora lo que he hecho es hacer la conexión poner los datos en un datagridview y guardar cada registro en una variable (row), e irla escribiendo, pero no puedo intercalar nada dentro de esa cadena e incluso intente con subString pero no me ha funcionado

Les dejo mi código

Código [Seleccionar] Expandir

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 Usuario WHERE Nombre='" & TextBox1.Text & & "' AND FechaNacimimento  BETWEEN '20131201' AND '20131215'"
        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
               
               'VARIABLE QUE ALMACENA TODOS LOS CAMPOS DE LA TABLA
                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

Gracias y un saludo