FiveTech Software tech support forums

... local lAsync oOdbc := TOdbc():New(cDsn, cName, cPass) If !oOdbc:lSuccess oOdbc:ShowErrorList("ODBC session not successfully initialized, aborting...") oOdbc:End() return nil Endif CursorWait() aFiles := oOdbc:GetTables("*", .F. ) CursorArrow() if len(aFiles) == 0 MsgAlert("There ...

... is the source oOdbc := TOdbc():New( cDSN, cName, cPass ) If !oOdbc:lSuccess oOdbc:ShowErrorList("ODBC session not successfully initialized, aborting...") oOdbc:End() return nil Endif oDbf := oOdbc:Query( "SELECT T0.field1 'CODICE', T0.field2 'DESCRI' FROM CLIENTI T0") if oOdbc:IsError() ...

... to abort an flocate() search via an ESCape key. _xkeyval() tells flocate() what the ESCape key is. The default value for _xkey() is always .T. (aborting allowed). the default abort key is ESCape (27) until you redefine it._xkey() parameters are logical .T. to turn user abort on, .F. to turn ...

... If !oOdbc:lSuccess oOdbc:ShowErrorList("ODBC session not successfully initialized, aborting...") oOdbc:End() return nil Endif oDbf := oOdbc:Query( "SELECT * FROM poimport" ) if oOdbc:IsError() oOdbc:ShowErrorList() oOdbc:aErrors ...

... // oRsuser:Find("USERID = '"+xLOGIN+"'" ) IF .not. oRsuser:eof oRsUser:CLose() SAYING := "SORRY ... "+xLOGIN+" already Exists in the User Table .. Aborting" MsgInfo( saying ) oDlg1:End() RETURN(.F.) ENDIF IF _UserView( "A", oRsUser, "login" ) xREAD := "Y" xWRITE := oRsUser:Fields("write"):Value ...

... cName, cPass) If !oOdbc:lSuccess .OR. lError(,,, .t.) oOdbc:ShowErrorList(LoadValue(1051, CH)) // ODBC session not successfully initialized, aborting... oOdbc:End() Return(.f.) Endif ora puoi creare le select in SQL oLavor := oOdbc:Query("SELECT lavorazioni.id, analav.codice, analav.descr ...

Yes, I'm able to send HTML, but I modified another little piece of code here in OnRead() method If ! Empty( ::cHTML ) // RRG 29.05.2002 Send as HTML sytle email (Cambios para enviar correo como html) oSocket:SendData( CRLF + "--NextPart" + CRLF + ; &...

hello! I have a working prg which sends email via TSMTP:SendMail() connecting to a mail server on the internet. Now, if I upload my program to the same PC where the mail server is installed, mails are no more sent out. I use LKM version because I need user authentication Turned on the debug mode her...

... *oRdd := TRddOdbc():New("Northwind", "SA", "*****") If !oRdd:oOdbc:lSuccess oRdd:oOdbc:ShowErrorList("ODBC session not successfully initialized, aborting...") oRdd:End() return nil Endif // oRdd:oOdbc:lAbort := .f. aFiles := oRdd:oOdbc:GetTables("*", .F. ) && returns all tables if len(aFiles) ...

... oODBC := TOdbc():New "DsnEntry", "YourName", "YourPassword") If !oOdbc:lSuccess oOdbc:ShowErrorList("ODBC session not successfully initialized, aborting...") oOdbc:End() return nil Endif *oDbf := oOdbc:Query( "SELECT * FROM JOURNAL" ) Odbf := TdbOdbcDirect():New("SELECT * FROM JOURNAL WHERE ...

... browse() oOdbc := TOdbc():New( "fenix", "", "" ) If !oOdbc:lSuccess oOdbc:ShowErrorList("ODBC session not successfully initialized, aborting...") oOdbc:End() return nil Endif oDbf := TDbOdbcDirect():new( "SELECT * FROM ventas" , oOdbc) oDbf:Open() oDbf:Complete() Browse() cnombre:= ...

... ADS's callback function adsRegCallBack( {|nPct| ; oMeter:set( oMeter:nTotal * Int( nPct / 10000 ) ), ; SysRefresh(), .F. } ) // return .F. is aborting not allowed // your indexing routine goes here INDEX ON FIELD->TRAN_NO TAG iTraNo FOR .NOT. DELETED() ; EVAL (oMeter:SET(recno()),oMeter:Refresh(), ...