Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

создание TADOConnection [D7]

Страницы: 1 2 >
kat © (2004-04-02 13:01:00)
Пытаюсь динамически создать TADOConnection.
На строке DB_ADO := TADOConnection.Create(Nil);
возникает ошибка класса EOleSysError с сообщением "Не был произведен вызов CoInitialize"
Почему возникает ошибка?

kat (2004-04-02 16:58:00) [1]
в запросе все верное

обновила ADO и стало все работать:)) но 2.8 не у всех пользователей будет, вот это жаль

sniknik (2004-04-02 16:53:00) [2]
кстати Prepared можно убрать, параметров у тебя все одно нету.

sniknik (2004-04-02 16:48:00) [3]
kat (02.04.04 16:04) [25]
> база - microsoft access
> брала и в [] - результата никакого
чтото явно не так, но не в показаном коде, сам также делаю (единственное не TADOQuery а TADODataSet/TADOCommand) и ничего работает хоть статически создано хоть динамически. с тем же access / mssql.

а ну да, еще провайдера стараюсь OLEDB-шного использовать а не ODBC тем более через DSN.

bushmen (2004-04-02 16:12:00) [4]
>если создать конест и запрос не динамически, а бросить на форму >компоненты
>и выполнить этот запрос - все нормально проходит

Это каким образом - из dbGrid'a вводите или значения из компонентов берете? Если 2, то значит, что-то в запросе неверно.

kat (2004-04-02 16:04:00) [5]
база - microsoft access
брала и в [] - результата никакого

bushmen (2004-04-02 16:00:00) [6]
А кто 'Название' будет в кавычки брать?

INSERT INTO [Город]([Название]) VALUSE('Абрютино')

Да, и еще, какая БД у Вас? Если MS SQL, то проверьте на базе у Вас стоит CS или CI

Delirium (2004-04-02 15:56:00) [7]
Странно, может версию ADO обновить... http://www.microsoft.com/downloads/details.aspx?FamilyID=6c050fe3-c795-4b7d-b037-185d0506396c&DisplayLang=en

kat (2004-04-02 15:49:00) [8]
как будто что-то не создала
раз Access vialation возникает

kat (2004-04-02 15:48:00) [9]
запрос получается нормальный
взяла попроще табличку
получился такой запрос

Insert into Город (Название) Values ('Абрютино')

sniknik (2004-04-02 15:41:00) [10]
вариант - запрос правильный, неопределена/неинициализирована какаято из переменных...
они у тебя именно так и стоят как здесь, или есть чтото вроде
IntToStr(Form2.IDCity) ? или в строках ' или " присутствует.

приведи результирующий запрос что получается от этих преобразований (точку останова на qMain.ExecSQL; поставь и скопируй из отладчика)

kat (2004-04-02 15:37:00) [11]
select в запросе выпоняется

а вот insert никак:((((
почему?

kat (2004-04-02 15:34:00) [12]
поля не числовые все , кавычки добавляет функция formatstring

kat (2004-04-02 15:31:00) [13]
латинница
я бы так и никогда не сделала, но это наследство не переделать все сразу, потихоньку отходим,

поставила [] - не помогает

Johnmen (2004-04-02 15:26:00) [14]
+ все указанные поля числовые ??? :)))

Delirium (2004-04-02 15:19:00) [15]
????? - это наверное русские буквы? Если так - надо всё брать в [ ]. Т.е. Insert into [??] ([???], [???], ...

sniknik (2004-04-02 15:19:00) [16]
с ума сошла(ол), все спош рускими буквами? на 90% ошибка в этом.
переделай на латиницу,

kat (2004-04-02 15:17:00) [17]
точно рабочий

если создать конест и запрос не динамически, а бросить на форму компоненты
и выполнить этот запрос - все нормально проходит

kat (2004-04-02 15:16:00) [18]
qMain.Close;
qMain.SQL.Clear;
qMain.SQL.Add('Insert into ?? (???, ???, ???, ?????, ????, ???????, ????????, ????????????????,');
qMain.SQL.Add(' ?????, ?????, ???, ??????,');
qMain.SQL.Add(' ????????, ?????, ??????, ?????, ID_Oracle)');
qMain.SQL.Add(' values (' + formatString(Name) + ', ' +
formatString(INN) + ', ' +
formatString(KPP) + ', ' +
formatString(OKONX) + ', ' +
formatString(OKPO) + ', ' +
formatString(Phone) + ', ' +
formatString(Dir) + ', ' +
formatString(Bux) + ', ' +
IntToStr(IDCity) + ',' +
IntToStr(IDStreet) + ',' +
formatString(House) + ',' +
formatString(Korp) + ', '+
formatString(Flat) + ', ' +
sReg + ', ' +
sUnreg + ', ' +
IntTostr(FS) + ', ' +
IntToStr(IDOracle) +
')');
qMain.Prepared := true;
qMain.ExecSQL;

sniknik (2004-04-02 15:07:00) [19]
> Как ?
+
DSN в ODBC точно рабочий?

Johnmen (2004-04-02 15:04:00) [20]
>пытаюсь в запросе выполнить insert

Как ?

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »