Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.06.29;
Скачать: 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 вся ветка

Текущий архив: 2005.06.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.067 c
1-1118219077
В л а д и м и р
2005-06-08 12:24
2005.06.29
Перевод курсора в конец текста


1-1117790059
sofs
2005-06-03 13:14
2005.06.29
Как преодразовать HEX-число в символ?


14-1117519011
Иксик
2005-05-31 09:56
2005.06.29
У меня сегодня праздник :)


1-1118140588
saNat
2005-06-07 14:36
2005.06.29
Требуется компонент для графическго представления формул


1-1118248773
rolex
2005-06-08 20:39
2005.06.29
Как из сокращённого пути сделать полный?