acess con ado

Moderator: Enrico Maria Giordano

acess con ado

Postby Silvio » Sat Feb 09, 2008 12:41 am

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]
Best Regards, Saludos

Falconi Silvio
User avatar
Silvio
 
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Re: acess con ado

Postby Enrico Maria Giordano » Sat Feb 09, 2008 3:56 pm

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

EMG
User avatar
Enrico Maria Giordano
 
Posts: 8243
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Aiuto Adordd

Postby Lisa Giordano » Thu Jul 10, 2008 1:42 pm

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
User avatar
Lisa Giordano
 
Posts: 25
Joined: Wed Jul 09, 2008 5:56 pm

Re: Aiuto Adordd

Postby Enrico Maria Giordano » Thu Jul 10, 2008 1:57 pm

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

EMG
User avatar
Enrico Maria Giordano
 
Posts: 8243
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Re: Aiuto Adordd

Postby Lisa Giordano » Thu Jul 10, 2008 2:15 pm

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 :D :D
User avatar
Lisa Giordano
 
Posts: 25
Joined: Wed Jul 09, 2008 5:56 pm

Re: Aiuto Adordd

Postby Enrico Maria Giordano » Thu Jul 10, 2008 6:05 pm

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
User avatar
Enrico Maria Giordano
 
Posts: 8243
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

adordd

Postby Lisa Giordano » Fri Jul 11, 2008 9:51 am

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
User avatar
Lisa Giordano
 
Posts: 25
Joined: Wed Jul 09, 2008 5:56 pm


Return to All products support

Who is online

Users browsing this forum: No registered users and 1 guest