FiveTech Support Forums

// Con este modulo uso una base de datos tipo Base.mdb con clave "1234"
// la base esta creada con Access

// necesito saber como usar la base sin que aparesca el dialogo Seleccionar Base de datos y demas
// leyendas... porfi si alguien tiene algun pedacito de codigo sera bien recompenzado en mi rancho
// siempre hay asado y vino ...

#include "FiveWin.ch"
#include "sql.ch"

//----------------------------------------------------------------------------//
Function Main()
Local oCone
Local aDsn := {"MS Access Database;SQLDriverConnet;Data Source=Archivo.mdb;"}
Local cDsn
Local cName := "Admin"
Local cPass := "1234"
Local cFile := "Archivo.mdb"
Local aTabla

      cDsn := aDsn[1]

     //-----------------------------------------------------//
     // Ojo Esta Si Funciona
        oCone := TOdbc():New(cDsn, cName, cPass)
     //----------------------------------------------------//

     aTabla := oCone:GetTables("Persona", .F. )
     If Len(aTabla) == 0
        oCone:Create("Persona",{{"Persona",  "C", 30,0 }})
     EndIf




     oCone:End()

Return nil
//----------------------------------------------------------------------------//

Porqué no utilizas Ado ?.

Amigo prueba esto:

cFile:="mibaseconpass.mdb"
oConexionAdo := TOLEAUTO():New("adodb.connection")
oRS := TOLEAUTO():New("adodb.recordset")
oOpen := "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;Jet OLEDB:Database Password=MyDbPassword;"

oConexionAdo:Open(oOpen)

Saludos

Gracias Pruebo y te cuento como me fue desde ya muchas gracias

Hola Amigo Prove de esta manera y me da error , si tenes algun ejemplo desde ya gracias ...

Function Conectar()
Local oCone
Local oRS
Local oOpen
Local cFile := "archivo.mdb"
Local cPass := "1234"

       oCone := TOLEAUTO():New("adodb.connection") 
       oRS := TOLEAUTO():New("adodb.recordset") 
       oOpen := "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\cFile;Jet OLEDB:Database Password=cPass;"

       oCone:Open(oOpen)

Return( Nil )

Podrias indicar o pegar parte del error
Saludos

juan carlos bellucci wrote:Hola Amigo Prove de esta manera y me da error , si tenes algun ejemplo desde ya gracias ...

Local cFile := "archivo.mdb" 
oOpen := "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\cFile;Jet OLEDB:Database Password=cPass;"

Local cFile := "c:\archivo.mdb" 
Local cPass := "1234"
oOpen := "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+cFile+";Jet OLEDB:Database Password="+cPass+";"
oCone:Open(oOpen)

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myAccess2007file.accdb;Jet OLEDB:Database Password=MyDbPassword;