Visual Basic - EJECUTAR CONSULTA DE ACCESS DESDE VISUAL BASIC

Life is soft - evento anual de software empresarial
 
Vista:

EJECUTAR CONSULTA DE ACCESS DESDE VISUAL BASIC

Publicado por Dario (24 intervenciones) el 29/09/2006 17:49:36
HOLA!!!

si alguien me puede ayudar con esto????

necesito ejecutar unas consultas de seleccion,actualizacion y creacion de tabla en access pero desde visual basic 6.
osea un codigo de basic que ejecute la consulta que esta en la base de access!!!!

desde ya muchas gracias!!!!
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:EJECUTAR CONSULTA DE ACCESS DESDE VISUAL BASIC

Publicado por jona (25 intervenciones) el 29/09/2006 18:39:34
Dim cnn as ADODB.conection
Dim rst as ADODB.recordset

Private sub Conexion_Access()

' Conexion de Visual Basic - Access 2000 - XP
Set cnn = New ADODB.Connection

' Especificacion del nombre del proveedor OLEDB a usar
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"

' Abre la conexion al origen de datos
cnn.Open "C:\Mi_BASE_DATOS.mdb"

End Sub

Private sub Consulta_Simple()

sSQL = "SELECT campo1, campo2 from MiTabla"

Set rst = New ADODB.Recordset
rst.Open sSQL, cnn, adOpenKeyset, adLockOptimistic
Do Until rst.EOF = True

text1.text = "" & rst.Fields("Direccion")
text2.text = "" & rst.Fields("Id_Empresa")

rst.MoveNext
Loop
rst.Close:
Set rst = Nothing

End Sub


Ojala te sirva,
Saludos
Jonathan
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:EJECUTAR CONSULTA DE ACCESS DESDE VISUAL BASIC

Publicado por dansan (53 intervenciones) el 12/10/2006 20:50:40
Hola:

probe el codigo y no muestra nada????.
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