Главная страница
    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.46 MB
Время: 0.039 c
15-1204645484
Kerk
2008-03-04 18:44
2008.04.20
Скорость сетевого подключения


2-1206529994
saNat
2008-03-26 14:13
2008.04.20
Ошибка при создании записи, одно из полей которой пусто.


15-1204721767
Petr V. Abramov
2008-03-05 15:56
2008.04.20
Позаботились об отечественном IT


15-1204619181
@!!ex
2008-03-04 11:26
2008.04.20
Windows XP 32 + AMD 64 глюк


2-1206272590
webSQLNeederr
2008-03-23 14:43
2008.04.20
Аналог php функции split в Делфи?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский