Всем привет!
Помогите решить мою проблему!
вот рабочая часть моей программы:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | function TConvert . GiveNewOrders(Value: String ): string ;
var XMLDoc: TXMLDocument;
i: Integer ;
strarInsert: TArStr;
begin
XMLDoc := TXMLDocument . Create(Application);
XMLDoc . Active := True ;
XMLDoc . LoadFromFile( 'd:\2.xml' );
strarInsert := GetQueriesFromDataSetXML(XMLDoc);
WebModule1 . SQLConnection1 . Connected := True ;
WebModule1 . SQLQuery1 . Close;
WebModule1 . SQLQuery1 . SQL . Clear;
WebModule1 . SQLQuery1 . SQL . Add(strarInsert . Strings[ 0 ]);
WebModule1 . SQLQuery1 . Active := true ;
WebModule1 . SQLQuery1 . ExecSQL;
Result := strarInsert . Strings[ 0 ];
WebModule1 . SQLQuery1 . Close;
|
Админ: Пользуемся тегами для оформления кода!
Функция GetQueriesFromDataSetXML(XMLDoc) возвращает набор Insert-ов. Здесь все работает. Но как только пытаюсь выполнить любое действие с SQLQuery - вылетает ошибка "Acsses Violation". При работе в обычном приложении (а не на Web-сервисе) все работает без заминки. В чем может быть загвоздка?
Спасибо за внимание!