| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Копирование таблици [D6, dBase, FoxPro]
S@lik © (2004-11-11 14:54:00)Такая ситуаци мне нужно скопировать таблицу под определеным именем на сервере и очистеть таблицу для далнейшей работы
с помощю компонента Table на компютере подключен сетевой диск к папке в которую надо сохранить таблицу
sniknik (2004-11-12 14:47:00) [1]а, так у тебя код "очищения" тогда где копирование? данных, данных имею ввиду.
Fyc (2004-11-12 12:10:00) [2]
> очистеть таблицу
это из первого вопроса
sniknik (2004-11-11 16:11:00) [3]это на домашнее задание оставим. ;о)) хотя знаеш, три раза вопрос перечитал, ну нету в вопросе индексов! только таблицу нужно скопировать.
вообще чего придираешся? я же тебя не спрашиваю где данные?
Fyc (2004-11-11 16:09:00) [4]Удалено модератором
Fyc (2004-11-11 16:07:00) [5]Удалено модератором
Fyc (2004-11-11 16:05:00) [6]а как же индексы?
sniknik (2004-11-11 15:46:00) [7]ну вот, забыл точку с запятой, так торопился хотел быстрее помочь. ;о)
sniknik (2004-11-11 15:45:00) [8]я издеваюсь? да ни за что, это противно моей природе, только помогать вот мой девиз ;о))
вот мой вариант.
OldTable.Close;
NewTable.Close;
CopyFile(PChar(OldTable.DatabaseName+OldTable.TableName), PChar(NewTable.DatabaseName+NewTable.TableName), False)
OldTable.Open;
NewTable.Open;
OldTable.EmptyTable
понятно, никаких алиасов в датабейсе, только путь, со слешом на конце.
Anatoly Podgoretsky (2004-11-11 15:18:00) [9]S@lik © (11.11.04 15:07) [3]
Не, это ты над нами издеваешься.
msguns (2004-11-11 15:09:00) [10]>sniknik © (11.11.04 14:59) [1]
Таможня дает добро
S@lik (2004-11-11 15:07:00) [11]Fyc спасибо тебе что помог а то sniknik © надомной издевается
Fyc (2004-11-11 15:02:00) [12]Вот держи
нужно два TTable для старой базы OldTable и для новой NewTable
procedure TForm1.Button2Click(Sender: TObject);
begin
OldTable.IndexDefs.Update;
with NewTable do
begin
DatabaseName:='путь к твоей базе данных';
TableName:='имя новой таблицы';
tableType:=ttdbase; //или какой там тебе нужен
fieldDefs:=OldTable.FieldDefs;
IndexDefs:=OldTable.IndexDefs;
CreateTable;
Free;
end;
end;
sniknik (2004-11-11 14:59:00) [13]и ???
ты у нас разрешения спрашиваеш? ну так я согласен, копируй. счас остальные подтянутся, завизируют, и можеш приступать.
;о))
p.s. тебе вроде уже давали ссылку с инфой как надо задавать вопросы, недочитал?
| |
