Поиск:

Ответ в темуСоздание новой темы Создание опроса
> BDE, Query. Как удалить 1 поле? 
:(
    Опции темы
Roen
Дата 30.4.2008, 18:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Как через MySQL запрос удалить 1 выделеное поле в DBGrid'e? 
PM MAIL   Вверх
Rodman
Дата 30.4.2008, 19:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



Цитата(Roen @  30.4.2008,  18:24 Найти цитируемый пост)
выделеное поле

или строка имеется ввиду???

если да, то имена полей в студию
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Roen
Дата 30.4.2008, 19:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Да, строка в DBGride.
Поля таблицы: Date, Category, Summ, Komp.
PM MAIL   Вверх
Rodman
Дата 30.4.2008, 19:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



Цитата(Roen @  30.4.2008,  19:34 Найти цитируемый пост)
Поля таблицы: Date, Category, Summ, Komp. 
a IDшник есть ?

PM MAIL WWW Skype GTalk YIM MSN   Вверх
Roen
Дата 30.4.2008, 19:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Нет, ИД нету. Ключевых полей тоже нету.
PM MAIL   Вверх
Rodman
Дата 30.4.2008, 19:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



и данные в DBGrid через што выводишь?

Добавлено через 3 минуты и 50 секунд
Код

Query.SQL.Close;
Query.SQL.Text:='DELETE FROM MyTable WHERE (Date=:Prm, Category=:Prm1, Summ=:Prm2, Komp=:Prm3)';
Query.Parameters.ParamByName('Prm').Value:= DBGrid1.DataSource.DataSet.Fields.Fields[0].Value;
Query.Parameters.ParamByName('Prm1').Value:= DBGrid1.DataSource.DataSet.Fields.Fields[1].Value;
Query.Parameters.ParamByName('Prm2').Value:= DBGrid1.DataSource.DataSet.Fields.Fields[2].Value;
Query.Parameters.ParamByName('Prm3').Value:= DBGrid1.DataSource.DataSet.Fields.Fields[3].Value;
Query.ExecSQL;

PM MAIL WWW Skype GTalk YIM MSN   Вверх
Roen
Дата 30.4.2008, 19:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Вручную Через Database Desktop, или через запрос INSERT INTO ..... Запрос привязан к кнопке.
Еще есть 2 кнопки - одна для удаления выбраной строки тадлицы, а вторая для редактирования (тоже выбраной)...
Как такое можно сделать? Удаление и редактирование...
PM MAIL   Вверх
Rodman
Дата 30.4.2008, 19:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



я имел ввиду через query или table
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Roen
Дата 30.4.2008, 19:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



=) Спасибо за ответ. Тоже так думал, но не знал как достать значение выделеного поля...

PM MAIL   Вверх
Rodman
Дата 30.4.2008, 19:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



если получилось, то пометь топик как решенный... 

Справа от названия!
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Roen
Дата 30.4.2008, 19:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Не хочет...
List index out of Bounds...

как еще можно обратится к полям в таблице?
PM MAIL   Вверх
Rodman
Дата 30.4.2008, 20:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



на какой строке?:
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Roen
Дата 30.4.2008, 20:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Query.Parameters.ParamByName('Prm').Value:= DBGrid1.DataSource.DataSet.Fields.Fields[0].Value;

сразу на первой из этих....

Но когда делаю 
  edit3.text:=DBGrid1.DataSource.DataSet.Fields.Fields[0].Value;
то всё норм...
PM MAIL   Вверх
Rodman
Дата 30.4.2008, 20:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



Query какой юзаешь?
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Roen
Дата 30.4.2008, 20:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



мммм, тоесть?  smile 

Query (DB Tables) из закладки BDE
PM MAIL   Вверх
Rodman
Дата 30.4.2008, 20:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



в нем пропущен Paramaters smile 
Код

Query.SQL.Close;
Query.SQL.Text:='DELETE FROM MyTable WHERE (Date=:Prm, Category=:Prm1, Summ=:Prm2, Komp=:Prm3)';
Query.ParamByName('Prm').Value:= DBGrid1.DataSource.DataSet.Fields.Fields[0].Value;
Query.ParamByName('Prm1').Value:= DBGrid1.DataSource.DataSet.Fields.Fields[1].Value;
Query.ParamByName('Prm2').Value:= DBGrid1.DataSource.DataSet.Fields.Fields[2].Value;
Query.ParamByName('Prm3').Value:= DBGrid1.DataSource.DataSet.Fields.Fields[3].Value;
Query.ExecSQL;
а так?
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Roen
Дата 30.4.2008, 20:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Ничего нового  smile 

Там проблема не в Query, а в DBGrid1.DataSource.DataSet.Fields.Fields[0].Value;
Даже так :
var a:variant;

a:=DBGrid1.DataSource.DataSet.Fields.Fields[0].Value;

Пишет:
List index out of bounds(0)

 smile

Добавлено через 2 минуты и 14 секунд
Есть канешно вариант - накидать DBEdit, сделать их Visible:=False и брать инфу с них, а не с DBGrid1.DataSource.DataSet.Fields.Fields[0].Value; но должен же быть другой вариант  smile 
PM MAIL   Вверх
Rodman
Дата 30.4.2008, 20:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



Цитата(Roen @  30.4.2008,  20:48 Найти цитируемый пост)
List index out of bounds(0)

ну эта трабла появляется за выход за рамки массива!

не могу понять что такое!
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Roen
Дата 30.4.2008, 20:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Цитата

ну эта трабла появляется за выход за рамки массива!


Знаю  smile  и тоже не могу понять. Всё-таки  так работает 
edit3.text:=DBGrid1.DataSource.DataSet.Fields.Fields[0].Value;

А если в переменную то  не хочет   smile 
PM MAIL   Вверх
Rodman
Дата 30.4.2008, 21:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



покажи свой код... мож че нить найду!
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Roen
Дата 1.5.2008, 11:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Код

procedure TForm1.Button2Click(Sender: TObject);
begin
Query1.active:=false;;
Query1.SQL.Add('DELETE * FROM '+DBFile+' WHERE ( (Date=:Date) and (Zmist=:Zmist) and (Category=:Category) and (Osoba=:Osoba) and (Summ=:Summ) and (Komp=:Komp) )');


Query1.ParamByName('Date').Value:=DBGrid1.DataSource.DataSet.Fields.Fields[0].AsDateTime;
Query1.ParamByName('Zmist').Value:= DBGrid1.DataSource.DataSet.Fields.Fields[1].AsString;
Query1.ParamByName('Category').Value:= DBGrid1.DataSource.DataSet.Fields.Fields[2].AsString;
Query1.ParamByName('Osoba').Value:= DBGrid1.DataSource.DataSet.Fields.Fields[3].AsString;
Query1.ParamByName('Summ').Value:= DBGrid1.DataSource.DataSet.Fields.Fields[4].AsInteger;
Query1.ParamByName('Komp').Value:= DBGrid1.DataSource.DataSet.Fields.Fields[5].AsInteger;
Query1.ExecSQL;

//Refresh;

end;


А если так:

Код

procedure TForm1.Button2Click(Sender: TObject);
begin

dbgrid1.DataSource.DataSet.Delete;


end;


то Table is read only...
PM MAIL   Вверх
Rodman
Дата 1.5.2008, 12:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



вроде все красиво блин!
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Страницы: (2) [Все] 1 2 
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!


Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.

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


 




[ Время генерации скрипта: 0.1007 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.