FiveTech Software tech support forums

oRs:Date := STOD( "20150815" ) oRs:Update() Great! Thank you Rao. With SQL syntax is ok, using Recordset only a correction i had to make compared to the two rows above: oRs:fields("Date"):value := STOD( "20150815" ) oRs:Updatebatch() Otherwise it gave me error assignin...

2) how can i replace a content of a field in a specific record of an existing table (like "replace fieldname with variablename" in a dbf)? Using SQL statement #include "fivewin.ch"#include "adodef.ch"function Main()   local oCn, cSql, dDate   local oRs, n   oCn...

The answer is for ADO. 1) how can i add records to an existing table of a database SQL in "batch" mode (not interactively with browse and similar)? You can do it in two ways. (a) Directly using SQL. (b) Opening recordset in batchmode. (a) Directly using SQL. SQL syntax is different for dif...

Dear Max, If you use FWMARIADB, you can use oRs:Insert() and oRs:Update() as this post. http://forums.fivetechsupport.com/viewtopic.php?f=3&t=32657 Ado functions are great for accessing SQL (thank you Rao). Import from dbf, export and browse are ok and it run very fast! Now I nee...

Ado functions are great for accessing SQL (thank you Rao). Import from dbf, export and browse are ok and it run very fast! Now I need two examples, if possible: 1) how can i add records to an existing table of a database SQL in "batch" mode (not interactively with browse and similar)? 2) h...

... Tiempo. Sele GENEFAC Seek dtos(cFecha_exa) Do While (Fec_rec=dtoc(cFecha_exa).and.!eof()) Sele b // PasoGral do while .t. Dbappend() If !neterr() repl Nro_bon with a->Nro_bon,Nom_pac with a->Nom_pac Dbcommit() Dbunlock() Exit Else // Do ocupado Endif Enddo Sele d // Detalle Seek str(a->Fol_lab,10) ...

... FONT oFont1 UPDATE When lAppend VALID CodMarca_Extintores(cCod_Mar,oDlg1) COLOR Rgb( 064, 0, 0 ), Rgb(255,255,200) REDEFINE GET cNom_Mar PICTURE REPL("!",30) ID 102 OF oDlg1 FONT oFont1 UPDATE COLOR Rgb( 064, 0, 0 ), Rgb(255,255,200) REDEFINE BUTTONBMP oBtns[1] ID 201 OF oDlg1 PROMPT ...

... select a piece of a code. I can't make a bitmap of an example now, because where I an now, I can't upload a bmp to my server. If you have a text: repl planning->todo_01   with &('dag->todo_01_'+padl(alltrim(str(vkolom)),2,'0')) repl planning->todo_02   with &('dag->todo_02_'+padl(alltrim(str(vkolom)),2,'0')) ...

... which field in the new one OR as in the good old days from DBASE 1) Modi struct , append newfield (the newname) (Modify structure , file menu) 2) REPL newname WITH oldname (utilty's) 3) Modi Struct , delete oldfield If the order from the fields is important you can also this change , using copy ...

... // store sub folder contents APPEND BLANK cSto := iif(upper(right(aSub_Fldr[nSub_index][1],3)) = "PDF" ,"FL","FD") Repl; MC->heat with aSub_Fldr[nSub_index][1],; MC->sto with cSto ,; MC->pri_supl with left(cFol_nam,8) Automatic( oMeter3, @nActual3 ) nRec_ctr++ ...

... ) ? "HB_DATETIME() function is supported:", ; netio_procexists( "HB_DATETIME" ) ? ? netio_procexec( "QOUT", repl( "=", 50 ) ) ? netio_procexec( "QOUT", "This is RPC TEST", date(), hb_datetime() ) ? netio_procexecw( "QOUT", ...

Hi,

In's maybe a stuppid question, but is it possible to use MySQL and still use the same commands as for DBF-file (APPE, REPL , INDEX,...) or do we need to use SQL commands?

Thanks,
Marc

... PADC('R.U.C. '+IMPRUC,40), nCompress ) nRow++ oPrnCmp:Say( nRow, 00, PADC('N/s '+TRIM(IMPSIT),40), nCompress ) nRow++ ENDIF oPrnCmp:Say( nRow, 00, Repl("-",40), nCompress ) nRow ++ IF !EMPTY(cNombre) oPrnCmp:Say( nRow, 00, PADR("Nombre: "+LEFT(cNombre,32),40), nCompress ) nRow++ ...

... DIRCHANGE("\FWVENTAS\DATA") IMPOSV:=nWindows IMPHOY:=DATE() IMPNTX:=.F. * Mascaras para PICTURE IMPMPV:=IIF(!EMPTY(IMPDPV),"999,999"+"."+REPL("9",IMPDPV),"999,999") IMPMPC:=IIF(!EMPTY(IMPDPC),"999,999"+"."+REPL("9",IMPDPC),"999,999") IMPMUM:=IIF(!EMPTY(IMPMUM),"999,999"+"."+REPL("9",IMPDUM),"999,999") ...

... Static Function SpaceLeft(Arg1,Arg2) Local Local1 Arg2 := Alltrim( Arg2 ) Local1 := Repl(' ', Arg1) Local1 := Local1 + Arg2 Return Right(Local1,Arg1) *..............................................................................................................................* ...