Visual Basic - Visual basic 6 + access 2000??

Life is soft - evento anual de software empresarial
 
Vista:

Visual basic 6 + access 2000??

Publicado por Sergio (3 intervenciones) el 22/03/2001 15:00:21
¿Cómo hago para abrir una base mdb 2000 con vb 6?
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:Visual basic 6 + access 2000??

Publicado por Mario Ramos (4 intervenciones) el 22/03/2001 16:58:19
tienes que utilizar el service pack 4.0 de visual studio, e instalarlo en tu pc, puedes bajartelo de la pagina de microsoft

un saludo

mario
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:Visual basic 6 + access 2000 - I

Publicado por Christian A. Valeria Celedón (207 intervenciones) el 25/03/2001 05:41:46
Esta respuesta la escribí ayer en el foro de VB ADO y se ajusta perfectamente a tu problema.

Lo primero que debes hacer es crearte un Origen de Datos ODBC. Para eso, ve al Panel de Control y ejecuta <<Fuentes de Datos ODBC (32 bits)>>. Luego haz click en el Botón <<Agregar>>. Marca el controlador "Microsoft Access Driver (*.mdb)" y haz click en <<Finalizar>>. Se te abrirá una pantalla llamada "Instalación de ODBC para Microsoft Access". Escribe un Nombre de Origen de Datos (Puede ser cualquiera como por ejemplo "OdbcTest". La descripción es opcional). Luego haz click en el botón <<Seleccionar>> y busca la Base de Datos que deseas abrir desde tu programa (Supongamos que se llama C:\Archivo.mdb). Haz click en <<Aceptar>> y luego otra vez <<Aceptar>> en la otra pantalla. Ahora prueba el siguiente código en Visual Basic (Puede ser en el Load de un formulario)

Dim StrConect As String
Dim DBPath as String
Dim Login as String
Dim Password as String
Dim DB as ADODB.Connection

'Aquí va la ruta de tu Base de Datos
DBPath = "C:\Archivo.mdb"

'Este Login viene por defecto en Access
Login = "admin"

'Aquí va la contraseña de tu Base de Datos
Password = "123456"

'Sigue.....
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:Visual basic 6 + access 2000 - II

Publicado por Christian A. Valeria Celedón (207 intervenciones) el 25/03/2001 05:43:46
'Configura la cadena de conexión
StrConect = "DSN=OdbcTest;
StrConect = StrConect & "DBQ=" & DBPath & ";"
StrConect = StrConect & "DriverId=281;"
StrConect = StrConect & "FIL=MS Access;"
StrConect = StrConect & "MaxBufferSize=2048;"
StrConect = StrConect & "PageTimeout=5;"
StrConect = StrConect & "PWD=" & Password & ";"
StrConect = StrConect & "UID=" & Login & ";"

Set DB = New ADODB.Connection
DB.ConnectionTimeout = 30
DB.CursorLocation = adUseClient
DB.Open StrConect
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:Visual basic 6 + access 2000 - III

Publicado por Christian A. Valeria Celedón (207 intervenciones) el 25/03/2001 05:55:11
Ahora ya puedes manipular el objeto DB. Para abrir una tabla puedes usar el siguiente código (Es el que yo uso y funciona bastante bien)

Public Function OpenRS(cSQL As String, DB as ADODB.Connection) As ADODB.Recordset
Dim CMD As ADODB.Command
Set CMD = New ADODB.Command
With CMD
Set .ActiveConnection = DB
.CommandText = cSQL
.CommandType = adCmdText
End With
Set OpenRS = New ADODB.Recordset
OpenRS.CursorType = adOpenForwardOnly
OpenRS.LockType = adLockReadOnly
OpenRS.CursorLocation = adUseClient
Set OpenRS.Source = CMD
OpenRS.Open
End Function

Puedes probarlo de la siguiente forma (Supongamos que tienes una tabla llamada "Tabla")

Dim RS As ADODB.Recordset
Set RS = OpenRS("Select * From Tabla", DB)
Debug.Print RS.Fields(0)

Todo lo anterior lo probé con Access 2000 y funcionó bastante bien, así que por sentido común, a tí también te debería resultar.
Cualquier duda, mándame un correo para ver si te puedo ayudar.

PD. Recuerda que en las referencias del proyecto, debes tener habilitada la librería de ADO (Microsoft ActiveX Data Objects 2.1 Library)
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