problemas es busquedas selectivas
Publicado por saul (2 intervenciones) el 18/11/2016 20:32:38
hola buenas tardes, espero que me puedan ayudar tengo un problema con este codigo
los siguientes codigos funcionan perfectamente:
mi proble ma radica cuando el pimer codigo lo quiero asiganar un bucle no imprime nada
o al segundo le quiero asignar una variable me marca Error '3021', El valor de EOF o BOF es true, o el actual regristro se elimino la operacion solicitada requiere un registro actual
los siguientes codigos funcionan perfectamente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim s1 As String ' variable local
ListView1.ListItems.Clear
s1 = Ortega ' se asigna cadena
If rs.State = 0 Then
rs.Open "select *from contactos where Apellido =' " & s1 & " ' ", cn
End If
rs.MoveFirstDim li As ListItem
Set li = ListView1.ListItems.Add(, , rs("Nombre"))
li.ListSubItems.Add , , rs("Apellido")
rs.MoveNext' esta linea se carga en form_load
rs.Open "select*from contactos", cn
///////////////////////////////////////////////////////////////////////////////////////////////////
If rs.State = 0 Then
rs.Open "select *from contactos where Apellido = 'Ortega' ", cn
End If
rs.MoveFirstDim li As ListItem
While rs.EOF = False
Set li = ListView1.ListItems.Add(, , rs("Nombre"))
li.ListSubItems.Add , , rs("Apellido")
rs.MoveNextWend
mi proble ma radica cuando el pimer codigo lo quiero asiganar un bucle no imprime nada
o al segundo le quiero asignar una variable me marca Error '3021', El valor de EOF o BOF es true, o el actual regristro se elimino la operacion solicitada requiere un registro actual
Valora esta pregunta
0
