VPF::создание field в таблице - Форум программистов

Garmahis

Дата 26.1.2005, 12:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 23.12.2004

Репутация: нет
Всего: 4

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

Код


Form1.ADOQuery1.Fields.Create()

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

Bes

Дата 26.1.2005, 13:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 806
Регистрация: 8.12.2004

Репутация: 2
Всего: 7

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

Garmahis

Дата 26.1.2005, 13:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 23.12.2004

Репутация: нет
Всего: 4

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

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

Bes

Дата 26.1.2005, 13:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 806
Регистрация: 8.12.2004

Репутация: 2
Всего: 7

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

Garmahis

Дата 26.1.2005, 14:05 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 23.12.2004

Репутация: нет
Всего: 4

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

Bes

Дата 26.1.2005, 14:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 806
Регистрация: 8.12.2004

Репутация: 2
Всего: 7

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

Garmahis

Дата 26.1.2005, 15:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 23.12.2004

Репутация: нет
Всего: 4

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

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 806
Регистрация: 8.12.2004

Репутация: 2
Всего: 7

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

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

Код


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;

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

Это сообщение отредактировал(а) Bes - 26.1.2005, 16:52

Garmahis

Дата 26.1.2005, 18:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 23.12.2004

Репутация: нет
Всего: 4

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »