Progress 4GL (Örnek Dosya Okuma)

Veri Tabanı Programlama Bölümü
Kullanıcı Hakkında Adres Defterinize Ekleyin Kullanıcıya Mesaj Yollayın! Cervantes jj (2006-11-04) Yazıcı Dostu Değerlendir Yorum Ekle
Bookmark and Share
Progress 4GL (Örnek Dosya Okuma)
Progress 4GL (Örnek Dosya Okuma)
DEF INPUT PARAM pfName AS CHAR NO-UNDO.
DEF INPUT PARAM pTable AS CHAR NO-UNDO.

DEF VAR ttHandle AS HANDLE.
DEF VAR bHandle AS HANDLE.
DEF VAR qHandle AS HANDLE.
DEF VAR fHandle AS HANDLE.
DEF VAR bTableHandle AS HANDLE NO-UNDO.

DEF VAR pBaslik AS CHAR NO-UNDO.
DEF VAR pSatir AS CHAR NO-UNDO.
DEF VAR pColName AS CHAR NO-UNDO.
DEF VAR pDbColName AS CHAR NO-UNDO.

DEF VAR i AS INT NO-UNDO.

CREATE TEMP-TABLE ttHandle.

INPUT FROM VALUE(pfName).

IMPORT UNFORMATTED pBaslik.

DO i=1 TO NUM-ENTRIES(pBaslik,";"):
pColName = ENTRY(i, pBaslik,";").
IF pColName EQ "" THEN NEXT.
pDbColName = pTable + "." + pColName.
ttHandle:ADD-LIKE-FIELD(pColName,pDbColName).
END.

ttHandle:TEMP-TABLE-PREPARE("tFile").

bHandle = ttHandle:DEFAULT-BUFFER-HANDLE.

REPEAT:

IMPORT UNFORMATTED pSatir.
bHandle:BUFFER-CREATE.

DO i=1 TO NUM-ENTRIES(pBaslik,";"):
pColName = ENTRY(i, pBaslik,";").
IF pColName EQ "" THEN NEXT.
fHandle = bHandle:BUFFER-FIELD(pColName).
fHandle:BUFFER-VALUE = ENTRY(i, pSatir,";").
END.

END.

INPUT CLOSE.

CREATE QUERY qHandle.
qHandle:SET-BUFFERS(bHandle).
qHandle:QUERY-PREPARE("FOR EACH tFile").
qHandle:QUERY-OPEN().

CREATE BUFFER bTableHandle FOR TABLE pTable.

REPEAT TRANSACTION:
qHandle:GET-NEXT().
IF qHandle:QUERY-OFF-END THEN LEAVE.

bTableHandle:BUFFER-CREATE().
bTableHandle:BUFFER-COPY(bHandle).
bTableHandle:BUFFER-RELEASE().

END.

qHandle:QUERY-CLOSE().
bHandle:BUFFER-RELEASE().

DELETE OBJECT bTableHandle.
DELETE OBJECT ttHandle.
DELETE OBJECT qHandle.

Dokümanı Değerlendirin. DEĞERLENDİR:
Şu anda 1 kişinin verdiği oya göre bu dokümanın aldığı oy :
Değerlendirmek için buraya basınız.
YAZARIN DİĞER YOLLADIĞI DOKÜMANLAR:
» Progress Browser 2006-11-04 (911)
Progress Browser. Arama.
» Progress'te Excel'e Veri Atma 2006-11-04 (1225)
Progress'te Excel'e Veri Atma

EN YENİ 5 DOKÜMAN:
» SQL Server Sınavları 2008-09-18 (2685)
Sorgu ve veri tabanı tanımlama
» Veri Bütünlüğü (Constraint, default ve rule nesnesi tanımlama) 2008-06-10 (2393)
Örnek Tablo üzerinden Veri Bütünlüğü
» Kütüphane Programı ( Access ) 2008-04-14 (9928)
Okul Kütüphane Programı.
» MsSql Sayıyı Yazıya Çeviren Fonksiyon 2008-02-26 (1904)
MsSql200x Sayıyı Yazıya Çeviren Fonksiyon
» Veri tabanındaki belirli bir veri tipini otomatik değiştirme 2007-11-20 (2209)
Büyük veri tabanlarında veri tipini veya uzunluğunu nasıl değiştirirsiniz?
Bu dökümanı nasıl buldunuz?