Visual Basic - Como hacer un ADO

Life is soft - evento anual de software empresarial
 
Vista:

Como hacer un ADO

Publicado por Daniel Hercules (34 intervenciones) el 31/01/2003 03:14:03
Necesito que alguien me pase documentacion detallada como para un principiante de como hacer un ADO control y como conectar el VB con una base de datos hecha en Acces. Cual quier documentacion me la pueden mandar al mail.

Espero sus Respuestas, y Gracias de antemano a quien me brinde la ayuda.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como hacer un ADO

Publicado por Mari (1 intervención) el 31/01/2003 16:58:45
Para trabajar con ADO lo primero que tienes que hacer es:
- En el menú de vb seleccionas la opción Proyecto - Referencias y seleccionas: Microsoft ActiveX Data Objects 2.5 Library o la versión que tengas a disposición.
Luego en el código, en el Form_Load debes escribir lo siguiente ,fíjate en cambiar la ruta donde tengas tu proyecto y la tabla a usar:
Const sPathBase As String = "C:/PruebasVBasic2/basededatos.mdb"
'
' Crear los objetos
Set conexion = New ADODB.Connection
Set datos = New ADODB.Recordset
'
' Crear la conexión manualmente
' Usar "Provider=Microsoft.Jet.OLEDB.3.51;" para bases de Access 97
' Usar "Provider=Microsoft.Jet.OLEDB.4.0;" para bases de Access 2000
With conexion
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sPathBase & ";"
.Open
End With
' Indicarle de que tabla vamos a leer los datos
datos.Open "SELECT * FROM gentio", conexion, adOpenDynamic, adLockOptimistic
.
.
.
Espero te sea de mucha utilidad, bye;
Mari.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como hacer un ADO

Publicado por fernando.gomez (143 intervenciones) el 31/01/2003 20:09:54
Una solucion alternativa a la que te plantea Mari es a traves de un ODBC. una vez que lo des de alta, utilizas

dim obRecordset as new ADODB.Recordset
dim szSQL as string
rem si no tienes referencias, utiliza _
dim obRecordset as object _
set obRecordset = CreateObject("ADODB.Recordset")
szSQL = "select * from TABLA1 where ID = 8"
obRecordset.Open szSQL, "DSN=MiODBC; UID=tuUser;" & _
"PWD=tuPassword"
rem y ya lo utilizas en lo que quieras
miVar = obRecordset("CAMPO1")
rem ...
set obRecordset = nothing
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar