Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];




Вниз

Как удалить запись на которой установлен курсор в DBGrid? 


DmitryPV   (2002-02-08 15:54) [0]

Извините за чайниковский вопрос, но я только начал работать с БД из под Delphi. Пишу тут маленькую программку для работы с таблицами MS Access"97. Работаю через BDE (надо-же с чего-то начинать!): TDatabase->TQuery->TDataSource->TDBGrid. Добавление и поиск записи у меня получается, но как удалить запись, на которой установлен курсор в TDBGrid, я пока не понимаю. Нет, составить обычный SQL-запрос на удаление я могу, но какие параметры туда вставлять в данном случае. Неплохо было-бы посмотреть примерчик, но буду рад любым рекомендациям.



BJValentine   (2002-02-08 16:02) [1]

Table1.delete;



Romul   (2002-02-08 16:09) [2]

Ну к примеру если сделать удаление на даблклик, то так:
Query.SQL.ADD("delete * from your_table where field="+
DBGrid1.Fields[0].AsString);



DmitryPV   (2002-02-08 16:33) [3]

Благодарю за советы! Но имеются уточнения:
1. Как сделать так,что-бы при установке курсора выделялась сразу вся запись, как это сделано в Access?
2. На форме имеется кнопка "Удалить запись". При нажатии на нее должна удалиться из базы выделенная запись. Какой SQL-запрос будет в данном случае?



Romul   (2002-02-08 16:50) [4]

Что касается курсора в DBGrid"e, то это в настройках самой сетки есть, посмотри Options у грида, там RowSelect в True MultiSelect в False, тогда если у тебя какая-то строка в гриде выделена, то это равноценно тому, что курсор в самом DataSet"e стоит на этой строке и ты можешь что угодно делать, например как ты хочешь нажать на кнопку и удалить запись. Добавляещь к кнопке событие OnClick, а потом в этой процедуре пишешь
try
if Query1.Active then Close;
Query1.SQL.Clear; //типа очищаем свойство в котором текст запроса хранится

Query1.Sql.Add("delete * from your_table where field="+
DBGrid1.Fields[0].AsString); //здесь подставляя первый столбец DBGrid"a выделенной курсором строки и выполняя эту команду ты удаляешь строку в таблице. Свойство Fields нумеруется с нуля.
Query1.ExecSQL;//Метод специально предназначен для Delete или Insert, т.е. он не возвращает результатов
except
on E:Exception do
ShowMessage(E.Message);
end;



DmitryPV   (2002-02-08 16:57) [5]

Romul спасибо!




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.016 c
1-19170           Александр             2002-02-20 21:43  2002.03.07  
Вопрос по работе с файлами


7-19365           Drv                   2001-12-02 14:53  2002.03.07  
Реестр


1-19119           Ковекс                2002-02-18 05:54  2002.03.07  
открытье файла приложения


14-19351          Херувим               2002-01-19 21:45  2002.03.07  
Как юзать TStream и его потомков...


14-19330          Андрей Сенченко       2002-01-09 18:54  2002.03.07  
Вопросы - ответы ...