Como abrir una Tabla de Acces con VB mediante SQL

hackermarquez
07 de Julio 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



Rey Vargas
07 de Julio del 2004
No te compliques... es facil y rapido

Set BASE = OpenDatabase("\RecepcionCmanufactur ver 5.0DatosDatos.mdb")

Set Clientes = Base.OpenRecordset ("Select Nombre, Direccion, etc FROM TablaClientes Order By Nombre")

Clientes.MoveFirst
with Clientes
Do While Not .EOF
List1.AddItem !Nombre
List1.Text = List1.List(0)
.MoveNext
Loop
End With

Listo, Espero te sirva, cualquier cosa me escribes


Estrambotica
07 de Julio del 2004
' Este te sirve para uno en especifico, luego modificalo con la intruccion donde lo quieres mostrar

Dim SQL As String
Private rsnom As New ADODB.Recordset
SQL = "select * from producto where cod_prod='" & Me.txtFields(0) & "'"
rscomp.Open SQL, dbcomp, adOpenStatic
If rscomp.EOF = False Then
Me.txtFields(1) = rscomp!descripcion
Me.txtFields(2) = rscomp!peso_esp
Me.Combo1 = rscomp!uni_med
Else
MsgBox "Producto no Existe", vbExclamation, "Busqueda"

End If

HackerMarquez
07 de Julio del 2004
Ok Muchas gracia estoy buscando desde hace tiempo de pero nada.

De verda te agradesco
Saludos