Копирование таблицы с помощью DBE

Советы » Таблицы » Копирование таблицы с помощью DBE

function

CopyTable(tbl: TTable; dest: string

): boolean; var

psrc, pdest: array

[0..DBIMAXTBLNAMELEN] of

char; rslt: DBIResult; begin

Result := False

; StrPCopy(pdest, dest); with

tbl do

begin

try

DisableControls; StrPCopy(psrc, TableName); rslt := DbiCopyTable(DBHandle, True

, psrc, nil

, pdest); Result := (rslt = 0); finally

Refresh; EnableControls; end

; end

; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com