Форум: "Базы";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Базы";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.049 c