как использовать Цикл в Запросе sql

@Rafisuli · Регистрация: 28.10.2010

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

Пользователь водит в поле Edit1.Text желаемое кол-во столбцов в таблице бд mssql.
Вопрос: как сделать чтоб создавалась таблица с количеством столбцов указанным пользователем?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TFMain.CreateSQLTable(Sender: TObject);
begin
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Text:='CREATE TABLE"'+FMain.Caption+'"('+
    '[1] [float] NULL , '+
    '[2] [float] NULL , '+
    .
    .
    .
    '[200] [float] NULL , '+ //200 - Edit1.Text 
    ') ON [PRIMARY]';
try
ADOQuery1.ExecSQL;
except
ShowMessage('текст');
end;
ADOQuery1.Connection.Close;
end;

Понимаю, что нужно использовать цикл:

Delphi
1
for i:=0 to StrToInt(Edit1.Text) do

,но не понимаю, куда в коде и как (путаница с " и ') поместить цикл в код?

@VampireKB · 11.11.2010, 11:40

Суть путаницы не понял...делай так:

(пишу от руки!)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='CREATE TABLE"'+FMain.Caption+'"(';
   for a:=1 to strtoint(Edit1.text) do
   begin
ADOQuery1.SQL.add('blablabla+"'edit2.text+'"');
   end;
ADOQuery1.SQL.add(')');
try
ADOQuery1.ExecSQL;
except
ShowMessage('текст');
end;
ADOQuery1.Connection.Close;

@Rafisuli · 11.11.2010, 12:27

Суть путаницы в " и '.
Не могу понят, гдеж я с ковычками напутал!(

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TFMain.CreateSQLTable(Sender: TObject);
var
i:integer;
begin
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Text:='CREATE TABLE"'+FMain.Caption+'"(''[dt] [smalldatetime] NULL ,';
   for i:=0 to 5 do
   begin
    ADOQuery1.SQL.Add('"'+'[i] [float] NULL ,'+'"');
   end;
    ADOQuery1.SQL.Add(') ON [PRIMARY]');
try
ADOQuery1.ExecSQL;
except
ShowMessage('текст');
end;
ADOQuery1.Connection.Close;
end;

ругается так:

@VampireKB · 11.11.2010, 12:38

не знаю точно как в АДО,но в нормальных SQL запросах это выглядит так:

SQL
1
2
3
4
5
6
7
CREATE TABLE TABLE_NAME
(
column_name1 data_type,
column_name2 data_type,
column_name3 data_type,
....
)

Пример:

SQL
1
2
3
4
5
6
7
8
CREATE TABLE Persons
(
P_Id INT,
LastName VARCHAR(255),
FirstName VARCHAR(255),
Address VARCHAR(255),
City VARCHAR(255)
)

З.Ы. хоть у вас ошибка и выше этой строчки,но на будущее:

в

Delphi
1
'"'+'[i] [float] NULL ,'+'"'

у вас ошибка и переменная 'i' у вас является не переменной ,а просто буквой ! сделайте так:

Delphi
1
'+inttostr(i)+' [float] NULL

@Rafisuli · 11.11.2010, 12:51

Этот код корректно создаёт таблицу:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TFMain.CreateSQLTable(Sender: TObject);
begin
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Text:='CREATE TABLE"'+FMain.Caption+'"('+
    '[1] [float] NULL , '+
    '[2] [float] NULL , '+
    '[3] [float] NULL , '+ 
    ') ON [PRIMARY]';
try
ADOQuery1.ExecSQL;
except
ShowMessage('текст');
end;
ADOQuery1.Connection.Close;
end;

Почти уверен, что гдето просто кавычка иль запитая лишние или не там стоят
Где? вот в чём вопрос?

@VampireKB · 11.11.2010, 12:54

ну ты ошибку-то прочитай... "незакрытые кавычки в конце символьной строки" .... и пишет первую же строчку ...

@Rafisuli · 11.11.2010, 12:56

у вас ошибка и переменная 'i' у вас является не переменной ,а просто буквой ! сделайте так:

Эт да..., упустил. Спс.

@VampireKB · 11.11.2010, 12:57

P/S/ и всё-таки попробуй тем способом,который описал я,он тоже рабочий..(по мнению Гугла

)

пример..

Use SQL statements and ADO to create a database table from within Visual Basic 6
cmd.CommandText = "CREATE TABLE Customer (CustomerID Char(6) PRIMARY KEY, Name
Char(20), Address Char(30), City Char(30), State Char(2), PostalCode Char(9))"
cmd.Execute , , adCmdText

@Rafisuli · 11.11.2010, 13:25

Уфф..., заработало!

Эти "запят-ковычи" , когда их много путаюсь.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TFMain.CreateSQLTable(Sender: TObject);
var
i:integer;
begin
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Text:='CREATE TABLE"'+FMain.Caption+'"([dt] [smalldatetime] NULL ,';
   for i:=0 to StrToInt(EVarNum.Text) do
   begin
    ADOQuery1.SQL.Add(''+'['+inttostr(i)+'] [float] NULL ,'+'');
   end;
    ADOQuery1.SQL.Add(') ON [PRIMARY]');
try
ADOQuery1.ExecSQL;
except
ShowMessage('Îøèáêà ñîçäàíèÿ òàáëèöû "'+FMain.Caption+'", èëè'+#13+#10+
'òàêàÿ òàáëèöà óæå ñóùåñòâóåò.');
end;
ADOQuery1.Connection.Close;
end;

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@VampireKB 36 / 35 / 3 Регистрация: 12.06.2009 Сообщений: 211
	11.11.2010, 12:54
	ну ты ошибку-то прочитай... "незакрытые кавычки в конце символьной строки" .... и пишет первую же строчку ... 0