Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 13.05.2008, 18:43   #1
xDjarx
Пользователь
 
Аватар для xDjarx
 
Регистрация: 22.04.2008
Сообщений: 16
Репутация: 10
По умолчанию Удаление, обновление записей из MySQL таблицы

Какими командами можно удалять и обновлять нужную запись из таблицы MySQL, из под Delphi? Использую для соединения с таблицей компонент ZTable.
xDjarx вне форума   Ответить с цитированием
Старый 13.05.2008, 20:59   #2
xDjarx
Пользователь
 
Аватар для xDjarx
 
Регистрация: 22.04.2008
Сообщений: 16
Репутация: 10
По умолчанию

Помогите, нужно сделать, чтобы в программе при совпадении ключей, обновлялась запись, а если такого ключа не было то добавлялась. Не могу сообразить как это сделать. Пробывал писать так:

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;
xDjarx вне форума   Ответить с цитированием
Старый 14.05.2008, 13:36   #3
xDjarx
Пользователь
 
Аватар для xDjarx
 
Регистрация: 22.04.2008
Сообщений: 16
Репутация: 10
По умолчанию

Всё, разобрался сам, нашёл ошибки.
xDjarx вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Одновременное удаление записей в разных таблицах Lkhasa БД в Delphi 9 16.12.2010 14: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


04:11.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.