FiveTech Software tech support forums

... oBCli:aHeaders[5]:=IF(oCbx:nAt=5,"Vendita Netta","Saldo Attuale") RETURN (NIL) I want insert on the botton of dialog a Tab with the same operation but when i try it make error i try with @ ( oDlg:nHeight / 2 ) - 11, nBrwSplit+2 ...

Hello, I insert to startup program procedure this function: HB_FUNC (STILLRUN) { HWND hWnd; BOOL lRet = FALSE; hWnd = FindWindow (TEXT ("App Title"), NULL); if (hWnd) { SetForegroundWindow ...

... lAtti ) *************** oWinArt:bKeyDown := { | nKey, nFlags | NIL } IF nKey == VK_INSERT .AND. lAnd( 4, oV:aDirittiUtente[2] ) // Tasto Insert: Aggiunge AnagraArt(.T., nil ) ENDIF IF( nKey == VK_F12, oWinArt:End(),) // F12: chiude IF lAtti IF nKey == VK_RETURN .AND. lAnd( 8, oV:aDirittiUtente[2] ...

... ACTIVATE DIALOG oDlg CENTER if lSave if Exento = 2 TCero =1 else TCero =0 endif if TIva >0 TCero=0 Exento=0 endif if nEvent= ID_AALT SqlStm="INSERT INTO articul ( NUMART , NOMBRE , NUMGPO, SUBGPO , NUMUNI , COSTO , PREVTA , TASAIVA ,TASAIEPS, EXENTO, TASACERO, CLASE , numcia ) VALUES( " SqlStm=SqlStm+"'"+alltrim(NumArt)+"','"+alltrim(NomArt)+"','"+alltrim(GruArt)+"','"+alltrim(SubgArt)+"','"+alltrim(UniArt)+"','"+alltrim(Str(Costo))+"','"+alltrim(Str(PVenta))+"','"+alltrim(Str(TIva))+"','"+alltrim(Str(TIEPS))+"','"+alltrim(Str(Exento))+"','"+alltrim(Str(TCero))+"','"+alltrim(Clase)+"','"+ ...

... ACTIVATE DIALOG oDlg CENTER if lSave if Exento = 2 TCero =1 else TCero =0 endif if TIva >0 TCero=0 Exento=0 endif if nEvent= ID_AALT SqlStm="INSERT INTO articul ( NUMART , NOMBRE , NUMGPO, SUBGPO , NUMUNI , COSTO , PREVTA , TASAIVA ,TASAIEPS, EXENTO, TASACERO, CLASE , numcia ) VALUES( " SqlStm=SqlStm+"'"+alltrim(NumArt)+"','"+alltrim(NomArt)+"','"+alltrim(GruArt)+"','"+alltrim(SubgArt)+"','"+alltrim(UniArt)+"','"+alltrim(Str(Costo))+"','"+alltrim(Str(PVenta))+"','"+alltrim(Str(TIva))+"','"+alltrim(Str(TIEPS))+"','"+alltrim(Str(Exento))+"','"+alltrim(Str(TCero))+"','"+alltrim(Clase)+"','"+ ...

where is HBADO.CH and the res file ?
I saw the sqlbrowse
How can I insert a record ?

Regards

I make tests but it not run
I can Sho w a mdb files on listbox but i cannot edit or insert a record
I read Fiveodbc but there is not a test program
Some can explain me how can I insert a record into Mdb file with xharbour and fivewin
regards

... oDlg:End() SIZE 40, 12 ACTIVATE DIALOG oDlg oDbf:End() oOdbc:End() RETURN (NIL) Now I must create the Insert Module ( I read FiveOdbc guide) Function insercatm(oDbf) oDbf:AddNew() oDbf:Codice := 1 oDbf:Categoria := ...

Luis: El codigo de la tecla DEL es 7, fijate en fwxx\include\inkey.ch: #define K_DEL 7 // Del, Ctrl-G Esto es para wbrowse, pero podrias adaptarlo al equivalente para la tsbrowse: oBrw:bkeydown:={|nk| Teclas(nk,oBrw3,oBrw,walias) } STATIC FUNCTION Teclas(nk,oBrw3,oBrw,walias) if nK==VK_INSERT SALIDA...

I use Mdb file using TOdbc()
oDbf := TDbOdbcDirect():new( "SELECT * FROM prodotti" , oOdbc)
I use a listbox to show all the record
Now I must create the insert operation or modify or delete
I know How can I make it with dbf but I Not Know How can I make with Mdb
Help Me please

Regards
silvio

... DEL CODE 0007:3D9C 0007CH DEL CODE 0007:3E18 0004FH DRAWITEM CODE 0007:3E68 0004FH DRAWITEM CODE 0007:3EB8 0015FH DRAWITEM CODE 0007:4018 000A3H INSERT CODE 0007:40BC 002EEH INSERT CODE 0007:43AA 0008FH INSERT CODE 0007:443A 000C2H LOSTFOCUS CODE 0007:44FC 0007CH LOSTFOCUS CODE 0007:4578 000D3H ...

I want use a file MDB on Xharbour( &fw) with ado or another class
I want open a table and make insert,mod,search and print
there is some example to make it ?

Regards
Silvio

... function, Set an Changedisk codeblock by calling * the HB_SETDISKZIP(). * $EXAMPLES$ * FUNCTION MAIN() * * hb_setdiskzip( {|nDisk| Alert( "Please insert disk no " + Str( nDisk, 3 ) ) } ) * * IF HB_ZIPFILEBYPKSPAN( "a:\TEST.ZIP", "TEST.PRG" ) * qout( "File was successfully created" ) * ENDIF * ...

... "A:" lZipDone:= HB_ZIPFILE( cZip , aFiles , 9, { |cFile,npos| QOUT( cFile ) }, ; .T.,, lZipWithPath, .F. ) ELSE HB_SETDISKZIP({|x| ALERT("Please Insert Disk No:"+ ALLTRIM( STR( x,3 ) ) ) } ) lZipDone:= HB_ZIPFILEBYPKSPAN( cZip , aFiles , 9, { |cFile,npos| QOUT( cFile ) }, ; .T.,, lZipWithPath, ...

Tim,

You may use these methods: SetItems( aItems ) or Insert( cItem, nAt )