Hi All
I still can't load the content of a .d file in the table which is in a Progress database.
After deleting of the table's fields I create a query and a buffer I open the query and try this:
DEF VAR handle_fields AS HANDLE EXTENT 100.
DEF VAR i AS INTEGER NO-UNDO.
DEF VAR rows AS INTEGER NO-UNDO.
DO i=1 to rows:
handle_fields = blo:BUFFER-FIELD(i).
END.
qlo:GET-FIRST().
REPEAT:
IF qlo:QUERY-OFF-END THEN LEAVE.
DO TRANSACTION :
input from value(get-value("input")).
qlo:GET-CURRENT(EXCLUSIVE-LOCK).
blo:BUFFER-CREATE().
DO i=1 to rows:
handle_fields:BUFFER-VALUE = get-value(handle_fields:LABEL).
import handle_fields:BUFFER-VALUE
END.
input close.
END.
qlo:GET-NEXT().
END.
DELETE OBJECT blo.
DELETE OBJECT qlo.
END.
It doesn't work so if someone has an idea ...
Thanks
I still can't load the content of a .d file in the table which is in a Progress database.
After deleting of the table's fields I create a query and a buffer I open the query and try this:
DEF VAR handle_fields AS HANDLE EXTENT 100.
DEF VAR i AS INTEGER NO-UNDO.
DEF VAR rows AS INTEGER NO-UNDO.
DO i=1 to rows:
handle_fields = blo:BUFFER-FIELD(i).
END.
qlo:GET-FIRST().
REPEAT:
IF qlo:QUERY-OFF-END THEN LEAVE.
DO TRANSACTION :
input from value(get-value("input")).
qlo:GET-CURRENT(EXCLUSIVE-LOCK).
blo:BUFFER-CREATE().
DO i=1 to rows:
handle_fields:BUFFER-VALUE = get-value(handle_fields:LABEL).
import handle_fields:BUFFER-VALUE
END.
input close.
END.
qlo:GET-NEXT().
END.
DELETE OBJECT blo.
DELETE OBJECT qlo.
END.
It doesn't work so if someone has an idea ...
Thanks