hackermarquez
22 de Junio del 2004

Hola a todo el foro alguien podría indicarme como puedo hacer para abrir una base de datos con SQL y mostrar todos esos datos en un list

Yo los utilizo del siguiente medio

List4.Clear
Set BASE = OpenDatabase("\RecepcionCmanufactur ver 5.0DatosDatos.mdb")
Set CLIENTE = BASE.OpenRecordset("tutor")
CLIENTE.Index = "TUTOR"
Buscar = "*" & UCase(CLIENT) & "*"
Do While Not CLIENTE.EOF
If UCase(CLIENTE.EMPRESA) Like Buscar Or CLIENTE.COD = Val(CLIENT) Then
List4.AddItem CLIENTE.COD & ". " & CLIENTE.EMPRESA
End If
CLIENTE.MoveNext
Loop

El problema de este medio es que es muy lento y creo que puede poner en peligro mi base de datos, agradezco la ayuda que me puedan brindar

Si lo desean pueden enviarme algo de codigo que me puedan servir, mi direccion es
[email protected] o [email protected]


Saludos a todos
Atentamente,

Hacker Marquez