Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > создание field в таблице

Автор: Garmahis 26.1.2005, 12:26

Delphi 6, таблица в MS SQL2000, работа через TADOQuery. В процесе работы надо создать новую колонку varchar[50]. Насколько я помню можно спомощью команды

Код


Form1.ADOQuery1.Fields.Create()

Но я забыл что там и как писать в скобках... Подскажите пожалуйста!

Автор: Bes 26.1.2005, 13:21

Подожи, тебе нужно создать вычисляемое поле или модифицировать таблицу на сервере?

Автор: Garmahis 26.1.2005, 13:31

Модифицировать. У меня например есть таблица с двумя колонками
Name VarChar[50]
ID Int

Мне надо добавить сюда ещё одну колонку
Row VarChar[50]

Автор: Bes 26.1.2005, 13:55

пишешь запрос
alter table MyTable add NewFieldName VarChar(50)
потом ADOQuery1.ExecSQL;
и все

Автор: Garmahis 26.1.2005, 14:05

С помощью запроса я знаю как сделать... Мне желатьельно сделать командой ADO а не SQL...

Автор: Bes 26.1.2005, 14:45

Что значит коммандой АДО?
Тебе нужно модифицировать таблицу и работать с новым полем - дак сделай это и работай, какие проблемы?
Ты объясни всю задачу, может мы друг друга не понимаем.

Автор: Garmahis 26.1.2005, 15:04

ну смотри я открываю таблицу

Код


Form1.ADOQuery1.SQL.Add('Select * from Pages where Name ='+#39+Form1.TreeView3.Selected.Text+#39);
Form1.ADOQuery1.Open;

потом я считываю некоторые значения и открываю таблицу для редактирования

Код


Form1.ADOQuery1.Edit;
Form1.ADOQuery1.FieldByName('NRub').AsInteger:=Form1.ADOQuery1.FieldByName('NRub').AsInteger+1;
if Form1.ADOQuery1.FieldCount-2>=Form1.ADOQuery1.FieldByName('NRub').AsInteger then begin
// Тут мне надо создать эту злосчастную колонку и записать туда и в ещё одну колонку данные
// нечто вроде 
Form1.ADOQuery1.Fields.Create(Form1.ADOQuery1.FieldByName('Rub'+IntToStr(Form1.ADOQuery1.FieldByName('NRub').AsInteger)) as adVarChar);
end
else begin

end;

Form1.ADOQuery1.Post;

Автор: Bes 26.1.2005, 16:49

Уууу..... Как все сложно.
Давай, я тебе напишу как я бы это сделал, потому что так как ты написал я бы делать не стал. Может так и хорошо, но мне не удобно. Смотри:

Первая часть.

Код


ADOQuery1.Active:=false; 
ADOQuery1.SQL.Text:='Select * from Pages where Name = :name';
ADOQuery1.SQL.Params[0].Value:=TreeView3.Selected.Text;
ADOQuery1.Active:=true;

Вторая:

Код


NRub:=Form1.ADOQuery1.FieldByName('NRub').AsInteger;
ID:=Form1.ADOQuery1.FieldByName('ID').AsInteger;


if ADOQuery1.FieldCount-2 >= NRub+1 then
begin
          ADOQuery1.Active:=false;
          ADOQuery1.SQL.Text:='Alter Table Pages add Rub VarChar(50)';
          ADOQuery1.ExecSQL;
end;

Из примера было не совсем понятно зачем ты начинаешь менять значение полей, но видимо после этого должно идти что-то вроде.

Код


ADOQuery1.Active:=false; 
ADOQuery1.SQL.Text:='insert into Pages (Nrub,Rub) values (:Nrub,:Rub) ';
ADOQuery1.SQL.Params[0].Value:=Nrub+1;
ADOQuery1.SQL.Params[1].Value:=Rub;
ADOQuery1.ExecSQL;

или

Код


ADOQuery1.Active:=false; 
ADOQuery1.SQL.Text:='Update Pages set  Nrub = :NRub, Rub = :Rub where ID = :ID';
ADOQuery1.SQL.Params[0].Value:=Nrub+1;
ADOQuery1.SQL.Params[1].Value:=Rub;
ADOQuery1.SQL.Params[2].Value:=ID;
ADOQuery1.ExecSQL;

Код может стал и больше, но он стал последовательнее, читаемее, а потому проще в отладке. Кстати, я его не проверял, писал на память, так что если чего. то пиши - отвечу.

Автор: Garmahis 26.1.2005, 18:39

Большое спасибо! Ты мне очень помог!