urgeeee... como me conecto a bd por dao o rdo a sql server

[Sir Matrix]

Hlaa... como me puedo conectar a una base de datos por rdo...

o por lo menos por dao...


es que tengo que hacerlo en Visual Basic 5.0.....

[pabli]

Varias formas de abrir una conexión con RDO. Falta añadir las referencias. (Sacado de MSDN)

*********************************
Ejemplo de la propiedad Connect y OpenConnection: conexión sin DSN mediante OpenConnection

Dim en as rdoEnvironment
Dim cn as rdoConnection

Set en = rdoEnvironments(0)
Set cn = en.OpenConnection(dsName:="", _
Prompt:=rdDriverNoPrompt, _
Connect:="uid=;pwd=;driver={SQL Server};" _
& "server=SEQUEL;database=pubs;")
debug.print cn.Connect
*********************************
' Crear una conexión sin DSN
' utilizando un objeto rdoConnection autónomo y
' el método EstablishConnection
'
Dim cn As New rdoConnection
Dim qd As New rdoQuery

cn.Connect = "uid=;pwd=;server=SEQUEL;" _
& "driver={SQL Server};database=pubs;" _
& "DSN='';"
cn.cursordriver = rdUseOdbc
cn.EstablishConnection rdDriverNoprompt
debug.print cn.Connect

Set qd.ActiveConnection = cn
*********************************
Ejemplo de la propiedad Connect y OpenConnection: conexión con DSN mediante OpenConnection
El ejemplo siguiente establece una conexión ODBC empleando el método OpenConnection, pero el usuario debe proporcionar toda la información de conexión. En este caso, el ejemplo imprime la propiedad Connect resultante en la ventana Inmediato.

Dim cn As rdoConnection
Dim en As rdoEnvironment

Set en = rdoEnvironments(0)
Set cn = en.OpenConnection(dsName:="WorkDB", _
Prompt:=rdDriverCompleteRequired)
debug.print cn.Connect
*********************************
Ejemplo de la propiedad Connect: conexión DSN mediante EstablishConnection
El ejemplo siguiente establece una conexión ODBC utilizando un DSN registrado para obtener la mayoría de los argumentos necesarios. El Id. de usuario y la contraseña la proporcionan la seguridad administrada de dominio. En este caso, el ejemplo imprime la propiedad Connect resultante en la ventana Inmediato.

Dim cn As New rdoConnection
Dim qd As New rdoQuery

cn.Connect = "uid=;pwd=;"DSN=WorkDB;"
cn.cursordriver = rdUseOdbc
cn.EstablishConnection rdDriverNoprompt
debug.print cn.Connect
*********************************

Saludos
Pablo

[jukaman]

hola...

en vb5:

vas a proyecto > referencias seleccionas DAO y ok

lo que haces con esto es agregar el dao a la biblioteca del proyecto.

luego en el codigo declaras un objeto de base dedatos asi:

Dim dbMiBasededatos as DAO.database

para establecer una conexion a una base de datos....

SET dbMiBasededatos = dbengine.opendatabase("c:\proyecto.mdb")


*esta es la foma mas sencilla de conectarte...

suerte!

[Sir Matrix]

Muchas gracias!!

Con los códigos de pabli tengo para regodearme, pero no me funciona ninguno

Me da el mismo error:


"error 429 en tiempo de ejecución
El componente ActiveX no puede crear el objeto"

Y me da ese error acá:

--------------------------------------------
Dim cn As New rdoConnection
Dim qd As New rdoQuery

cn.Connect = "uid=;pwd=;server=Maitenes2;" _ ' <------- acá
& "driver={SQL Server};database=vacunas;" _
& "DSN='';"
cn.CursorDriver = rdUseOdbc
.. etc, etc...

--------------------------------------------
Qué %$#!!@ será?????



Saludos y gracias

[pabli]

Sir,

los DSN no me gustan pero para probar están bien. Crea un DSN de usuario o sistema, el que quieras y pruebas las conexión desde allí.
Te ha funcionado? Si, pues ya sabemos que el problema no está allí. Seguimos, este ejemplo es el mejor para probarlo. Si pasándole el DSN que te ha funcionado te da el mismo error, el problema es el código. Has agregado las referencias de RDO? Si lo has hecho y nada, actualiza las librerías de acceso a datos MDAC de la web de Microsoft.

****************************
Ejemplo de la propiedad Connect y OpenConnection: conexión con DSN mediante OpenConnection
El ejemplo siguiente establece una conexión ODBC empleando el método OpenConnection, pero el usuario debe proporcionar toda la información de conexión. En este caso, el ejemplo imprime la propiedad Connect resultante en la ventana Inmediato.

Dim cn As rdoConnection
Dim en As rdoEnvironment

Set en = rdoEnvironments(0)
Set cn = en.OpenConnection(dsName:="WorkDB", _
Prompt:=rdDriverCompleteRequired)
debug.print cn.Connect
****************************

Un saludo
Pablo

[Sir Matrix]

Holaaa, gracias por el código (auqnue estaba en los de arriba también... Ahora estoy seguro que no es nada relacionado con la base de datos, la cosa se cae en:

Dim cn As rdoConnection
Dim en As rdoEnvironment

Set en = rdoEnvironments(0) ' <---- ACA SE CAEEEEEE
Set cn = en.OpenConnection(dsName:="WorkDB", _
Prompt:=rdDriverCompleteRequired)
debug.print cn.Connect


Osea al setear el en con rdoEnviroments(0) ... y me dice lo de los active X:

"error 429 en tiempo de ejecución
El componente ActiveX no puede crear el objeto"
>!!


Ya bajé e instalé los MDAC y nada.... ahora estoy instalando un service pack de office........ en un intento desesperado


Bueno muchas gracias(Y)

[pabli]

Sir,

tiene que ser con RDO?

Si me dices que ADO te vale el asunto se arregla ya.

Saludos
Pablo

[Sir Matrix]

Hola Pabli, pero tengo entendido que ADO no funciona en Visual 5.0 ???

o me equivoco_O?

[pabli]

Sir,

con la versión 5 de VB puedes utilizar ADO 1.5c, aunque podrías probar con otras más modernas por si acaso. De todas formas hagamos caso a los libros he intenta conseguir la 1.5c

Saludos
Pablo

[pabli]

Me acabo de dar cuenta que para VB6 se utilizan las versiones de ADO 2.x, ahora mismo va por la 2.9

Saludos