FiveTech Software tech support forums

... DBase, Foxpro, MS Access, Microsoft SQL Server, MySQL, Oracle con ADO, y MySQL con ADO, Dolphin y FWMariaLib. - Clase ORM_Connection Sintáxis: - oConnection := ORM_Connection():New( rdbms, server, database, user, password ) donde rdbms puede ser MySQL, Microsoft SQL Server, Oracle, etc... para ...

... Supports dbase,foxpro,msaccess,mssql,mysql,oracle with ADO and mysql with ADO, Dolphin and FWMariaLib. - Class ORM_Connection Syntax: - oConnection := ORM_Connection():New( rdbms, server, database, user, password ) where rdbms can be mysql, mssql, oracle, etc for ADO or dolphin / fwmariadb ...

Carlos, Estas son las funciones de FWH a usar para migrar tu código en Dolphin: oConnection := Maria_Connect( cServer, cDataBase, cUser, cPassword ) ó puedes usar el comando equivalente: #xcommand FWCONNECT <oCn> HOST <cHost>  ;      ...

#include "FiveWin.ch" #include "ado.ch" STATIC oConnection, oRSet, oError, sSQLQuery //------------------------------------------------------------------------------ FUNCTION MAIN() SET DECIMAL TO 0 oConnection:=CreateObject( "ADODB.Connection" ...

Saludos

Cuando lo compilo con Harbour me da error en estas lineas en el ADORDD.prg


STATIC t_cDataSource
STATIC t_cEngine
STATIC t_cServer
STATIC t_cUserName
STATIC t_cPassword
STATIC t_cQuery
STATIC oConnection

Dice Error E0004 STATIC Declaration Follow Executable Statement

Antonio,

You can't modify File() behavior as far as I know as it is a standard Harbour function.

You can use FWH function FW_AdoTableExists( cAdoTable, oConnection )

Carlos,

Esa función parece estar en el propio adordd.prg:

FUNCTION hb_GetAdoConnection()//supply app the con object
RETURN oConnection

... haga una llamada al método statico del RDD ADO_CLOSE( nWA ). En la función ADODB_CLOSE() deberías pasarle algún parámetro ya sea nWA o el objeto oConnection . Precisamente a Sintra es uno de lus lugares que voy a visitar seguro, mi hermana ha estado y le ha gustado mucho, además está cerca de ...

... HB_GT_WVT_DEFAULT para ver que hace Me dice que descomente esta linea ??? // cSql := FW_AdoCreateTableSQL( cTableName, aWAData[ WA_SQLSTRUCT ], oConnection, .T. ) // oConnection:Execute( cSql ) ¿ Pero esto depende de Fivewin ? Si es así, dejo las pruebas porque no tengo ese codigo o ¿ ese codigo ...

... ::lError:=.f. catch ::lError:=.t. oE:= CreateObject("ADODB.Error") FOR EACH oE IN ::oConn:Errors ::nError:=oE:NativeError NEXT oConnection:oConn:Errors:Clear() end catch return ::lError method end() class tSQLite ::oConn:close() return method SQliteGetType(nType) class tSQLite ...

... ) oRs:CursorType := adOpenDynamic oRs:CursorLocation := adUseClient oRs:LockType := adLockOptimistic oRs:ActiveConnection(oConnection) oRs:Source := "EXEC sp_Menu '0', '' " oRs:Open() oRs:MoveFirst() oRs:Find("CNIVOPC = '" + nopc2 +"'") Saludos

... the select statement filename is a reserved word .. you might try : oRecordSet:Open( "SELECT [filename] FROM testi WHERE iddoc = 217 " , oConnection You can test the reserved by "select * from ......" then see if you update() fails .. if it does not fail ... filename may need ...

... := adUseClient oRecordSet:LockType := adLockOptimistic TRY oRecordSet:Open( "SELECT filename FROM testi WHERE iddoc = 217 " , oConnection ) CATCH oErr MsgAlert( "Error to Open testi" ) END TRY oRecordset:Fields("filename" ):Value = "new value" ...

Dear Anser,
sorry but doesn't work
I get always "Argument error: __OLEENUMCREATE"

in line :
FOR EACH oError IN oConnection:Errors



regards
Wzaf

Mr.Wzaf, Instead of oApp:oConnection you may use your Connection Object *---------------------------------------------------*Function ShowSqlError(oConnection)*---------------------------------------------------*FOR EACH oError ...