Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.04.20;
Скачать: CL | DM;

Вниз

Data provider or other service returned an E_FAIL status   Найти похожие ветки 

 
Abadonne ©   (2007-11-24 17:12) [0]

Покопался по форуму ответов не нашёл...
в нете, то ж не густо советов по этому поводу

Есть следующий
Код:

... ADOConnection1:= DBDM.ADOConnection; ADODataSet1.Connection:= ADOConnection1; ADODataSet1.CommandType:= cmdTable; ADODataSet1.CommandText:= "table1"; АDOConnection1.Connected := true; ADOConnection1.Open; ADODataSet1.Open; ... ADODataSet1.Append; ADODataSet1.FieldValues["XXX"] := Excel.ActiveSheet.Cells.Item[i, 6].Value; ADODataSet1.FieldValues["YYY"] := Excel.ActiveSheet.Cells.Item[i, 6].Value; ADODataSet1.FieldValues["ZZZ"] := g; ADODataSet1.FieldValues["KKK"] := k; ADODataSet1.FieldValues["TTT"] := 2; //ну и так далее ещё с 10 полей //просто проверка есть ли что писать в базу и можно ли if (not ADODataSet1.Active) or (ADODataSet1.IsEmpty) Then Exit; ADODataSet1.Post; //вроде как должно писать в базу ...


Вообщем-то в своё время, когда - то давно, подобный код у меня работал на ура, теперь же, в тот момент года доходит до строчки с постом ( ADODataSet1.Post; ) имеем ошибку: "Data provider or other service returned an E_FAIL status". Чего с этим делать понятия не имею.

ADOConnection1 и ADODataSet1 компонентки ADO
С базой коннект есть, ибо буквально за 10 строк до этого получаю ИДишник:

Код:

ADQ:=TADOQuery.Create(nil); ADQ.Connection:=ADOConnection1; ADQ.SQL.Text:="SELECT Nextval(""TTT") as KK FROM DUAL"; ADQ.Open; ADQ.Next; k:=ADQ.Fields.FieldByName("KK").AsInteger; ADQ.Close;

Да... База Cache, хотя особого значения этьо не имеет, всё равно соединение идёт через ODBC.


 
Abadonne ©   (2007-11-24 17:14) [1]

Прошу прощения за сложночитаемый код...
Жаль, что на форуме нед предпросмотра...


 
Anatoly Podgoretsky ©   (2007-11-24 17:31) [2]

> Abadonne  (24.11.2007 17:12:00)  [0]

Врешь, такой код никогда не работал ADODataSet1.CommandText:= "table1";


 
Abadonne ©   (2007-11-24 17:41) [3]

Хм...
Стоит на FormCreate. Ни малейшим боком не ругается.
Прикрасно работало на другом проекте и другой базе :)


 
Abadonne ©   (2007-11-24 17:45) [4]

Из хелпа (TADOCommand.CommandText):

Use CommandText to specify the command to execute using the ADO command component. CommandText is a textual representation of the command such as an SQL statement, a table name, or the name of a stored procedure to execute.



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

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

Наверх




Память: 0.48 MB
Время: 0.016 c
2-1206481954
Adios
2008-03-26 00:52
2008.04.20
можноли получить хэндлы всех программ свёрнутых в трей?


2-1206695301
asdf2
2008-03-28 12:08
2008.04.20
Это глюк в IBExpert e?


3-1195702264
Петро
2007-11-22 06:31
2008.04.20
Универсальный доступ к СУБД


2-1206527464
MSD
2008-03-26 13:31
2008.04.20
Вопрос по копированию


15-1204716527
афоня
2008-03-05 14:28
2008.04.20
рисование графиков в Perl