Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

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

Какими командами можно удалять и обновлять нужную запись из таблицы MySQL, из под Delphi? Использую для соединения с таблицей компонент ZTable.
xDjarx вне форума Ответить с цитированием
Старый 13.05.2008, 20:59   #2
xDjarx
Пользователь
 
Аватар для xDjarx
 
Регистрация: 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;
xDjarx вне форума Ответить с цитированием
Старый 14.05.2008, 13:36   #3
xDjarx
Пользователь
 
Аватар для xDjarx
 
Регистрация: 22.04.2008
Сообщений: 16
По умолчанию

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


Купить рекламу на форуме - 42 тыс руб за месяц



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