Форум: "Базы";
Текущий архив: 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