Ver Mensaje Individual
  #2 (permalink)  
Antiguo 18/06/2012, 14:45
Avatar de cgonzalezm
cgonzalezm
 
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