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

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
 

emvpic

Member
Licensed User
Longtime User
Hola enmaber.
Prueba esto:

B4X:
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
 
Top