MDB CON ODBC

[juan carlos bellucci]

Si alguien tiene resuelto el tema de abrir una base.mdb con clave por favor y es amable me pasa la solucion porque me enrede solo ja ja

uso fivewin 7.12 y xharbour por las dudas ... desde ya muchas gracias

aqui les mando un ejemplo ... la conexion se establece correctamente
y cuandoi abro la base si no tiene clave funciona bien asi que le establesco con access una clave para probar y es ahi donde se produce el error de apertura


//--> Cabeceras
#include "Fivewin.ch"
#include "Ado.ch"
//--> Var


//--------------------------------------------------------------------------//
Function Main()
Local oCone
Local cUser := "1234"
Local cPass := "1234"

// la base se llama archivo.mdb
// sin clave la abro bien

//-----------------------------------------//
oCone:=tOleAuto():new("ADODB.connection")
//-----------------------------------------//
// Hasta aqui establesco la conexion bien...
//

oCone:open("Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=.\Archivo.mdb;User=cUser;Psw=cPass;" )
// aca esta el problema
// como le ingreso el ususario y la clave
aqui me equivoco y no puedo abrir me da error
//--------------------------------------------------------------//




Return( Nil )

[carlos vargas]

//--------------------------------------------------------------------------//
Function Main()
Local oCone
Local cUser := "1234"
Local cPass := "1234"
Local cConn:=""

// la base se llama archivo.mdb
// sin clave la abro bien

//-----------------------------------------//
oCone:=tOleAuto():new("ADODB.connection")
//-----------------------------------------//
// Hasta aqui establesco la conexion bien...
//
cConn:="Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=.\Archivo.mdb;User="+cUser+";Psw="+cPass+";"
oCone:open( cConn )

// aca esta el problema
// como le ingreso el ususario y la clave
aqui me equivoco y no puedo abrir me da error
//--------------------------------------------------------------//




Return( Nil )

[jcenteno]

Prueba ésto:


cConn:="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+cFileMdb+";Persist Security Info=False;Jet OLEDB:Database Password="+dbPass
oCone := TOleAuto():New("ADODB.Connection")
oConw:ConnectionString := cConn
oCone:Open()

Saludos,

[carlos vargas]

con esto me funciono bien:

Code: Select all

PROCEDURE Main()
   LOCAL cn, rs, oErr
   LOCAL cPass:="1234"
   TRY
      cn := CreateObject( "ADODB.Connection" )

      cn:ConnectionString := "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=archivo.mdb;Pwd=" + cPass

      cn:Open()

      rs := CreateObject( "ADODB.Recordset" )
   
      rs:Open( "Agenda", cn, 0, 1, 2 )
   
      Do While ! rs:Eof()
        Alert( rs:Fields( "Apellido" ):Value )
        rs:MoveNext()
      ENDDO
   
      rs:Close()
      rs := Nil
   
      cn:Close()
      cn := Nil
   CATCH oErr
      Alert( "Error: " + oErr:Operation + " -> " + oErr:Description )
   END
   
RETURN 
 

[juan carlos bellucci]

Gracias Colega Carlos Vargas, tu ejemplo fue el unico que funciono... gracias muchas gracias , con esto hemos ganado una batalla ahora me falta ganar otra la de porder crear la base con la clave ya incorporada...con eso seria genial. bases a prueba de herramientas externas simples obviamente.