FiveTech Software tech support forums

... several nightmare nights, I have finally solved the problem, the problem was in the last line of this code. [code] oRsWrk := FW_OpenRecordSet(oApp:oCon,"SELECT " +; "*," +; "RUB_DES," +; "CON_DES " +; "FROM " +; cTabNam + " " +; "LEFT ...

... made by FW works fine, now we are made a change in the server and we have changed mysql by sql server and we have follow problem: [CODE] oApp:oCon:ConnectionString:= "Provider=SQLOLEDB;Password=xxxx3;Persist Security Info=True;User ID=XXXX;Initial Catalog=ERP6_base;Data Source=185.80.87.6\SQLEXPRESS2019" ...

... := adLockOptimistic orsPed:CursorType := adOpenDynamic orsPed:Source :="select * from BasedeDatos" orsPed:ActiveConnection( oApp:oCon ) TRY orsPed:Open() CATCH oError MsgStop( "No se ha podido abrir el RECORDSET de Pedidos !", oApp:cAplicacion) ShowError(oError) CLOSE_DBF(ODTEMP) ...

... datos por sql server, y me estoy volviendo loco me da error en el recordset, os paso como lo hago a ver si a alguien se le ocurre el porqué: oApp:oCon:ConnectionString:= "Provider=SQLOLEDB;Password=xxxx3;Persist Security Info=True;User ID=XXXX;Initial Catalog=ERP6_base;Data Source=185.80.87.6\SQLEXPRESS2019" ...

... datos por sql server, y me estoy volviendo loco me da error en el recordset, os paso como lo hago a ver si a alguien se le ocurre el porqué: oApp:oCon:ConnectionString:= "Provider=SQLOLEDB;Password=xxxx3;Persist Security Info=True;User ID=XXXX;Initial Catalog=ERP6_base;Data Source=185.80.87.6\SQLEXPRESS2019" ...

usas el Medhot ::oCon:RowSet ?
MariaDb

Code: Select all  Expand view

cQry := "SELECT " + ::cSqlWhatsApp
   cQry += " FROM " + ::cTabla
   cQry += " ORDER BY " + ::cOrder
   ::oWhats_App := ::oCon:RowSet( cQry, ::nPageRow )
 

... " font oSegoe ID 120 OF oDlgStk ACTION ( lsave := .t., oDlgSTK:End() ) REDEFINE button btnMod ID 130 OF oDlgStk action (Editstock( oBrow, oCon, oRS1, oRS1:AbsolutePosition, .t. ), cSQL := wwcSQL) // Editstock( obrow, .t. ) REDEFINE button btnOK ID 4002 OF oDlgStk ACTION veoplan( precio_vta, ...

Hola buen día, como sería el equivalente de oCon:Execute( cSQL ) con ADO?

oApp:oCon:Execute("USE Test")

What does this do?
Forgive my ignorance.
Is there a MySql command like "USE test"?

... obusco, oRS1Cli ) } REDEFINE BTNBMP 2007 prompt HB_UTF8CHR( 57609 ) + " Agregar " font oSegoe ID 170 OF oDlg ACTION EditClient( oBrow, oCon, oRs1cli, oRS1Cli:AbsolutePosition, .t. ) //editclient( oLbx, .t. ) REDEFINE BTNBMP 2007 prompt HB_UTF8CHR( 57604 ) + " Editar " font ...

... chr(10) + ; "WHERE (dbo.Fichacod.Producto = '"+wcodigo+"')" + chr(13) + chr(10) + ; "select * from tmpprod " TRY IF oCon:State() = 0 oCon:open() endif woRSp := CargaRecordSet( cSQLp, CadenaCon ) CATCH oErr MsginFo( "no puedo leer "+cSQLP ) showError( oErr ...

Hello friends
How to display the table name with a
oCon: backup, together with the meter
Regards

sysctrl2 wrote:oCon:BeginTransaction()
? INSERT,UPDATE,DELETE
Con:CommitTransaction()

MySql Graba al disco al hacer commit
lo anterior solo está en memoria

saludos

gracias

oCon:BeginTransaction()
? INSERT,UPDATE,DELETE
Con:CommitTransaction()

MySql Graba al disco al hacer commit
lo anterior solo está en memoria

saludos

Mr. Rao, si las try/catch no funciona para detectar un error, como se hace una insercion multiple de tablas el rollback ? Ejemplo: oCon:insert( "tabla1".... ) oCon:insert( "tabla2".... ) oCon:insert( "tabla3".... ) oCon:insert( "tabla4".... ) if oCon:nError ...