Importing MEMO fields from Access
Harry Oliemans
harryoli at multiweb.nl
Tue Sep 21 01:53:11 PDT 2004
I have an Access database (.MDB) containing 740 records. The first 4
fields are normal numeric or alphabetic fields. The latter 6 are MEMO
fields.
I want to import this in filePro. Converted it to a CSV file. But how
do I convert the MEMO fields to BLOB?
I tried MEMO fieldnumber IMPORT NFILE(5) but this don't work.
Anybody who can help me with this?
Here's my code sofar:
:'PHO:'21/9/2004:
::hl(3,.0) 'Hulpveld:
:'Hulpvelden:aa(3,*); ab(1,.0); ac(116,*); ad(38,*):
::ae(16,MEMO); af(16,MEMO); ag(16,MEMO); ah(16,MEMO); ai(16,MEMO);
aj(16,MEMO):
::rt(8,.0,G) 'Records toegevoegd:
::ft(1,.0,G) 'First Time in program:
::kz(1,.0) 'Keuze uit listbox:
:'Vraagstelling afbreken verwerking:DIM lbVraag(2)(23,*):
Start:ft="":ft="1"; SHOW ("24","31") "\K4-Onderbreken":
::CLS("11"):
NextRec::ik=INKEY:
:@SK="SAVE":GOSUB Cancel:
::GOSUB ReadL:
::aa=NFILE(1); ab=NFILE(2); ac=NFILE(3); ad=NFILE(4):
::MEMO ae IMPORT NFILE(5):
::lookup ICPC = ticpc-icd10 r=free -E:
:'copieer nieuwe data...:ICPC(1)=aa; ICPC(2)=ab; ICPC(3)=ac; ICPC(4)=ad:
::MEMO ICPC(5) IMPORT ae:
::WRITE ICPC:
::rt=rt+"1"; SHOW ("15","30") " Records toegevoegd"&rt:
::GOTO NextRec:
::END:
ReadL::IMPORT ASCII NFILE=ICPC2NL.TXT R=\n F=, O=" C=":
:NFILE:RETURN:
::MSGBOX "Importeren voltooid.\nRecords toegevoegd"&rt:
::EXIT:
Cancel::lbVraag("1")="Doorgaan met verwerking":
::lbVraag("2")="Verwerking afbreken":
::kz=LISTBOX(lbVraag,"1","2"):
:kz="0":GOTO Cancel:
:kz="2":EXIT:
::RETURN:
Thanks in advance
Harry Oliemans
filePro nut
More information about the Filepro-list
mailing list