topic-21224

Posts: 115

Joined: Sat Mar 07, 2009 09:36 PM

MDB CON ODBC
Posted: Thu Mar 31, 2011 03:06 PM

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(&quot;ADODB.connection&quot;)
       //-----------------------------------------// 
       // Hasta aqui establesco la conexion bien...
       //

        oCone:open(&quot;Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=.\Archivo.mdb;User=cUser;Psw=cPass;&quot; )
                                                   //   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

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: MDB CON ODBC
Posted: Thu Mar 31, 2011 04:38 PM

//--------------------------------------------------------------------------//
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 )

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

jcenteno

Posts: 23

Joined: Thu Dec 10, 2009 06:07 AM

Re: MDB CON ODBC
Posted: Thu Mar 31, 2011 11:24 PM

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

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: MDB CON ODBC
Posted: Fri Apr 01, 2011 11:43 AM

con esto me funciono bien:

Code (fw): Select all Collapse

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

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

juan carlos bellucci

Posts: 115

Joined: Sat Mar 07, 2009 09:36 PM

Re: MDB CON ODBC
Posted: Mon Apr 04, 2011 05:45 PM

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.

FiveTech Support Forums

Continue the discussion