Access - bases de datos

 
Vista:

bases de datos

Publicado por maria de los angeles (1 intervención) el 28/09/2003 17:19:58
deseo saber como enlazar una base de datos en access con visual, gracias por responder
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:bases de datos

Publicado por Gustavo V (19 intervenciones) el 28/09/2003 18:48:27
Con DAO
Sub OpenDatabaseX()

Dim wrkJet As Workspace
Dim dbsNeptuno As Database
Dim dbsEditores As Database
Dim dbsEditores2 As Database
Dim dbsBucle As Database
Dim prpBucle As Property

' Crea un objeto Workspace Microsoft Jet.
Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)

' Abre para uso en modo exclusivo el objeto Database de
' una base de datos Microsoft Jet guardada.
MsgBox "Abriendo Neptuno..."
Set dbsNeptuno = wrkJet.OpenDatabase("Neptuno.mdb", _
True)

con ADO
Public Sub ConnectionStringX()

Dim cnn1 As ADODB.Connection
Dim cnn2 As ADODB.Connection
Dim cnn3 As ADODB.Connection
Dim cnn4 As ADODB.Connection

' Abre una conexión sin utilizar un nombre de origen de datos (DSN).
Set cnn1 = New ADODB.Connection
cnn1.ConnectionString = "driver={SQL Server};" & _
"server=bigsmile;uid=sa;pwd=pwd;database=pubs"
cnn1.ConnectionTimeout = 30
cnn1.Open

' Abre una conexión mediante un nombre DSN y etiquetas ODBC.
Set cnn2 = New ADODB.Connection
cnn2.ConnectionString = "DSN=Pubs;UID=sa;PWD=pwd;"
cnn2.Open

' Abre una conexión mediante un nombre DSN y etiquetas OLE DB.
Set cnn3 = New ADODB.Connection
cnn3.ConnectionString = "Origen de datos=Pubs;Id. de usuario=sa;Contraseña=pwd;"
cnn3.Open

' Abre una conexión mediante un nombre DSN y argumentos individuales
' en vez de una cadena de conexión.
Set cnn4 = New ADODB.Connection
cnn4.Open "Pubs", "sa", "pwd"
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