mr_bungle22
32 Mensaje(s)
|
| Enviado - 13/10/2004 |
| |
vb6 y access...
estoy trabajando en un programa que realiza consultas en una bdd..
los resultados tienen que salir en una mshflexgrid..., si pregunto por los usuarios que viven en "santiago" los tiene que listar, pero si despues pregunto por los usuarios que viven en "recoleta" me los tiene que listar despues de los de santiago..... por el contrario me borra los usuarios de santiago y agrega a los de recoleta...
como puedo solucionar esto??
------------------------------
ssqlg = "select * from datoscli where comuna LIKE ' " & Label1 & "%'"
rcsg.Open ssqlg, cnng
With gridTest
' .Clear
.Rows = 1
.Row = 0
.Col = 0
.Text = "Evento"
.Col = 1
.Text = "Local"
.Col = 2
.Text = "mantisa"
.Col = 3
.Text = "DV"
.Col = 4
.Text = "Nombre"
.Col = 5
.Text = "Apellidos"
.Col = 6
.Text = "sexo"
.Col = 7
.Text = "Direccion"
.Col = 8
.Text = "Comuna"
.Col = 9
.Text = "F. nacimiento"
.Col = 10
.Text = "Telefono"
.Col = 11
.Text = "e-Mail"
.Col = 12
.Text = "Nº Boleta"
.Col = 13
.Text = "X"
.Col = 14
.Text = "Y"
If rcsg.EOF = False Then
Do
.Rows = .Rows + 1
If .Rows > 2 Then
.Row = .Row + 1
Else
.Row = 1
End If
.Col = 0
.Text = rcsg!evento
.Col = 1
.Text = rcsg!localx
.Col = 2
.Text = rcsg!ci
.Col = 3
.Text = rcsg!dv
.Col = 4
.Text = rcsg!nombre
.Col = 5
.Text = rcsg!apellidos
.Col = 6
.Text = rcsg!sexo
.Col = 7
.Text = rcsg!direccion
.Col = 8
.Text = rcsg!comuna
.Col = 9
.Text = rcsg!fechanac
.Col = 10
.Text = rcsg!telefono
.Col = 11
.Text = rcsg!email
.Col = 12
.Text = rcsg!nboleta
.Col = 13
.Text = rcsg!x
.Col = 14
.Text = rcsg!y
rcsg.MoveNext
Loop Until rcsg.EOF
Else
' .Clear
.Rows = 1
.Row = 0
End If
rcsg.Close
End With
valida:
If Err.Number = 93 Then
MsgBox " Accion cancelada", vbInformation
Exit Function
End If
Resume Next
--------------------------------------------------- |
| |
|
