FiveTech Software tech support forums

... y ejecutando lo mismo no da el error me indicaron que puedo usar un profiler que esta en el manager de sqlserver esta informado novedades oMngHdo:oDb:exec( "drop table IF EXISTS factura" ) en ccrea se carga el script de creacion de la tabla oMngHdo:oDb:exec( cCrea ) luego se procede ...

... automatically open the index whenever the database object is opened. Then you set the scope and then the low and high values you want to see using oDB:setScope(xLow,xHigh). The only records read will be those you want. I tested a 1 million record DBF file using a scope to filter out about 20,000 ...

Dario
Saludos
Fe de errata,
cSql:=[DELETE FROM XTABLA WHERE XCAMPO="CONDICION"]

? oDb:Execute(cSql)

Dario
Saludos
cSql:=[DELETE FROM XTABLA WHERE XCAMPO="CONDICION")

? oDb:Execute(cSql)

... para el compilador que vayas a utilizar A partir de ahí, ( te lo resumo ) local dbName := ... local lCreate := .F. local cKey := "mykey" oDB := sqlite3_open( dbname, lCreate ) sqlite3_exec( oDB, 'pragma key = ' + cKey ) if sqlite3_errcode(dbo1) > 0 // error .../... Buenas noches. No ...

... de BD estas utilizando En mi caso todas las sentencias las genero en una variable de texto y las grabo en disco MEMOWRIT("run.sql",cSql) oDb:Execute(cSql) Dependiendo de la clase de utilices, podras optener el numero o texto del error, en mi caso uso EAGLE con cError:=oDb:oConnect:oError:GetError() ...

... para el compilador que vayas a utilizar A partir de ahí, ( te lo resumo ) local dbName := ... local lCreate := .F. local cKey := "mykey" oDB := sqlite3_open( dbname, lCreate ) sqlite3_exec( oDB, 'pragma key = ' + cKey ) if sqlite3_errcode(dbo1) > 0 // error .../...

FUNCTION DPMYSQLBD(cDb,cIp,cLogin,cPass,nPort,lError,lCreate,lAdd) LOCAL oDb,oMySql,nAt DEFAULT cIp :=oDp:cIp ,; cLogin :=oDp:cLogin,; cPass :=oDp:cPass ,; nPort :=oDp:nPort ,; cDb :=oDp:cDsnData,; lError :=.T.,; lCreate :=.F.,; lAdd :=.F. // Agrega lista de ...

Compin,
Puedes ver el metodo Commit
METHOD Commit(cWhere)

Para eliminar registros utilizo función SQLDELETE(cTable,cInner,cWhere,oDb)

... registros // Requiere eagle1.lib , tambien se puede utilizar Otro gestor de base de datos u Odbc */ #include "FiveWin.ch" STATIC oServer,oDb,bSqlDate,cTypeBD FUNCTION MAIN() LOCAL cIp :="localhost" LOCAL cLogin:="root" LOCAL cPass :="" LOCAL oTable LOCAL ...

... don't how to use this code in Fivetouch ! I have tried by this way, but don't worked ! #include "FiveTouch.ch" function Main() LOCAL oBD oDB := QSqlDatabase() oDB:addDatabase("QMYSQL") oDB:setHostName("10.10.1.1") oDB:setDatabaseName("fox_sgv") oDB:setUserName("root") ...

Hi,

Only you must install Maria DB odb driver on client and connect to DB directly you don't need to make any changes in source code.

and using string connection to connect cristal to database

Regards,

the error happens only if there is a Requery before insertion:

Look

oGrupos := oDB:Query( 'select * from ADMD0013 where CODGRU = ?',{0} )
...
oGrupos:ReQuery({27})
...
oGrupos: Append ()
oGrupos: NOMGRU: = cNOMGRU
oGrupos: ALTERA: = date ()
oGrupos: save () << error happens here
...

... INT (3) NOT NULL AUTO_INCREMENT, `NOMGRU` VARCHAR (30) NULL DEFAULT NULL, `ALTERA` DATE NULL DEFAULT NULL, PRIMARY KEY (`CODGRU`) ) oGrupos := oDB:Query( 'select * from ADMD0013 where CODGRU = ?',{0} ) ... oGrupos:ReQuery({27}) ... oGrupos: Append () oGrupos: NOMGRU: = cNOMGRU oGrupos: ALTERA: ...

oDB := DBServer {"d:\demo10.dbf", DBShared,, "AXDBFCDX"}
lReturn := AdsGetLastError( @dwError, pacError, @wLen)

if !AdsConnect60( "C:\", 2 )

cMsg = Space( 300 )

adsGetLastError( @cMsg )

winMsgInfo( cMsg ), "Error connecting do C:\" )

endif