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" +"""");
И пользоваться параметрами

>New_NP.SQLQuery1.ExecSQL(True);

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

>DataSetProvider1.Free;

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

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