Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

alguien recuerda como era la sintaxis en dao para conectar a sql server

46 views
Skip to first unread message

Omar Walter Estran

unread,
Jun 2, 2009, 4:58:13 PM6/2/09
to
hola grupo tengo hecho hace mucho una aplicacion en hecha en access xp con
tecnolgia DAO y como esta aplicacion parace ser que la quieren usar cinco
persona se me ocurrio hacer un proyecto en access bien lo hice y lo meti en
un sql server 2000 que tenemos por ahi hace a�os pero que funciona perfecto
pero me tira un error el siguiente codigo qu e expongo y la verdad que con
todo lo lios que tenemos no tengo ganas de rehacer el proyectos asi que
acudo a ustedes como mis salvadores para ver si alguien se acuerda o sabe de
donde sacar un ejemplo desde ya gracias y saludos desde la argentina

O.W.E.
Dpto de Sistemas


'Aca van las variables de base de datos y registros'
Dim Db As Database
Dim RS As Recordset
Dim Temp As Long
Dim Vcontrol As Boolean
'Se establece la referencia a la base de datos'
Set Db = CurrentDb()
'Se establece la referencia la conjunto de registros'
Set RS = Db.OpenRecordset("REMITENTES", dbOpenDynaset) Aca me tira el error
'Se establece la variable a 0'
Temp = 0
'Se establece el bucle'
Do Until RS.EOF Or Vcontrol = True
Temp = Temp + 1
If Val(RS![Codigo]) > Temp Then
Vcontrol = True
Else
RS.MoveNext
End If
Loop
If Vcontrol = False Then
Temp = Temp + 1
End If
'Se cierran la referencias'
RS.Close
Db.Close
'Se hace referencia a los campos que se utilizan'
Me.Codigo = Format$(Str(Temp), "0000")
Me.FqsG = Me.F
Me.HqsG = Me.H
Me.TqG = Me.T
Me.UqG = Me.U


José Mª Fueyo

unread,
Jun 3, 2009, 3:43:01 AM6/3/09
to
Hola OWE
Sería de gran ayuda que nos dijeras que error te da (la bola de cristal se
ha quedado sin pilas, ya sabes... ;-))
Sí te fijas, tando DAO como ADO tienen objetos con igual nombre. Uno de
ellos es recordset. Es posible que el compilador crea que el objeto recordset
que has declarado sea de ADO en lugar de DAO.
¿Solución? es una declaración explicita de tipo: librería y objeto

Dim RS As ADODB.Recordset 'en el caso de DAO sería DAO.Recordset

Salu2
--
José Mª Fueyo
[MS MVP Access]

Omar Walter Estran

unread,
Jun 3, 2009, 9:03:43 AM6/3/09
to
Gracias jose como siempre por contestarme compa�ero, el error que me tira es
el error 91 en tiempo de ejecucion que dice :

Variable de objeto o bloque with no establecido y se muere en donde te dije
anteriormente acordate que es un proyecto se debe conectar a al sql server
2000 desde ya gracias y saludos desde aregntina.


O.W.E.
Dpto de Ssitemas


José Mª Fueyo

unread,
Jun 4, 2009, 3:56:01 AM6/4/09
to
Hola
Entiendo que tienes las tablas vinculadas ¿no? ¿has probado a declarar los
objetos de tipo DAO como DAO.TipoDeObjeto?

Eva

unread,
Jun 9, 2009, 8:44:09 AM6/9/09
to
Hola Owe

Me temo que vas a tener que cambiar el acceso de DAO a ADO. Y si no,
tendr�s que volver a MDB y acceder mediante ODBC.

�chale un vistazo a este documento que lo explica muy clarito
http://personales.unican.es/ZORRILLM/PDFs/Docencia/BasesDatos/proyectos%20ADP%20de%20Access%20vs%20tablas%20vinculadas.pdf

Un saludo

Eva

"Omar Walter Estran" <o...@integralexpress.com> escribi� en el mensaje
news:%23SydQuE...@TK2MSFTNGP03.phx.gbl...

0 new messages