Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.12;
Скачать: CL | DM;

Вниз

Копирование таблици   Найти похожие ветки 

 
S@lik ©   (2004-11-11 14:54) [0]

Такая ситуаци мне нужно скопировать таблицу под определеным именем на сервере и очистеть таблицу для далнейшей работы
с помощю компонента Table на компютере подключен сетевой диск к папке в которую надо сохранить таблицу


 
sniknik ©   (2004-11-11 14:59) [1]

и ???
ты у нас разрешения спрашиваеш? ну так я согласен, копируй. счас остальные подтянутся, завизируют, и можеш приступать.
;о))

p.s. тебе вроде уже давали ссылку с инфой как надо задавать вопросы, недочитал?


 
Fyc   (2004-11-11 15:02) [2]

Вот держи
нужно два 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;


 
S@lik ©   (2004-11-11 15:07) [3]

Fyc спасибо тебе что помог а то sniknik © надомной издевается


 
msguns ©   (2004-11-11 15:09) [4]

>sniknik ©   (11.11.04 14:59) [1]
Таможня дает добро


 
Anatoly Podgoretsky ©   (2004-11-11 15:18) [5]

S@lik ©   (11.11.04 15:07) [3]
Не, это ты над нами издеваешься.


 
sniknik ©   (2004-11-11 15:45) [6]

я издеваюсь? да ни за что, это противно моей природе, только помогать вот мой девиз ;о))

вот мой вариант.  

OldTable.Close;
NewTable.Close;
CopyFile(PChar(OldTable.DatabaseName+OldTable.TableName), PChar(NewTable.DatabaseName+NewTable.TableName), False)
OldTable.Open;
NewTable.Open;
OldTable.EmptyTable

понятно, никаких алиасов в датабейсе, только путь, со слешом на конце.


 
sniknik ©   (2004-11-11 15:46) [7]

ну вот, забыл точку с запятой, так торопился хотел быстрее помочь. ;о)


 
Fyc ©   (2004-11-11 16:05) [8]

а как же индексы?


 
Fyc ©   (2004-11-11 16:07) [9]

Удалено модератором


 
Fyc ©   (2004-11-11 16:09) [10]

Удалено модератором


 
sniknik ©   (2004-11-11 16:11) [11]

это на домашнее задание оставим. ;о)) хотя знаеш, три раза вопрос перечитал, ну нету в вопросе индексов! только таблицу нужно скопировать.

вообще чего придираешся? я же тебя не спрашиваю где данные?


 
Fyc ©   (2004-11-12 12:10) [12]


> очистеть таблицу

это из первого вопроса


 
sniknik ©   (2004-11-12 14:47) [13]

а, так у тебя код "очищения" тогда где копирование? данных, данных имею ввиду.



Страницы: 1 вся ветка

Текущий архив: 2004.12.12;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.327 c
1-1101887251
Майя
2004-12-01 10:47
2004.12.12
Закрытие OLe объекта


1-1101447353
Рафик
2004-11-26 08:35
2004.12.12
Вопрос по TreeView


6-1096520227
Луарвик
2004-09-30 08:57
2004.12.12
TidTCPClient


1-1101261730
Bobby Digital
2004-11-24 05:02
2004.12.12
проверить на тип


14-1100768556
ИМХО
2004-11-18 12:02
2004.12.12
Brain drain