|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.05.2008, 18:43 | #1 |
Пользователь
Регистрация: 22.04.2008
Сообщений: 16
|
Удаление, обновление записей из MySQL таблицы
Какими командами можно удалять и обновлять нужную запись из таблицы MySQL, из под Delphi? Использую для соединения с таблицей компонент ZTable.
|
13.05.2008, 20:59 | #2 |
Пользователь
Регистрация: 22.04.2008
Сообщений: 16
|
Помогите, нужно сделать, чтобы в программе при совпадении ключей, обновлялась запись, а если такого ключа не было то добавлялась. Не могу сообразить как это сделать. Пробывал писать так:
procedure TForm2.Button3Click(Sender: TObject); var i: integer; begin ZTable1.TableName := Edit2.Text; Table1.DatabaseName:='C:\Program Files\Borland\Delphi7\Projects\2'; Table1.TableName := Edit1.Text; Table1.Active:=true; ZConnection2.Connected:=true; ZTable1.Active:=true; Table1.First; while not Table1.Eof do begin while not ZTable1.Eof do begin if ((ZTable1.Fields[0].Value = Table1.Fields[0].Value) and (ZTable1.Fields[1].Value = Table1.Fields[1].Value)and (ZTable1.Fields[2].Value = Table1.Fields[2].Value))then begin ZTable1.Edit; for i:=0 to 8 do begin ZTable1.Fields[i].Value := Table1.Fields[i].Value; end; end else begin ZTable1.Insert; for i:=0 to 8 do begin ZTable1.Fields[i].Value := Table1.Fields[i].Value; end; end; ZTable1.Next; end; ZTable1.Post; Application.ProcessMessages; Table1.Next; end; |
14.05.2008, 13:36 | #3 |
Пользователь
Регистрация: 22.04.2008
Сообщений: 16
|
Всё, разобрался сам, нашёл ошибки.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Одновременное удаление записей в разных таблицах | Lkhasa | БД в Delphi | 9 | 16.12.2010 13:21 |
Удаление повторяющихся записей | gavrylyuk | Microsoft Office Excel | 3 | 28.06.2008 08:10 |
Удаление записей | Blackmore | БД в Delphi | 2 | 26.05.2008 08:18 |
Удаление записей | Arsgun | БД в Delphi | 7 | 09.07.2007 11:56 |
Добавление и удаление записей в Listview | Scorpeon | Компоненты Delphi | 0 | 08.06.2007 23:09 |