julio cesar
02 de Julio del 2004

Hola.
Gracias por atender mi cuestion.
EStoy intentando acceder a una base de datos desde visual y no me sale. me dan errores. Como puedo hacerlo.

YO lo que tengo es un boton ,y desde ahi quiero acceder a una base de datos y no puedo.

Depues de hacer esto, quiero hacer que desde otro boton, me abra informes de esa misma base de datos. como puedo hacerlo? gracias.

mansobravo80
02 de Julio del 2004

con esto conectas a una base de datos,lo escribes en un modulo:
Conexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=nombrebasedatos.mdb;Persist Security Info=False"
Conexion.Open

dentro de ella te mueves por recordset:
Dim rstPedido As New ADODB.Recordset
rstPedido.Open "Select * from nombretabla ", Conexion, adOpenStatic, adLockReadOnly, adCmdText


y para abrir informes:
Dim Informe As Access.Application
Set Informe = New Access.Application
Informe.OpenCurrentDatabase (App.Path & "Almacens.mdb")
Informe.DoCmd.OpenReport "nombreinformes", acViewNormal
Informe.CloseCurrentDatabase
Set Informe = Nothing