Хотите раскрутить свой сайт в Яндекс и Google?
Недорогое и качественное продвижение сайта от 50$

Delphi 1

Копирование таблицы с помощью 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;

[000615]

Материалы, которые находятся на этой страничке, любезно предоставлены Игорем Ивановым

РЕКЛАМНЫЙ БЛОК