Access y Visual 6.0

Hola: Tengo una base de datos la cual le coloque una contraseña por el menu de herramientas,
seguridad, establecer contraseña. Utilizo una conexión desde Visual Basic
con esta base de datos ODBC le enviola contraseña y todo funciona.
Resulta que necesito otra base de datos y hacer actualizaciones a la base que tengo abierta.
La pregunta es como hago para abrir desde Visual basic
esta base de datos sin utilizar ODBC ya que no solo tengo que abrir una sino varias bases
que pueden tener nombre distinto, pero la contraseña es la misma.

2 Respuestas

Respuesta
1
La contraseña no importa, puede ser distinta. La apertura de las tablas no necesita ODBC ya que lo hago con OLE DB.
Aquí tienes un código de ejemplo:
Public gcnnBD1 As ADODB.Connection
Public gcnnBD2 As ADODB.Connection
Public gcnnBD3 As ADODB.Connection
Public gCadCnnBD1 as String
Public gCadCnnBD2 as String
Public gCadCnnBD3 as String
Public Sub gpAbreConexion()
dim sBase1 as String
dim sBase2 as String
dim sBase3 as String
dim sPassword1 as String
dim sPassword2 as String
dim sPassword3 as String
sBase1 = App.Path & "\Base1.mdb
sPassword1 = "Algo1"
gCadCnnBD1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sBase1 & ";Persist Security Info=False;Jet OLEDB:Database Password=" & sPassword1
Set gcnnBD1 = New ADODB.Connection
gcnnBD1.ConnectionString = gCadCnnBD1
gcnnBD1.Open
sBase2 = App.Path & "\Base2.mdb
sPassword2 = "Algo2"
gCadCnnBD2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sBase2 & ";Persist Security Info=False;Jet OLEDB:Database Password=" & sPassword2
Set gcnnBD2 = New ADODB.Connection
gcnnBD2.ConnectionString = gCadCnnBD2
gcnnBD2.Open
sBase3 = App.Path & "\Base3.mdb
sPassword3 = "Algo3"
gCadCnnBD3 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sBase3 & ";Persist Security Info=False;Jet OLEDB:Database Password=" & sPassword3
Set gcnnBD3 = New ADODB.Connection
gcnnBD3.ConnectionString = gCadCnnBD3
gcnnBD3.Open
End Sub
Luego puedes abrir Recordsets para cualquiera de las bases. Suponiendo que fuera a la segunda
dim rsTabla1 as ADODB.Recordset
Set rsTabla1 = New ADODB.Recordset
rsTabla1.CursorLocation = adUseClient
rsTabla1.CursorType = adOpenStatic
rsTabla1.LockType = adLockOptimistic
RsTabla1. Open "Select * From Tabla1", gcnnBD2
Si tienes alguna duda dímelo
Respuesta
1
Perdona pero no entiendo tu dificultad. Parece que el problema lo tienes porque la base de datos tiene una contraseña, sin embargo me dices que puedes abrir perfectamente una base de datos protegida con contraseña. Si puedes abrir una, lo mismo puedes abrir más de una.
Luego me dices que no quieres utilizar ODBC como si el usar ODBC fuese la causa del problema. ¿Es qué ODBC no permite abrir más de una base de datos? No recuerdo haber hecho nunca un acceso por ODBC con más de una base de datos, pero desde luego el acceso directo admite varias bases de datos simultáneamente abiertas.
En fin si estás dispuesto a usar DAO, que desde luego admite varias bases de datos, simultáneamente abiertas no tienes más que proporcionar la password en la sentencia OpenDatabase
No se si he resuelto tu duda. Si no es así, aclarame donde está la dificultad, porque no la veo
Mira con este código estoy abriendo la base de datos en este momento.
Dim mBase1 As Database
Set mBase1 = OpenDatabase(OpenFile.mLblFileOpen)
Set mMuestraActualiza = mBase1.OpenRecordset("SELECT * from TABLA WHERE Identifica = 0 ", dbOpenDynaset)
Do While Not mMuestraActualiza.EOF
Identifica = mMuestraActualiza(0).Value
Update ???????????????
loop
La pregunta es como le envío los parámetros de la contraseña a la
Base de datos en el opendatabase.
Ademmas te podría preguntar cual es la sentencia para actualizar (update)
Un dato sobre esta misma base. Dime si me sirve algo de lo que tengo aquí o si esta mal.
La apertura de la base de datos se hace con una instrucción tipo:
Set mBase1 = OpenDatabase ("c:\MiBase.mdb",,, "pwd=MiContraseña"
La definición del Recordset es correcta
En el bucle, si lo que quieres es leer la variable Identifica desde la base de datos, el código sería:
Do While Not mMuestraActualiza.EOF
Identifica = mMuestraActualiza.Fields(0).Value
mMuestraActualiza.MoveNext
loop
Y si lo que quieres es actualizar la base de datos con el valor de la variable identifica, el código es:
Do While Not mMuestraActualiza.EOF
mMmMuestraActualiza.Edit
mMuestraActualiza
.fields(0).Value=Identifica
mMmMuestraActualiza.Update
mMuestraActualiza.MoveNext
loop
Y si quieres añadir registros sería:
mMmMuestraActualiza.AddNew
mMuestraActualiza
.fields(0).Value=Identifica
mMmMuestraActualiza.Update

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro Excel: Sacar datos de BD SQL Server

Necesito programar una macro de Excel que realice las siguientes acciones: - Acceder remotamente a una máquina. - Acceder a una base de datos SQL Server. - Ejecutar las sentencias necesarias para buscar un dato específico que guardaré en una variable...
1 respuesta

Código para una consulta

Necesito de tu ayuda para construir el código para lo siguiente: Resulta que tengo dos tablas: 1.Calificación Con los campos RangoInferior, RangoSuperior, Valor 0 5 1 5 10 2 10 20 3 20 50 4 50 100 5 Y otra varios campos entre ellos un valor. Lo que...
2 respuestas

Transacciones SQL a diferentes orígenes de los datos

Necesito sacar cíclicamente unos datos que están en un sistema Sybase, otros que están en access y alimentar con ellos una base MySQL que a su vez se utiliza para alimentar un web con PHP. A Sybase accedo exclusivamente por un ODBC de sólo lectura...
1 respuesta

Vb6 datagrid y mysql

Tengo el siguiente código vb6 pero quiero que al hacer una consulua sql los datos de la consulta me los muestre en un datagrid pero la verdad estoy novato en esto espero me podáis ayudar Private Sub Command1_Click() Dim cnn_Conexion1 As Connection...
1 respuesta

Abrir BD y verificar si hay registros

Hace un par de días tu me enviaste un código para hacer la conexión entre Visual 6 y SQL Server7, supongo que si no manda ningún error es porque se conecta, ahora quisiera comprobar la conexión y para eso tengo una tabla usuario con dos campos, rut y...
1 respuesta

Conexión odbc

Ante todo agradecer la función de redondeo en access 97, me fue ok. Para importar tablas vía odbc utilizo una macro que primero me borra la tabla que ya tengo y me importa la nueva, ya que si no la borro la tabla importada me la crea como tabla1...
1 respuesta

VBA Excel 2010 conexión con Mysql

Reciba un cordial saludo desde Colombia. Quiero preguntarle por que razón al realizar el siguiente código de conexión de Excel (VBA) 2010 con una base de datos Mysql: Dim oConn As ADODB.Connection Dim rs As ADODB.Recordset ' ''''''Function...
3 respuestas

Cambiar cadena de conexión

Tengo un sistema en vb6 y la conexión a la base (access2000)la hago con ADO funciona bien, el problema esen los reportes los realizo con CR 8 si me salen pero si muevo la base a otra carpeta me da el error 20599 no se pudo abrir el servidor he...
1 respuesta

VB 6.0 y Dataflex 3.05b

Yo estoy programando en Visual Basic 6.0 y quiero saber cómo Consultar, modificar y eliminar registros directamente en una base de datos (tabla) de Dataflex. 3.05... (Data Access corporation)
2 respuestas

Macro Excel con base de datos Sql

Tengo una macro excel con base de datos SQL, funciona bien, PERO, el problema es que por cada consulta que hace la macro me vuelve a pedir que acepte la base de datos de donde necesito sacar la información, y eso aunque haya sólo una base de datos...
2 respuestas