Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2008.04.20;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.046 c
2-1206722314
Che
2008-03-28 19:38
2008.04.20
Заблокировка клавиатуры и рестарт компьютера.


15-1204817355
Kolan
2008-03-06 18:29
2008.04.20
Что прочесть, чтобы работать с IB на мин уровне?


15-1204656429
Fredy314
2008-03-04 21:47
2008.04.20
как можно создавая многотомный архив, создать только второй том?


2-1206598873
zdm
2008-03-27 09:21
2008.04.20
Отслеживание исполнения


15-1204656193
oldman
2008-03-04 21:43
2008.04.20
IDE и SATA





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский