How to add datavalue into database from text file

There are a couple of problems I can see, for one, the 'INPUT FROM' doesn't look right, the other issue is that you have commas in your 'IMPORT' statement, which is what the thing is complaining about (notice how the error says 'Unable to understand after -- "DELIMITER ; oname", what that is saying is that something after that statement is confusing it (in this case the comma).

On a working one that I have, I do

INPUT FROM VALUE ("filename").

In your case, that would be

INPUT FROM VALUE ("ownerData.txt") (you may need to give it the full path if it isn't in your propath).

Once I have done that, I use a 'REPEAT' statement to loop through every line in the file, and 'IMPORT' them into what I want.

In your case, you could probably get away with just doing:

REPEAT:

 IMPORT DELIMITER ";"
   oname
   osurname
   otelefon
   oemail.

 DISPLAY oname osurname otelefon oemail.

END.

For an 'Import' statement (and certain other ones), I like to put each variable on its own line, just so I can read things easier.

Oh, thanks a lot for your answer! It's works!

Could you tell me: it's big diference for data value  - I read into database data from simple text file or cvs file?

How I can control, that it's show (display) data from database, not temporate variable value?

Yeah, you can read it into the DB, it's how I do it for our pricefiles from supplier CSV files.

Inside the 'repeat' you just need to do a create record statement and then set some field values.

Once you have created the record, you could 'release' the record and then do a 'find' statement on it (assuming you have enough info to find the record afterwards.

To find the record afterwards you would have to know what record you just did, which means still having the variables (or at least some of them).

For example:

REPEAT:

 CREATE Owner.

 IMPORT DELIMITER ";"

   Owner.Name

   Owner.SurName

   Owner.Telefon

   Owner.E_mail.

 oname = Owner.Name.

 osurname = Owner.SurName.

 RELEASE Owner.

 FIND Owner NO-LOCK WHERE Owner.Name = oname AND Owner.SurName = osurname NO-ERROR.

 IF AVAIL ( Owner ) THEN DISPLAY Owner.

END.

Obviously I have made assumptions when it comes to the 'FIND' statement since I don't know how your indexes, etc... are set up.

This is also a very rough and dirty way, ideally you would have buffers defined so that you aren't using the default table buffer that OpenEdge provides, and you would probably have more error checking (maybe make it a transaction so it all has to be read successfully from the text file or none of it goes in, etc...), but that should give you ideas to help.

I'm so sory for my silly question - I just start to study Progress and have no many best practic examples for my target. I created code follow your instructions:

DEFINE VARIABLE oname  NO-UNDO LIKE Owner.Name.
DEFINE VARIABLE osurname NO-UNDO LIKE Owner.SurName.
DEFINE VARIABLE otelefon  NO-UNDO LIKE Owner.Telefon.
DEFINE VARIABLE oemail  NO-UNDO LIKE Owner.E_mail.

INPUT FROM VALUE ("ownerData.txt").

REPEAT:
 CREATE Owner.
 IMPORT DELIMITER ";"
   Owner.Name
   Owner.SurName
   Owner.Telefon
   Owner.E_mail.
 oname = Owner.Name.
 osurname = Owner.SurName.
 otelefon = Owner.Telefon.
 oemail = Owner.E_mail.
 RELEASE Owner.

 FIND Owner NO-LOCK WHERE Owner.Name = oname AND Owner.SurName = osurname NO-ERROR.
 IF AVAIL ( Owner ) THEN DISPLAY Owner.
END.

I hope it's work, but I receive unexpected result. I have sequence (IdOwner_seq),
that must authomatly create ID record. In my database, that was created in Data Dictionary,
I aready have the Trigger procedure for my ID sequence:

TRIGGER PROCEDURE FOR ASSIGN OF Owner.IdPerson.
ASSIGN Owner.IdPerson = NEXT-VALUE(IdPerson_seq).

End for result database didn't create next record and next sequence value, wrote that Owner is already exist
with IdPerson 1.

Why sequence didn't add next value for next record?

I'm so sorry, but Progress documentation suggest  ASSIGN.  

From documentation (https://knowledgebase.progress.com/articles/Article/P80479) :

For example, the following CREATE trigger for the Item table automatically assigns
a unique item number using NextItemNum sequence:

TRIGGER PROCEDURE FOR Create OF Item.
ASSIGN Item.ItemNum = NEXT-VALUE(NextItemNum).

If I undestand quite normal, in my project trigger should to be:

TRIGGER PROCEDURE FOR CREATE OF Owner.IdPerson.
ASSIGN Owner.IdPerson = NEXT-VALUE(IdPerson_seq).

Dear Brian, I`m so sorry that you think that I offended you with my doubts - of couse you are proffy, what why I asked:

why you suggest right tech solution and it must work, but I didn't caught working solution - of cause, I do something wrong.  Please, if for you it not hard, explain me my mistake.

First of all I changed my trigger. It's now look like:

TRIGGER PROCEDURE FOR CREATE OF Owner.IdPerson.
ASSIGN Owner.IdPerson = NEXT-VALUE(IdPerson_seq).

And now I add in my project next code:


/* Fragment 1 begin */

DEFINE VARIABLE iCurrentOwnerNum AS INTEGER NO-UNDO.
ASSIGN
    iCurrentOwnerNum = CURRENT-VALUE(IdPerson_seq).
FIND FIRST Owner NO-LOCK WHERE Owner.IdPerson = iCurrentOwnerNum NO-ERROR.

/* Fragment 1 end */

/* Fragment 2 begin */

DEFINE VARIABLE oname  NO-UNDO LIKE Owner.Name.
DEFINE VARIABLE osurname NO-UNDO LIKE Owner.SurName.
DEFINE VARIABLE otelefon  NO-UNDO LIKE Owner.Telefon.
DEFINE VARIABLE oemail  NO-UNDO LIKE Owner.E_mail.

INPUT FROM VALUE ("ownerData.txt").

REPEAT:
 CREATE Owner.
 IMPORT DELIMITER ";"
   Owner.Name
   Owner.SurName
   Owner.Telefon
   Owner.E_mail.
 oname = Owner.Name.
 osurname = Owner.SurName.
 otelefon = Owner.Telefon.
 oemail = Owner.E_mail.
 RELEASE Owner.

 FIND Owner NO-LOCK WHERE Owner.Name = oname AND Owner.SurName = osurname NO-ERROR.
 IF AVAIL ( Owner ) THEN DISPLAY Owner.


END.

/* Fragment 2 end */

Why Fragment 1 work without any problem (I hope - it show info: Procedure complete), but Fragment 1 and Fragment 2
didn't work correctly together.
Now I have the result that was before. And I don't understand quite normal - why?

Trigger procedURE FOR CREATE OF Owner.IdPerson should be Trigger procedure for create of Owner. Check manual:https://documentation.progress.com/output/ua/OpenEdge_latest/index.html#page/dvref/trigger-procedure-statement.html

<ProgressEmailLogo-png_2D00_150x42x2-png> Update from Progress Community <avatar-png_2D00_70x70x2-png> miha56155136 Dear Brian, I`m so sorry that you think that I offended you with my doubts - of couse you are proffy, what why I asked: why you suggest right tech solution and it must work, but I didn't caught working solution - of cause, I do something wrong.  Please, if for you it not hard, explain me my mistake. First of all I changed my trigger. It's now look like: TRIGGER PROCEDURE FOR CREATE OF Owner.IdPerson. ASSIGN Owner.IdPerson = NEXT-VALUE(IdPerson_seq). And now I add in my project next code: /* Fragment 1 begin */ DEFINE VARIABLE iCurrentOwnerNum AS INTEGER NO-UNDO. ASSIGN iCurrentOwnerNum = CURRENT-VALUE(IdPerson_seq). FIND FIRST Owner NO-LOCK WHERE Owner.IdPerson = iCurrentOwnerNum NO-ERROR. /* Fragment 1 end */ /* Fragment 2 begin */ DEFINE VARIABLE oname NO-UNDO LIKE Owner.Name. DEFINE VARIABLE osurname NO-UNDO LIKE Owner.SurName. DEFINE VARIABLE otelefon NO-UNDO LIKE Owner.Telefon. DEFINE VARIABLE oemail NO-UNDO LIKE Owner.E_mail. INPUT FROM VALUE ("ownerData.txt"). REPEAT: CREATE Owner. IMPORT DELIMITER ";" Owner.Name Owner.SurName Owner.Telefon Owner.E_mail. oname = Owner.Name. osurname = Owner.SurName. otelefon = Owner.Telefon. oemail = Owner.E_mail. RELEASE Owner. FIND Owner NO-LOCK WHERE Owner.Name = oname AND Owner.SurName = osurname NO-ERROR. IF AVAIL ( Owner ) THEN DISPLAY Owner. END. /* Fragment 2 end */ Why Fragment 1 work without any problem (I hope - it show info: Procedure complete), but Fragment 1 and Fragment 2 didn't work correctly together. Now I have the result that was before. And I don't understand quite normal - why? View online   You received this notification because you subscribed to the forum.  To unsubscribe from only this thread, go here. Flag this post as spam/abuse.

Hello everyone!

I checked my code and tested it and I found out, that programm didn't see sequence file in database directory (WRK) -

I don't figure out how it may be, file with sequence is present, programm display next value of sequence

(now in database only 1 record, and sequence varriable iCurrentOwnerNum = CURRENT-VALUE(IdPerson_seq) equil 2),

and can show name file of sequence, but told - "sorry, I can't find file with sequence". Why?

Try the manual:

Hello, dear Goo, unfortunately link that you send me is not suitable - I use ABL, but in link use SQL syntax - I can`t use in my projekt SQL.

You add the sequence in the database. Ref dictionarytool.. add sequence and then you can use next-value(...)

Miha,

Are you available today?

Brian