Miriam
09 de Octubre del 2003

Hola tengo un problema pues declaro una bd asi
Dim BD As Database
Dim registro As Recordset
Set BD = OpenDatabase("c:bdsventas.mdb")
Set registro = BD.OpenRecordset("compras")
y me marca error que no coinciden los tipos en esta linea
Set registro = BD.OpenRecordset("compras")
ya agregue la dao library 3.51
ya cheque y todo esta bien, que me falta agregar?
Gracias!

Alejandro
09 de Octubre del 2003

Mira yo he trabajado con ODBC (origen de datos), me parece mas sencillo, yo trabajo con VB6, para ello te doy un ejemplo, si te es de ayuda en buena hora.

dim gcnn as new adodb.connection
dim rdsx as new adodb.recordset
dim strsql as string

sub ejemplo
connstr = "uid=usuario;pwd=clave;DSN=odbcventas;"
'Inicializa la conexion con la base de datos con rds
Set gcnn = New ADODB.Connection
gcnn.ConnectionString = connstr
gcnn.CursorLocation = adUseClient
gcnn.Open
strsql = "select * from compras"
If rsx.State = adStateOpen Then rsx.Close
rsx.Open StrSql, gl00cnnrds, adOpenForwardOnly, adLockOptimistic
If rsx.EOF = False Then
msgbox "No hay datos"
else
msgbox "si hay datos"
end if


end sub

Baltasar
09 de Octubre del 2003

No encuentro ningún fallo en lo que has escrito.

Lo único que se me ocurre es que estés llamando a una consulta almacenada en la base de datos, que tenga por nombre "compras", y que ésta genere a su vez un error.

No sé si me he explicado.