| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Delphi и Mysql [D7, MySQL, MySQL]

Roman_SVT ©   (2005-05-13 16:32:00) 

try
 SQLQuery1.Active := False;
 SQLQuery1.Close;
 SQLQuery1.SQL.Clear;
 SQLQuery1.SQL.Add('insert into nasp (Raion, Name_NP, Obozn) values ('+''''+ Label1.Caption +''''+', '+''''+ '111' +''''+', '+''''+ 'ttt' +''''+')');
 SQLQuery1.ExecSQL(True);
 finally
 DataSetProvider1.Free;
 SQLQuery1.Close;
 end;
 Application.CreateForm(TNew_NP, New_NP);
 New_NP.SQLQuery1.Active := False;
 New_NP.SQLQuery1.SQL.Clear;
 New_NP.SQLQuery1.SQL.Add('select * from nasp where Raion = '+''''+ Label1.Caption +''''+' and Name_NP = '+''''+ '111' +'''');
 New_NP.ClientDataSet1.Active := True;
 New_NP.SQLQuery1.ExecSQL(True);
 New_NP.Show;

Все действия выполняет нормально только перед выводом второй формы выдает ошибку: Cannot perform this operation on an open connection КАК БЫТЬ И ЧТО ДЕЛАТЬ???

---

Johnmen   (2005-05-13 16:48:00) [1]

>New_NP.SQLQuery1.ExecSQL(True);

Необъяснимый мусор.

>DataSetProvider1.Free;

И как ты после этого себя чувствуешь ?
:)

---

Max Zyuzin   (2005-05-13 16:38:00) [2]

>Roman_SVT   (13.05.05 16:32)
Есть подозрения что по умолчанию у New_NP.ClientDataSet1 свойство Actice := True;
Советую забыть по такие вот конструкции
New_NP.SQLQuery1.SQL.Add('select * from nasp where Raion = '+''''+ Label1.Caption +''''+' and Name_NP = '+''''+ '111' +'''');

И пользоваться параметрами

---

Наверх