18/06/2012, 14:45
|
| | | Fecha de Ingreso: junio-2012
Mensajes: 55
Antigüedad: 12 años, 5 meses Puntos: 13 | |
Respuesta: Concatenar registros de dos bases de datos en un textbox Debes ocupar +=
Código:
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim reader As SqlDataReader
Dim conn As SqlConnection = New SqlConnection("server=(local);database=extractor;User ID=adm;Password=adm;Trusted_Connection=no")
Dim sql2 As String = "SELECT nombre FROM Trabajador"
Dim dr As New SqlCommand(sql2, conn)
conn.Open()
reader = dr.ExecuteReader()
If reader.Read() Then
Text_Folio.Text = CStr(reader("nombre")).ToString
//Este es el campo que quiero concatenar con el mismo textbox que pongo más abajo con el mismo nombre
reader.Close()
conn.Close()
Dim reader3 As SqlDataReader
Dim conn3 As SqlConnection = New SqlConnection("server=(local);database=DBPrueba;User ID=adm;Password=adm;Trusted_Connection=no")
Dim sql3 As String = ("SELECT clave FROM Reemplazos")
Dim dr3 As New SqlCommand(sql3, conn3)
conn3.Open()
reader3 = dr3.ExecuteReader()
If reader3.Read() Then
Text_Folio.Text += CStr(reader3("clave")).ToString()
//Así se concatena
End If
reader3.Close()
conn3.Close()
End Sub
|