Visual Basic - consulta SQL desde visual con Access

Life is soft - evento anual de software empresarial
   
Vista:

consulta SQL desde visual con Access

Publicado por Borja (7 intervenciones) el 05/08/2008 12:46:33
Me gustaria saber como puedo sacar resultados a un listbox con una consulta SQL que realice contra una base de datos que esta en Access. Para acceder a la base de datos y a la tabla que deseo hago lo siguiente:

'abrimos la base de datos
Set db = OpenDatabase(App.Path & "ase_datosGes_club.mdb")

'para elegir la tabla
Set jg = db.OpenRecordset("alta")

A partir de aqui es donde necesito ayuda para poder hacer la consulta y guardar los resultados en un listbox. Soy un poco novato asi que agradeceria mucho que me lo indicaseis con un ejemplo. Gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:consulta SQL desde visual con Access

Publicado por Pedro Luis (878 intervenciones) el 05/08/2008 17:31:53
Si no neceitas usar jg puedes hacer
Set jg=de.openrecordset("Select * from tabla where Condiciones")
en caso contrario define otro Recordset y lo mismo
Dim Aux as Recordset
set aux=bd.openrecordset("Select ......")
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:consulta SQL desde visual con Access

Publicado por Borja (7 intervenciones) el 06/08/2008 16:03:33
gracias. pero como mando los datos que me de la consulta al listbox.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:consulta SQL desde visual con Access

Publicado por Luis Roberto  (1 intervención) el 04/10/2008 06:15:13
Porque no usas un combobox que es mejor a mi me sirvio

aux1 = "'" + dtcarti.Text + "'"(si es alfa)
rs1.Open "Select * from tipoart where tptipo = " & aux1 & ""
If Not rs1.EOF Then
txtcod = rs1!tpnum
txtdesc = rs1!tpdesc

End If
rs1.Close
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar