Re: import data

From: Alexander Nikolaev <support_at_eufn.ru>
Date: Mon, 4 Dec 2000 19:40:49 +0300
Message-ID: <90gi22$3ms$1@storm.comstar.ru>

<claudio_montoya_at_my-deja.com> ÓÏÏÂÝÉÌ × ÎÏ×ÏÓÔÑÈ ÓÌÅÄÕÀÝÅÅ:90g19a$oi4$1_at_nnrp1.deja.com...
> Can someone help me?. I trying to import data to
> an Oracle Database from an Access table or from a
> Excel file but i can´t.
> What can i do?

Create ODBC connect
then
Maybe this help

PROCEDURE mfb_load IS

   conn EXEC_SQL.ConnType;
   curs EXEC_SQL.CursType;
...

   cstr varchar2(30) := :NONE.CONN_STRING; ...

   db('start');
    conn:=EXEC_SQL.OPEN_CONNECTION('/@'||cstr);     curs:=EXEC_SQL.OPEN_CURSOR(conn);

   Begin
...

    EXEC_SQL.PARSE(conn, curs,
    'SELECT S.SDEL,S.CSALE,S.CBUY,S.DAT,S.DATT,

     S.SHARE,S.SUMM,S.KOLICH,S.BIRSBOR1,S.DEPSBOR1,
        S.BIRSBOR2,S.DEPSBOR2,DEPO

    from '||fname);
....

    EXEC_SQL.DEFINE_COLUMN(conn, curs, 1, SDEL,     16);
    EXEC_SQL.DEFINE_COLUMN(conn, curs, 2, CSALE,    16);
    EXEC_SQL.DEFINE_COLUMN(conn, curs, 3, CBUY,     16);
    EXEC_SQL.DEFINE_COLUMN(conn, curs, 4, DAT  );
    EXEC_SQL.DEFINE_COLUMN(conn, curs, 5, DATT,     12);
    EXEC_SQL.DEFINE_COLUMN(conn, curs, 6, qSHARE,    14);
    EXEC_SQL.DEFINE_COLUMN(conn, curs, 7, SUMM  );
    EXEC_SQL.DEFINE_COLUMN(conn, curs, 8, KOLICH );
    EXEC_SQL.DEFINE_COLUMN(conn, curs, 9, BIRSBOR1 );
    EXEC_SQL.DEFINE_COLUMN(conn, curs,10, DEPSBOR1 );
    EXEC_SQL.DEFINE_COLUMN(conn, curs,11, BIRSBOR2 );
    EXEC_SQL.DEFINE_COLUMN(conn, curs,12, DEPSBOR2 );
    EXEC_SQL.DEFINE_COLUMN(conn, curs,13, INDEPO,10 );

    ignore:=EXEC_SQL.EXECUTE(conn, curs);

    LOOP

      IF EXEC_SQL.FETCH_ROWS(conn, curs)>0 THEN
         EXEC_SQL.COLUMN_VALUE(conn, curs, 1, SDEL);
         EXEC_SQL.COLUMN_VALUE(conn, curs, 2, CSALE);
         EXEC_SQL.COLUMN_VALUE(conn, curs, 3, CBUY);
         EXEC_SQL.COLUMN_VALUE(conn, curs, 4, DAT);
         EXEC_SQL.COLUMN_VALUE(conn, curs, 5, DATT);
         EXEC_SQL.COLUMN_VALUE(conn, curs, 6, qSHARE);
         EXEC_SQL.COLUMN_VALUE(conn, curs, 7, SUMM);
         EXEC_SQL.COLUMN_VALUE(conn, curs, 8, KOLICH);
         EXEC_SQL.COLUMN_VALUE(conn, curs, 9, BIRSBOR1);
         EXEC_SQL.COLUMN_VALUE(conn, curs,10, DEPSBOR1);
         EXEC_SQL.COLUMN_VALUE(conn, curs,11, BIRSBOR2);
         EXEC_SQL.COLUMN_VALUE(conn, curs,12, DEPSBOR2);
         EXEC_SQL.COLUMN_VALUE(conn, curs,13, INDEPO);

    EXEC_SQL.CLOSE_CURSOR(conn, curs);
    EXEC_SQL.CLOSE_CONNECTION(conn);
...
insertion of gained values is of standard type. Received on Mon Dec 04 2000 - 10:40:49 CST