FiveTech Software tech support forums

... oServer:Reconnect() ELSE oServer:Close() MsgAlert( "No hay conexión con "+cIp ) RETURN .F. ENDIF ENDIF RETURN .T. STATIC FUNCTION SETDB(cDataBase) IF "TMS"$oServer:Classname() IF !oServer:ExistDb(cDataBase) oServer:CreateDB(cDataBase) ENDIF oDb:=TMSDataBase():New( oServer, ...

... shared" and then the others in the "data" folder can open with DbUseArea( [<lNewArea>] , ; [<cRddName>] , ; <cDatabase> , ; [<cAlias>] , ; [<lShared>] , ; [<lReadonly>] , ; [<cCodePage>] , ; [<nConnection>] ) --> NIL cAlias:=New_Alias(cDbf,nD) ...

... oCone:Open( "DRIVER={MySQL ODBC 3.51 Driver};" + ; "server=" + cServer + ; ";database=" + cDatabase + ; ";uid=" + cUser + ; ";port=" + cPort + ; ";pwd=" + cPass ) xRfc:="XAXX010101XXX" If Empty(oCone) ...

Using FWH Ado functions simplifies the work. oCn := FW_OpenAdoConnection( { "MYSQL", cServer, cDatabase, cUser, cPassword }, .t. ) if oCn == nil ? "Fail" return nil else ? "Connected" endif oRs := FW_OpenRecordSet( oCn, "select * from users" ...

... //Ubicación del servidor Local cUser := "root" // usuario Local cPass := "" // password del usuario Local cDatabase := "empleados" // base de datos MySql oCone :=tOleAuto():new("ADODB.connection") oCone:Open( "DRIVER={MySQL ODBC ...

... DBClearRelation()->Nil DBCloseAll()->Nil DBCloseArea()->Nil DBCommit()->Nil DBCommitAll()->Nil DBCopyExtStruct(<cDatabaseExt>)->lSuccess DBCopyStruct(<cDatabase>,[<aFieldList>])->Nil DBCreate(<cFile>,<aStruct>,<cRDD>,[<lKeepOpen>],[<cAlias>],[<cDelimArg>],[<cCodePage>],[<nConnection>])->Nil ...

... REQUEST DBFCDX function Main() local cServer := "localhost\SQLEXPRESS" local cDatabase := "SBODemoUS" local oCn, oRs, aTables, cTable oCn := FW_OpenAdoConnection( { "MSSQL", cServer, cDatabase }, .t. ) aTables ...

... DBFCDX function Main() local cServer := "localhost\SQLEXPRESS" local cUser := "SA" local cPassword := "1234" local cDatabase := "SBODemoUS" local cTable := "OCRD" local oCn, oRs, cDbf:="OCRD", lEditStruct:= .F. oCn := FW_OpenAdoConnection( ...

... DBFCDX function Main() local cServer := "localhost\SQLEXPRESS" local cUser := "SA" local cPassword := "1234" local cDatabase := "SBODemoUS" local cTable := "OCRD" local oCn, oRs, cDbf:="OCRD", lEditStruct:= .F. //oCn := FW_OpenAdoConnection( ...

... function Main() local cServer := "localhost\SQLEXPRESS" local cUser := "SA" local cPassword := "1234" local cDatabase := "SBODemoUS" local cTable := "OCRD" local oCn, oRs, cDbf, lEditStruct:= .f. //oCn := FW_OpenAdoConnection( { "MSSQL", ...

... cPloeg, date() } ) I believe this should work. The oCn is open and working : FWCONNECT oCn HOST cServer USER cUser PASSWORD cPassword DATABASE cDatabase I see no error when this code is executed. What should I change? function setploeg(oBrw,cPloeg)    local uSavePos := oBrw:BookMark  ...

... built-in adiminstrator account's name is SA, like "root" for MySql. Syntax: oCn := FW_OpenAdoConnection( { "MSSQL", cServer, [cDataBase], cUser, cPassword }, lShowError ) OR oCn := FW_OpenAdoConnection( { "MSSQL,cServer,[cDataBase],cUser,cPassword", lShowError ) When ...

Yes
Please try restoring a full database with a different name and let us have your feed back.

Take backup
oCn:BackUp( cDatabase, cBackupFile )

Restore by database by other name

oCn:Restore( cBackUpFile, nil, nil, cOtherDB )

... "Functies.prg" function Main() local oWnd, oBrw local cpath:=Path() PUBLIC leigen := .T. PUBLIC lPro := .T. PUBLIC lEtiket := .F. PUBLIC cDataBasePad := cPath + "/databases/" PUBLIC aDatabases[0][8] PUBLIC aIndexFiles[0][2] RK_FillArrays() RK_BestandsControle() RK_OpenTables() ...

... //Ubicación del servidor Local cUser := "root" // usuario Local cPass := "123" // password del usuario Local cDatabase := "DBDATOS" // base de datos MySql *Local cDatabase := cPath+"\database" // base de datos MySql oCone :=tOleAuto():new("ADODB.connection") ...