Autor
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
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
En línea
