FiveTech Software tech support forums

Caro Emg,
questo esempietto con pochi field funziona poi quandoinserisco altri campi mi fa errore :

Code: Select all  Expand view


#include "Fivewin.ch"

FUNCTION MAIN()

    LOCAL oRs, oErr

    oRs = CREATEOBJECT( "ADODB.Recordset" )

    TRY
        oRS:Open( "SELECT * FROM Utenti", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ecom.mdb", 1, 3 )
    CATCH oErr
        ? oErr:Description
        RETURN NIL
    END TRY

    WBROWSERECORDSET( oRs )
 
    oRs:Close()

    RETURN NIL


STATIC FUNCTION WBROWSERECORDSET( oRs )

    LOCAL oDlg, oBrw, nRec

    DEFINE DIALOG oDlg SIZE 800, 300

    @ 0, 0 LISTBOX oBrw FIELDS ;
                    oRs:Fields( "ID" ):Value,;
                    oRs:Fields( "Nome" ):Value,;
                    oRs:Fields( "Cognome" ):Value,;
                    oRs:Fields( "Via" ):Value,;
                    oRs:Fields( "Civico" ):Value,;
                    oRs:Fields( "Cap" ):Value,;
                    oRs:Fields( "Citta" ):Value,;
                    oRs:Fields( "Provincia" ):Value,;
                    oRs:Fields( "Stato" ):Value,;
                    oRs:Fields( "Telefono" ):Value,;
                    oRs:Fields( "CodiceFiscale" ):Value;
           HEADERS "Codice","Nome","Cognome","Indirizzo",;
                   "Numero","Cap","Provincia","Città","Provincia",;
                   "Stato","Telefono","Codice Fiscale";
           ON RIGHT CLICK ( nRec := oRs:AbsolutePosition,;
                            oBrw:Report( "TWBrowse report", .T. ),;
                            oRs:MoveFirst(),;
                            oRs:Move( nRec - 1 ) )

    oBrw:bLogicLen = { || oRs:RecordCount }
    oBrw:bGoTop    = { || oRs:MoveFirst() }
    oBrw:bGoBottom = { || oRs:MoveLast() }
    oBrw:bSkip     = { | nSkip | Skipper( oRs, nSkip ) }
    oBrw:cAlias    = "ARRAY"

    ACTIVATE DIALOG oDlg;
             ON INIT oDlg:SetControl( oBrw );
             CENTER

    RETURN NIL

STATIC FUNCTION SKIPPER( oRs, nSkip )

    LOCAL nRec := oRs:AbsolutePosition

    oRs:Move( nSkip )

    IF oRs:EOF; oRs:MoveLast(); ENDIF
    IF oRs:BOF; oRs:MoveFirst(); ENDIF

    RETURN oRs:AbsolutePosition - nRec





l'errore è

Application
===========
Path and name: C:\work\errori\mdb\test.Exe (32 bits)
Size: 1,395,712 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 02/11/08, 01:43:25
Error description: Error BASE/1132 Bound error: array access[/code]

C'è un header in più (Indirizzo).

EMG

Ciao a tutti, e gia' da qulache mese che ho scoperto grazie a questo sito la flessibilità di xh + fwh.
Ho scaricato adordd in quanto vorrei capire se possibile leggere tabelle mdb
ma non so come compilare gli esempi access1 etc
Potete darmi una mano
Grazie

Hai provato con gli appositi batch forniti con le FWH? Sono Buildh.bat per Harbour e Buildx.bat per xHarbour.

EMG

Grazie per avermi contattato
Ho provato con buildx, ma sinceramente sono alle prime armi con questo con xh, ho provato ha copiare la cartella adordd in fwh/samples/ ma ottego solo errori.
Lo so ancora non ho preso confidenza con questo sistema, ma ritengo che sia molto potente, e vorrei se riesco apprenderlo.
Ciao

Ti serve solo adordd.lib (oppure adordd.prg se ce l'hai in sorgente) e adordd.ch. Devi solo linkare la libreria al tuo programma.

EMG

Ho provato ha compilare "access1.prg e adordd.prg" con brmake ma mi da errore nella lib usrrdd.
Ho tentato con buildx ma non ho capito come indicare i 2 prg, potresti darmi qualche dritta.
Grazie