Spanish ListView:como puedo enlazar el nombre y apellidos de una base de datos en una sola linea

Discussion in 'Spanish Forum' started by enmaber, Aug 19, 2016.

  1. enmaber

    enmaber Member

    Estoy intentando cargar en un ListView los nombres y apellidos de una base de datos. Puedo mostrar una sola columna: los apellidos, pero no puedo cargar en la misma linea (ni en dos) los nombres.


    Sub btn_alta_Click
    Panel1.Visible=False
    If txt_nombre.Text<>"" Then
    s.ExecNonQuery2("INSERT INTO Fila (rowid, nombre, apellidos) VALUES(NULL, ?,?)", Array As String(txt_nombre.Text, txt_apellidos.Text))

    c=s.ExecQuery("SELECT apellidos FROM Fila ORDER BY apellidos ASC")
    lv.Clear

    If c.RowCount>0 Then
    For i=0 To c.RowCount-1
    c.Position=i
    lv.AddSingleLine(c.GetString("apellidos"))

    Next
    End If

    txt_nombre.Text=""
    End If
    btn_nuevo.Visible=True
    lv.Visible=True
    End Sub
     
  2. emvpic

    emvpic Member Licensed User

    Hola enmaber.
    Prueba esto:

    Code:
    Sub btn_alta_Click
    Panel1.Visible=
    False
    If txt_nombre.Text<>"" Then
    s.ExecNonQuery2(
    "INSERT INTO Fila (rowid, nombre, apellidos) VALUES(NULL, ?,?)"Array As String(txt_nombre.Text, txt_apellidos.Text))

    c=s.ExecQuery(
    "SELECT apellidos FROM Fila ORDER BY apellidos ASC")
    lv.Clear

    If c.RowCount>0 Then
    For i=0 To c.RowCount-1
    c.Position=i
    Dim no as string
    Dim ap as string
    no=c.GetString(
    "nombre")
    ap=c.GetString(
    "apellidos")
    lv.AddSingleLine(no & 
    " " & ap)

    Next
    End If

    txt_nombre.Text=
    ""
    End If
    btn_nuevo.Visible=
    True
    lv.Visible=
    True
    End Sub
     
  3. enmaber

    enmaber Member

    muchas gracias
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice