Форум: "Базы";
Поиск по всему сайту: 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.018 c
1-19163           Pastor                2002-02-18 10:46  2002.03.07  
Совместный доступ к файлам


1-19167           MaXie                 2002-02-20 12:34  2002.03.07  
Обработка исключительной ситуации...


6-19293           welvist               2001-12-18 17:47  2002.03.07  
Сканер МАК адресов компьютеров локальной TCP IP сети


3-19107           Hermit                2002-02-05 15:49  2002.03.07  
TQuery.Locate


3-19111           Alexy                 2002-02-11 15:24  2002.03.07  
Откат и обновление