SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: laux en Martes 19 de Abril de 2005, 04:37

Título: Ayuda Para Acceso A Base De Datos
Publicado por: laux en Martes 19 de Abril de 2005, 04:37

hola, un problemita  .. tengo vb 6.0 y access 2003 y pongo este codigo desde un modulo de clase principal (cpBase  = con 3 funciones abre la bd de tres formas .. dynaset, snapshop.. etc).. y me da error en la definicion de "cpbase as new database"...  sera algo especial q las bases de datos no se definfen asi para access 2003 o q ????

les paso el cod.

Private mbase As Database    :( aqui da error

Private Sub Class_Initialize()
    Set mbase = abrirbase(App.Path & "C:\BalanzaNavios\Navios.mdb")
End Sub

mil gracias...

LAUX

Título: Re: Ayuda Para Acceso A Base De Datos
Publicado por: FRIJU en Martes 19 de Abril de 2005, 07:04

Public DB As ADODB.Connection

Public Sub Opendb()

    Set DB = New ADODB.Connection
DB.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=PATH Y NOMBRE DE LA BASE DE DATOS.mdb;Persist Security Info=False")

END SUD

CADA VEZ QUE QUIERAS ACCEDER HACES UNA LLAMADA AL MODULO

CALL Opendb