Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
 
a_etot_nik
8 / 8 / 4
Регистрация: 09.04.2010
Сообщений: 58
1

mysql

24.12.2010, 18:16. Просмотров 502. Ответов 0
Метки нет (Все метки)

пишу процедуру для удаления из таблицы из определённого столбца определённое значение
вот что делаю
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
 
procedure save(id:integer);
var
TransMySql: TTransactionDesc;
begin
  with form1 do
   begin
    TransMySQL.TransactionID:=id;
    SQLConnect.StartTransaction(TransMySQL);
    DataSet.ApplyUpdates(-1);
    SQLConnect.Commit(TransMySQL);
   end;
end;
 
procedure show_table(sql:string);
begin
   with form1 do
    begin
        dataset.Active:=false;
        dataset.DataSet.CommandText:=sql;
        dataset.Active:=true;
    end;
end;
 
function read_table_column(table,column:string) : string ;
var s,s1:string;
begin
try
    with form1 do
      begin
         show_table('select * from '+table);
         while not datasource.DataSet.Eof do
            begin
               s1:=vartostr(dbgrid.SelectedField.DataSet.FieldValues[column]);
               if s1<>'' then
                    begin
                      s:=s1;
                      datasource.DataSet.Next;
                    end else break;
            end;
         result:=s;
      end
except
end;
end;
 
procedure del_in_table_column(table,column,val:string); // её вот и пишу
var  s:string;
begin
try
 s:=read_table_column(table,column);
 show_table('select * from '+table);
 with form1 do
 while not datasource.DataSet.Eof do
   begin
      if dbgrid.SelectedField.DataSet.FieldValues[column]=val then
         begin
           DBGrid.DataSource.DataSet.Edit;
           dbgrid.SelectedField.DataSet.FieldByName(column).Value:=s;
           save(1);
            datasource.DataSet.Next;
         end;
         if (s<>val) and (dbgrid.SelectedField.DataSet.FieldValues[column]=s) then
         begin
           DBGrid.DataSource.DataSet.Edit;
           dbgrid.SelectedField.DataSet.FieldByName(column).Value:='';
           save(2)
         end;
    if  not datasource.DataSet.Eof then  datasource.DataSet.Next;
   end;
 
except
end;
end;
В чём ошибка ? пишет Update affected more than 1 record

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2010, 18:16
Ответы с готовыми решениями:

mysql и delphi
Подскажите есть мускьюл база данных на компе (через денвер лежит на локал хосте) как перенести эту...

Mysql инъекции
Всем привет. Я пишу программу, которая соединяется с базой данных Mysql через компонент MyDac. Вот...

MySql и Delphi xe
Здравствуйте! Вопрос в подключении Delphi xe к Mysql 5.5.10. Использую компонент SQLConnection...

ADO+MySQL
У меня база в Access я ее перекинул в MySQL, все нормально кроме boolean в MySQL нет такого типа и...

Mysql DBXerror
Возникает ошибка при нажатии на connection в компоненте SQLconnection. Читал что нужны библиотеки,...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.12.2010, 18:16

Delphi 7 и MySQL
Как можно подключить MySQL к delphi 7?

картинки mysql
как в mysql базу вставить картинку? вот я в Делфи выбираю картинку нажимаю добавить в базу и что...

удаленная MySql
Здравствуйте коллеги. Кто нибудь работал с удаленной MySql через Delphi? 1)Достаточно ли для...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru