Visual Basic - Conetarse a una Base de DAtos access con ADO

Life is soft - evento anual de software empresarial
 
Vista:

Conetarse a una Base de DAtos access con ADO

Publicado por poncho (1 intervención) el 07/02/2007 15:42:35
Hola, estoy migrando a ADO....

Mi duda es, como me conecto a una BDD Access ?

Esta es la declaracion:

Public miBase As Connection
Set miBase = New Connection

Ahora bien, e visto que en algunos programas ponen esto para lo localizar la Base de Datos:

miBase.Open ("PROVIDER=MICROSOFT.JET.OLEDB.3.51")

El problema es que no se como hacer la coneccion a mi base de datos. Yo utilizo una variable para guardar el path de donde se localiza la BDD.

BDDRuta = C:\BDDoptim.mdb

Como seria la syntaxis en mi caso ?

Gracias!
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:Conetarse a una Base de DAtos access con ADO

Publicado por Prisci (5 intervenciones) el 07/02/2007 16:04:47
Dim miBase As ADODB.Connection
Set miBase = New ADODB.Connection
miBase.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & BDDRuta

Si quereis poner la conexion como Public la poneis en un modulo .bas
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:Conetarse a una Base de DAtos access con ADO

Publicado por poncho (1 intervención) el 07/02/2007 16:34:09
Gracias !

Ya pude conectarlo, tendre mas dudas porque estoy empezando a utilizar este moter, si luego me pueder ayudar te lo agradecere !
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

Otra duda mas !

Publicado por poncho (1 intervención) el 07/02/2007 16:40:14
Esto lo hacia con DAO:

For temp = 0 To miBase.TableDefs.Count - 1
If miBase.TableDefs(temp).Name = "Datos" Then
Resp = True
End If
Next temp

lo que hace, es buscarme la tabla DATOS y si la encuetra inicializa la variable, como podria hacer eso en ADO ?

saludos
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:Otra duda mas !

Publicado por Prisci (5 intervenciones) el 07/02/2007 17:04:31
Dim rs As ADODB.Recordset
Set rs = miBase.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
Do Until rs.EOF
If rs("TABLE_NAME") = "Datos" Then
Resp = True
Exit For
End If
Loop
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

Gracias

Publicado por Poncho (1 intervención) el 07/02/2007 17:13:15
:D

GRACIAS!!!
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