consulta loop DB, ¿como hacerlo?
Publicado por Tuchel (2 intervenciones) el 13/04/2017 20:41:39
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
dim i as integer
form_load
i = 1'Abrimos la base de datos
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=\\SERVIDOR\Documentos\Cooptrans.mdb"
rs.Source = "const" 'Especificamos la fuente de datos. En este caso la tabla "contactos".
rs.CursorType = adOpenKeyset 'Definimos el tipo de cursor.
rs.LockType = adLockOptimistic 'Definimos el tipo de bloqueo.
rs.Open "select * from Const WHERE Nu =1", cn 'Abrimos el Recordset y lo llenamos con una consulta SQL.
rs.MoveFirstCo1 = rs("Co")
rs.Closers.Open "select * from Const WHERE Nu =2", cn
Co2 = rs("Co")
rs.Closers.Open "select * from Const WHERE Nu =3", cn
Co3 = rs("Co")
rs.CloseEsto me funciona pero son 28 registros quisiera saber si hay forma de hacer un loop o algo como esto:
1
2
3
4
5
6
7
8
9
Do While i < 29 If i = 28 ThenExit Do
End If
rs.Open "select * from Const WHERE Nu = i ", cn 'Abrimos el Recordset y lo llenamos con una consulta SQL.
Co(i) = rs("Co")
i = i + 1
rs.closeLoop
Eso no funciona pues no se como hacer que el nombre de la variable aunmente con "i", ni que la consulta funcione con dicha variable.
Espero mas o menos se entienda lo que deseo hacer y si hay una forma diferente de simplificarlo me puedan ayudar .
Gracias
Valora esta pregunta
0
