Скачать: CL | DM;

Delphi и Mysql   Найти похожие ветки 

← →
Roman_SVT   (2005-05-13 16:32) [0]

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 КАК БЫТЬ И ЧТО ДЕЛАТЬ???

---

← →
Max Zyuzin ©   (2005-05-13 16:38) [1]

>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" +"""");

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

---

← →
Johnmen ©   (2005-05-13 16:48) [2]

>New_NP.SQLQuery1.ExecSQL(True);

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

>DataSetProvider1.Free;

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.043 c