Data type mismatch???!!!

[b.grigorev]

Здравствуйте! Посмотрите пожалуйста на эту ошибку, объясните что она означает. В двух словах, при запуске ошибок нет, ошибка появляется, когда пытаешься добавить свои значения в таблицу.
Проект в общем то простой - БД - ADO - таблица dbf (она у всех есть C:\Program Files\Common Files\Borland Shared\Data).
Запрос на добавление данных в таблицу, через ADOQery.
Выкладываю скрин, но еще даю ссылку на саму прогу. http://depositfiles.com/files/57dhwjwkd
Спасибо за ранее! Если кто-то сделает с нуля будет еще лучше!!!

[Alexei91]

У вас "Тип данных не соответствует" - "Data type mismath". Проверьте код.
Например, переменной типа integer присваивается значение типа string и т.п.

[b.grigorev]

Все понятно. Я только пытаюсь разобраться в этом во всем и для меня слова типа: "Проверьте код. Например, переменной типа integer присваивается значение типа string и т.п." - хуже бана на сайте =).
А можно все таки посмотреть мой код сделать какие-нибудь изменения, я не думаю что это займет много вашего времени? Зато один человек будет лучше разбираться, благодаря вам! Хоть кто-нибудь мне действительно может помочь?

[Alexei91]

Запустите SQL Explorer. В Delphi 7 пункт меню Database->Explore.
Найдите в DBDEMOS таблицу Industry. Откройте Fields, поле INT_CODE - тип Numeric,
т.е. числовой.
Ваш код:

adoquery1.Parameters.ParamByName('ind_code').Value:=edit1.text;

Edit1.text -строка. Отсюда и ошибка.
Пишите

adoquery1.Parameters.ParamByName('ind_code').Value:=StrToInt(edit1.text);

StrToInt - строку в целое число.

[b.grigorev]

Спасибо тебе! Действительно нормальный ответ за все время которое я задавал на форумах. Я теперь знаю где смотреть "формат данных ячейки". Спасибо! Но вот новая ошибка, после дого как я добовляю данные: "Текущий проводник не поддерживает возврат...". А потом переходит на код, надо что-то еще добавить в код или что не понимаю???!!! При прошлой ошибке вроде было понятно, что данные не коректные ввожу, а сейчас

[Serge_Bliznykov]

смотрите, когда получаете данные из таблицы (оператор SELECT ... ) тогда делаете Query.Open (или, что абсолютно то же самое, - Query.Active := true)

А когда выполняте операции по изменению данных (это команды INSERT ... / DELETE ... / UPDATE ... )
нужно вместо этого выполнять код:

AdoQuery1.ExecSQL;

[b.grigorev]

Спасибо за ответ, но я не совсем понимаю о чем вы говорите. Поясните пожалуйста по подробней!

[Serge_Bliznykov]

Вы издеваетесь?
Посмотрите на свой скриншот "переход на код.jpg "
Выделенную строчку видите?

adoquery1.active := true;

Так вот, что эта строчка делает, знаете?!
Поясняю. Эта строчка открывает датасет (запрос). Так, чтобы из него можно было получать данные. Но запрос, возвращающий данные - это запрос SELECT <что-то> из ТАБЛИЦЫ
В Вашем случае запрос на ИЗМЕНЕНИЕ данных
(в adoquery1 находится текст "INSERT INTO industry .....")

Замените строчку adoquery1.active := true;
на строчку:

AdoQuery1.ExecSQL;

[b.grigorev]

Ну что вы я не издеваюсь, я правда хочу разобраться.
Вобщем измение строчки помогло. Данные добавляются, но эти добавления видны ТОЛЬКО при повоторном отркрытии таблицы???!!!
А как сделать так что-бы добавил данные и они сразу видны в таблице?
И еще статус Active компонента ADOQuery обязательно должен быть true или false, я когда меняю на true выходит ошибка: Неправильно отпределен объект Patametr

[Serge_Bliznykov]

мой вам совет.
Для добавления и для для отображения (запроса данных) используйте РАЗНЫЕ AdoQuery
тогда, чтобы обновить отображаемые данные, выполните AdoQuery1.Refresh; (если, вдруг, это не поможет, тогда AdoQuery1.Close; AdoQuery1.Open; )