Создание копии таблицы

@СУСАННА · Регистрация: 01.11.2008

Студворк — интернет-сервис помощи студентам

Здравствуйте!
Есть таблица SHABLON в БД dones, эта таблица служит шаблоном для создания порядка 50-ти таблиц. Проблема в том,что мне нужно программно (в delphi) копировать эту таблицу в ту же БД.
Помогите пожалуйста!

@Angry_Bobo · 10.11.2008, 09:55

Используй компонет TQuery и метод TQuery.ExecSQL
SQL - команда выглядит так:

SQL
1
 CREATE TABLE табличка AS SELECT * FROM Shablon

З.Ы. это самое простое решение...

@СУСАННА · 10.11.2008, 13:41 **[ТС]**

Angry_Bobo, не могли бы вы написать подробнее?

@Angry_Bobo · 11.11.2008, 11:04

А какие подробности?

При помощи SQL-команды создаем таблицу равную по структуре с таблицей SHABLON. Если работаем с технологией BDE, то используем для этого компонент TQuery.

Вот простенький примерЧег:

Delphi
1
2
3
4
5
newQuery:=TQuery.Create(self);
newQuery.DatabaseName := 'dones';
newQuery.SQL.Text:='CREATE TABLE Таблица AS SELECT * FROM SHABLON;//создать таблицу со структурой соотв. табл. ShABLON
newQuery.ExecSQL;//Выполнили SQL-команду
newQuery.Free;

@СУСАННА · 11.11.2008, 14:12 **[ТС]**

Angry_Bobo, Спасибо огромное! Вы мне уже второй раз помогли!

Добавлено через 1 час 9 минут 57 секунд
Angry_Bobo, Angry_Bobo, Я запускаю программу, а мне выдаётся ошибка: invalid use of keyword. Token: AS.

@MAcK · 11.11.2008, 14:28

код в студию и укажите строку, на к-рой ошибка выскакивает

@Lord_Voodoo · 11.11.2008, 14:38

СУСАННА, это неверный у тебя запрос, почитай по своей субд, как пишется запрос create table

@СУСАННА · 11.11.2008, 14:43 **[ТС]**

WorkerM,

Delphi
1
2
3
4
5
Query1:=TQuery.Create(self);
Query1.DatabaseName := 'dones';
Query1.SQL.Text:='CREATE TABLE Susa AS SELECT * FROM Dvig.db';
Query1.ExecSQL;
Query1.Free; // стрелка на этой строчке

@MAcK · 11.11.2008, 15:05

А алиас "dones" есть ?
Ведь привёднный пример нужно полностью под свои нужды корректировать

@Lord_Voodoo · 11.11.2008, 15:34

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

Code
1
2
3
4
5
6
7
8
CREATE TABLE "employee.db"
(
  Last_Name CHAR(20),
  First_Name CHAR(15),
  Salary NUMERIC(10,2),
  Dept_No SMALLINT,
  PRIMARY KEY (Last_Name, First_Name)
)

@Angry_Bobo · 11.11.2008, 15:58

ошибка: invalid use of keyword. Token: AS.

Это наверное потому, что СУБД не поддерживает CREATE TABLE AS SELECT...
фигня... сформируем строку CREATE TABLE программным способом из стр. таблицы SHABLON.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  i: integer;
  s: string;
begin
  newTable:=TQuery.Create(self);
  newTable.TableName:='SHABLON';  
  newTable.DatabaseName := 'dones';
  //в строку S собираем содержимое команды Create Table...
  s:='CREATE TABLE ' + 'Susa' + ' (';
  with newTable.FieldDefs do
  begin
    for i:=0 to Count-1 do
    begin
      s:=s + ' ' + Items[i].Name;
      s:=s + ' ' + Items[i].DataType;
      s:=s + ' ' + Items[i].Size;
      s:=s + ',';
    end;
    s[Length(s)]:=')';
  end;
  end;

З.Ы. Рекомендую в процессе отладки просматривать содержимое строки S в Memo.

@СУСАННА · 11.11.2008, 16:19 **[ТС]**

WorkerM, есть!

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@СУСАННА 0 / 0 / 0 Регистрация: 01.11.2008 Сообщений: 32

	Создание копии таблицы 10.11.2008, 09:48. Показов 7179. Ответов 11 Метки нет (Все метки) Здравствуйте! Есть таблица SHABLON в БД dones, эта таблица служит шаблоном для создания порядка 50-ти таблиц. Проблема в том,что мне нужно программно (в delphi) копировать эту таблицу в ту же БД. Помогите пожалуйста! 0

@СУСАННА 0 / 0 / 0 Регистрация: 01.11.2008 Сообщений: 32
	10.11.2008, 13:41 [ТС]
	Angry_Bobo, не могли бы вы написать подробнее? 0

@СУСАННА 0 / 0 / 0 Регистрация: 01.11.2008 Сообщений: 32
	11.11.2008, 14:12 [ТС]
	Angry_Bobo, Спасибо огромное! Вы мне уже второй раз помогли! Добавлено через 1 час 9 минут 57 секунд Angry_Bobo, Angry_Bobo, Я запускаю программу, а мне выдаётся ошибка: invalid use of keyword. Token: AS. 0

@MAcK Комбайнёр 1606 / 704 / 77 Регистрация: 27.05.2008 Сообщений: 2,535
	11.11.2008, 14:28
	код в студию и укажите строку, на к-рой ошибка выскакивает 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	11.11.2008, 14:38
	СУСАННА, это неверный у тебя запрос, почитай по своей субд, как пишется запрос create table 0

@MAcK Комбайнёр 1606 / 704 / 77 Регистрация: 27.05.2008 Сообщений: 2,535
	11.11.2008, 15:05
	А алиас "dones" есть ? Ведь привёднный пример нужно полностью под свои нужды корректировать 0

@СУСАННА 0 / 0 / 0 Регистрация: 01.11.2008 Сообщений: 32
	11.11.2008, 16:19 [ТС]
	WorkerM, есть! 0