FiveTech Support Forums

SET EXACT ON //Se debe activar para las busquedas
  MYSQL_TinyIntAsLogical(.T.) //Activar los campos TINYINT en lógicos
  
  TRY
     FWCONNECT oCn HOST "localhost/IP" USER "root" PASSWORD "password" DB "database" 
   CATCH oErr
     ?"No conecta con el servidor MySqlMaDB"
     RETURN NIL
   END
   oPlani:=oCn:Query( "SELECT * FROM PLANILLA") Es igual oPlani:=oCn:RowSet( "SELECT * FROM PLANILLA")
   oSQL:oPlani:Record(.T.) //Registro en blanco
   oSQL:oPlani:Record() //Carga los datos
   oCn:BeginTransaction() //Inciar el proceso de guardado
   oCn:CommitTransaction() //Guarda inmediatamente el registro
   aOrigen:=ArrTranspose( oCn:Execute( "SELECT DESCRIP FROM TABLAS WHERE QT = 'O' ORDER BY DESCRIP" ) )[ 1 ] //Llena la tabla con una columna
   nMesP:=2
   oRs:=oCn:Query( "SELECT * FROM PLANILLA WHERE MESP = ? ORDER BY CODIGO",{nMesP}) 
   nMesP:=3
   oRs:ReQuery({nMesP}) //Para recargar la tabla
   oRs:Refresh() 
   oCn:Insert("PLANILLA","MESP,CODIGO,NOMBRE",{cMesP,nCOD,cNOM} ) //Insertat registro
   oRs:Delete() //Borrar el registro actual
   oCn:Execute( "DELETE FROM PLANILLA WHERE `CODIGO` LIKE '1%'" ) //Para borrar con condición
   oRs:UPDATE("CAMPO1,CAMPO2",{nDATO1,cDATO2}) //Actualizar datos

aDbf := DIRECTORY( "c:\mydata\*.dbf" )
AEval( aDbf. { |a| oCn:ImportFromDBF( "c:\mydata\" + a[ 1 ] ) } )

oEMPL:=oServer:Query("SELECT * FROM DATPER WHERE IDSECT = " + ClipValue2SQL( nCC ) + " AND !lOUT ORDER BY CODIGO")
//I did it like this
oEMPL:=oCn:Query("SELECT * FROM DATPER WHERE IDSECT = ? AND !lOUT ORDER BY CODIGO",{ nCC} )

Other case
oEMPL:= oServer:Query( "SELECT COUNT(*) AS NumRecs FROM ext_otr1 WHERE fec_ing BETWEEN &1 AND &2", { ClipValue2SQL( dDate1 ), ClipValue2SQL( dDate2 ) } )
//
oEMPL:= oCn:Query( "SELECT COUNT(*) AS NumRecs FROM ext_otr1 WHERE fec_ing BETWEEN &1 AND &2", { dDate1, dDate2  } )