Петрович, я сделал пример вот посмотри всё вроде нормально но ошибка
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, ошибка не возникает.

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