Hent data fra ODBC via Makro

Hej !

Ved ikke om det her virker - jeg har oracle for win95 installeret - med denne er der installeret en "Microsoft ODBC manager" - her kan jeg gå ind og oprette ODBC forbindelser til vores økonomisystem (C.XAL).

- jørgen

Jeg har oprettet ODBC'en, det er mere hvordan jeg fra Makroen forbinder mig til ODBC'en (databasen).
Jeg skal kunne lave forskellige SQL udtræk, der skal bruges i regnearket.

Alternativt indsæt denne makro !

Sheets("ORACLE").Select
    Range("C1").Select
With Selection.QueryTable
        .Connection = _
        "ODBC;DSN=ODBC - FINANS;UID=XXXX;PWD=XXXX;DBQ=PDATA;DBA=R;APA=T;PFC=1;TLO=0;"
        .Sql = Array( _
        "SELECT LEDTRANS.DEPARTMENT, LEDTRANS.ACCOUNTNUMBER, LEDTRANS.AMOUNTMST, LEDTRANS.CENTRE, LEDTRANS.PURPOSE, LEDTRANS.DATE_" & Chr(13) & "" & Chr(10) & "FROM XAL_ARTEMA.LEDTABLE LEDTABLE, XAL_ARTEMA.LEDTRANS LEDTRANS" & Chr(13) & "" & Chr(10) & "WHERE LEDTRA" _
        , _
        "NS.ACCOUNTNUMBER = LEDTABLE.ACCOUNTNUMBER AND ((LEDTRANS.DATASET='DAT') AND " & halløj & " AND (LEDTRANS.CENTRE Not Like 'P%" _
        , _
        "' And LEDTRANS.CENTRE Not Like 'p%') AND (LEDTABLE.CHARTACTYPE=0) AND (LEDTABLE.ACCOUNTNUMBER Not Like '  50%' And LEDTABLE.ACCOUNTNUMBER Not Like '  51%' And LEDTABLE.ACCOUNTNUMBER Not Like '  71%" _
        , _
        "' And LEDTABLE.ACCOUNTNUMBER Not Like '  70%' And LEDTABLE.ACCOUNTNUMBER Not Like '  80%' And LEDTABLE.ACCOUNTNUMBER Not Like '  81%' And LEDTABLE.ACCOUNTNUMBER Not Like '  85%'))" & Chr(13) & "" & Chr(10) & "ORDER BY LEDTRA" _
        , "NS.DEPARTMENT, LEDTRANS.ACCOUNTNUMBER")
        .Refresh False

Bemærk - jeg henter fra en tabel "ledtable"  -og har en masse kritierier !!!! men princippet er det afgørende !

-jørgen

Hedder din ODBC så "ODBC - FINANS" ?

jeps !

men der er nemmere - at du starter på at "optage" makroen..

1) data / get external data / create new queri
2) åbner din odbc
3) indsætter kriterier og returner
4) stopper optagelsen..

så har du en komplet makro - som du kan ændre efter forgodtbefindende !

-jørgen

Mange tak, nu tror jeg at jeg har rigeligt.  :o)