Imprimir Página - Descomponer una cadena

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:

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

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: oscarmoal en 13 Diciembre 2013, 18:04 pm