Сабж!!
Делаю запрос:

Код

procedure TStatRegion.Button1Click(Sender: TObject); begin  sql1.Close; sql1.SQL.Clear; sql1.SQL.Add('SELECT rg.name, Count(cr.ID_Region)'); sql1.SQL.Add('FROM Corespondents AS cr LEFT JOIN Region AS rg ON cr.ID_Region=rg.ID'); sql1.SQL.Add('WHERE cr.ID_Contry = 1'); sql1.SQL.Add('GROUP BY rg.name'); sql1.SQL.Add('ORDER BY rg.name;'); sql1.Open; end;

В Дизайн тайм всё работает, а в Run time нет
Подскажите что делать?

У меня была такая же проблема....
Я до сих пор грешу на саму Дельфю....
Я боролся с этим так: компилировал проект, а потом запускал экзесшку из под эксплорера, почему то так работало

во первых все таки не
sql1.Open;
а
sql1.active:=true;

а во вторых в T-SQL-е не допускается такая конструкция Group by order by и нечего тут грешить на дельфю тут надо пользоваться СКУЛ командой having если я вас правильно понял конечно

Цитата(Bes @ 25.7.2005, 15:43)

во первых все таки не sql1.Open; а sql1.active:=true; а во вторых в T-SQL-е не допускается такая конструкция Group by order by и нечего тут грешить на дельфю тут надо пользоваться СКУЛ командой having если я вас правильно понял конечно

По поводу Open и Active ты не прав. Оба варианта это по сути синонимы.

По поводу 'Group by order by' не скажу, точно не знаю. Но bartram утверждает что из дизайн-тайма такой запрос выполняется.

Цитата(bartram @ 25.7.2005, 11:51)

Сабж!! Делаю запрос: .... В Дизайн тайм всё работает, а в Run time нет  Подскажите что делать?

А что значит "в Run time нет"? Так прямо и пишет "Не работаю"?

На всякий случай сразу спрошу: А ты компонент sql1-то создал?

Цитата(Bes @ 25.7.2005, 14:43)

а во вторых в T-SQL-е не допускается такая конструкция Group by order by и нечего тут грешить на дельфю тут надо пользоваться СКУЛ командой having если я вас правильно понял конечно

а причем тут having?
order by - сортировщик а
having - филтр.

Цитата(Bes @ 25.7.2005, 05:43)

во вторых в T-SQL-е не допускается такая конструкция Group by order by и нечего тут грешить на дельфю тут надо пользоваться СКУЛ командой having если я вас правильно понял конечно

Допускается.

Ошибку в студию! Код должен работать. Если не работает то причина в доступе к базе данных...

Петрович, говорит Acess Volatiion и что какая то ошибка в модуле таком то... адресе таком то..., и в библиотеке MsJet4.0

sql1 - это какого типа переменная?

Цитата

Цитата (Bes @ 25.7.2005, 14:43) а во вторых в T-SQL-е не допускается такая конструкция Group by order by и нечего тут грешить на дельфю тут надо пользоваться СКУЛ командой having если я вас правильно понял конечно а причем тут having? order by - сортировщик а having - филтр.

точно точно сорри просто я такую проблему решил с помощью having правда group by order by так и не заработала

Цитата

По поводу Open и Active ты не прав. Оба варианта это по сути синонимы.

да мы тут просто с Бартрамом спорили по этому поводу это к прошлой теме, помоему эти два метода даже реализованы одинаково просто для меня логичнее для тэйбла использовать Опен Клозе а для Квери Актив типа подключаю отключаю а тэйбл он все время прицеплен поэтому я его открываю закрываю - так просто условности

P.S. будет интересно выяснить причину ошибки а то я так и не допер

Это сообщение отредактировал(а) Bes - 26.7.2005, 08:17

Цитата(Vit @ 25.7.2005, 21:25)

sql1 - это какого типа переменная?

Код

sql1: TADOQuery;

bartram, а sql1 это компонент лежащий на форме, или ты его создаешь динамически?
И вообще, постарайся сделать как можно более простую форму на которой можно продемонстрировать ошибку, и выложи ее сюда. В приведенном коде, вроде ничего криминального не видно.

попробуи отклучить от sql1 TDataSource и правер что будет.

у меня получилось действительновсе работает видно крепко я тормознул
испытывал на SQLServer2000 Delphi6 ADOQuery
запрос

Код

select count(*) as qnt, kod from MyTab1 group by kod order by qnt desc

все компоненты на форме но выключены после запуска нажимается кнопка в которой следующий код

Код

procedure TForm1.Button1Click(Sender: TObject); begin ADOConnection1.Connected:=true; //ADOQuery1.Active:=true; ADOQuery1.Open; end;

попробовал и с Активе и с Опен все сработало

Это сообщение отредактировал(а) Bes - 26.7.2005, 12:53

bartram
1. Попробуй то же самое запихнуть в ADOCommand, если сработает - ну понятно, что в корзину отправить
2. Допустим не сработало - версию MDAC в студию. А то я через ADOCommand еще и не такой изврат устраивал, и либо и в design и в run - везде работало, либо нигде (почему не работало - сам догадайся).

Да, Query у тебя подключен самостоятельно? Если нет - Connection ?

И конечно для страховки выполни запрос в Query Analyzer - там он проходит?

Цитата

bartram, а sql1 это компонент лежащий на форме, или ты его создаешь динамически?

Лежит на форме

Цитата(SergeBS @ 26.7.2005, 13:35)

Да, Query у тебя подключен самостоятельно? Если нет - Connection ?

Он подключён к коннекшн

Цитата

И вообще, постарайся сделать как можно более простую форму на которой можно продемонстрировать ошибку, и выложи ее сюда. В приведенном коде, вроде ничего криминального не видно.

Ладно сделаю

Петрович, я сделал пример вот посмотри всё вроде нормально но ошибка
http://bartram.com.ru/files/my/db.zip

Не знаю что делать

Приведенный тобой пример у меня прекрасно работает. Только пришлось добавить в конец TForm1.Button1Click оператор sql1.Open.
Так что проблема где то у тебя в системе/настройках/пакетах и пр.
В таком случае, могу лишь посоветовать подключить модули с отладочной информацией и пошагово пройтись в sql1.Open что бы понять какое действие конкретно вызывает ошибку.
Ну и конечно можно попробовать переустановить Jet.

Цитата

Так что проблема где то у тебя в системе/настройках/пакетах и пр.

Блин Делфи не давно же переставил, что опять ?

Переустановка Делфи и Системы не помогла

Дык я думаю что надо не делфи переставлять, а скорее всего мс-офис. Свежий JET обычно с ним идет, или с SP виндов.
А можно просто снять с сайта микрософта максимально свежий движок JET (кажется называется что-то вроде то вроде MDAC)

bartram
Есть у меня предположение, переходящее в уверенность, что у тебя где-то косяки с активизацией.
В design-то работает:

Цитата

Приведенный тобой пример у меня прекрасно работает. Только пришлось добавить в конец TForm1.Button1Click оператор sql1.Open

И шагай еще вперед, к мелкомягким в гости.

Цитата

Набор программного обеспечения разработчика для доступа к данным Microsoft (Microsoft Data Access Software Development kit) (dasdksa.exe, 36 MB) с сайта Microsoft. Если Вы имеет модем со скоростью передачи 28 KB, то имеются файлы меньшего размера, доступные для загрузки, но которые не являются полным комплектом SDK. Переходите к http://www.microsoft.com/data/download.htm. Там Вы найдете как полный SDK, так и файлы меньшего размера.

Точнее, на март там лежал
URL: http://download.microsoft.com/download/c/f...48/MDAC_TYP.EXE
5.3 Мб, MDAC V 2.8
Еще полезно
URL: http://download.microsoft.com/download/8/4...91a7/cc_pkg.exe
Эта фигатура покажет, какая у тебя версия MDAC (а это не только ADO, а еще и DAO и ..., ну неважно).
Весит 220 кб. Вначале имеет смысл ее запустить - напишет, что у тебя не так .
Сам понимаешь - ссылки могут устареть. Но там все прозрачно видно, где что лежит. Есть только какой-то провокационный запрос, не помню какой. С ним проблемы не было. Имена файлов должны остаться те же.

Но скорее причина-таки в активизации. Как-нибудь к вечеру сдую твой пример и посмотрю.

bartram
Твой пример как готовый exe (с добавлением, есс-но sql1.open) - работает.
В Delphi - ругается типа
Acces violation ... - ну ты сам знаешь
А теперь лекарство:
sql1.ParamCheck = false
(у тебя true - нафига не знаю, ты же параметры явно ввалил.).
И будет работать и при запуске из-под IDE.
IMHO Delphi тут не при чем. У меня Офис 97, а я полагаю у Петровича - 2000. Эти Access-ы резко различаются по глючизму.

bartram
Вдогонку:
Я тут в DelphiKingdom статейках немного полазил по своим делам, а заодно и по твоей проблеме нашлось:

ADO.OLEDB.JET.Access Violation при передаче неполного параметра

Цитата

Некоторый, вполне типичный, код заполнения запроса в процессе выполнения вызывает Access Violation, притом, что согласно документации все должно работать корректно. Пример кода: Допустим, есть база данных в MS Access 2000, имеющая таблицу main и в ней целочисленное (INT) поле id в качестве главного ключа. Так же есть компонент ADOQuery1: TADOQuery, для доступа к базе данных. Максимальное значение поля id может быть получено следующим кодом: ADOQuery1.Active:=false; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('SELECT max(id)'); // -- Сбой здесь !!! ADOQuery1.SQL.Add('AS idmax'); ADOQuery1.SQL.Add('FROM main'); ADOQuery1.Active:=true;

Как у тебя, короче. Лечение - формировать строку запроса за 1 раз, т.е. не 3 ADD, а 1. До ADDа запрос сформировать в строке. Подробнее - в статье.

SergeBS, спасибо тебе за беспокойства но я уже решил свою проблему вот так:

Код

procedure TStatRegion.Button1Click(Sender: TObject); begin sql1.SQL.Text := 'SELECT rg.name, Count(cr.ID_Region)' +' FROM Corespondents AS cr LEFT JOIN Region AS rg ON cr.ID_Region=rg.ID'                   +' WHERE cr.ID_Contry ='+ ListContry.Text                   +' GROUP BY rg.Name'                   +' ORDER BY rg.Name'; sql1.Open; end;

Спасибо Петровичу

SergeBS Прав. Проблема возникает тогда, когда в sql1.SQL присвоен не полный запрос. Тогда, если ParamCheck = True, компонент пытается выполнить синтаксический разбор SQL-оператора для определения наличия в нем параметров. Так вот, почему-то, при работе из-под IDE Delphi 7, при разборе 'SELECT rg.name, Count(cr.ID_Region)' вызникает эта ошибка.
Выходов два. Либо присваивать весь оператор целиком (как в последнем посте), либо цстановить компоненту ParamCheck = False.
Кстати, под Delphi 6, ошибка не возникает.

Цитата

Кстати, под Delphi 6, ошибка не возникает.

Вот это для меня загадка