Показать сообщение отдельно
  #8  
Старый 24.07.2010, 16:11
windaws windaws вне форума
Начинающий
 
Регистрация: 28.08.2009
Сообщения: 116
Репутация: 10
По умолчанию

Цитата:
Сообщение от b.grigorev
Мои вопросы проигнорированы, я получил дополнительную конечно НУЖНУЮ информацию но НЕ ответы не мои вопросы. Просьба чтобы я вас уже не мучил отправьте мне на email: b.grigorev@mail.ru проект, где используется bdf файл с «функцией» добавления своих данных и не более того. Способ подключения, через ADO, драйвер лично у меня используется foxpro, но можно и другой на ваше усмотрение.

Конечно было еще хорошо, если бы вы мне ответили все таки на мои вопросы, что бы устранить некоторые пробелы. Заранее Спасибо! Извините за занудство!
По порядку:
1) Создаешь проект делфи
2) Кидаешь на форму компоненты ADOConnection1, ADOTable1, DataSource1, AdoQuery1, DBGRID1, Button1, и 3 эдита для ввода данных.
3)Связываешься с БД, в компоненте ADoTable1 указываешь название таблицы.
4) В Датасурсе указываешь таблицу
5) На форме после того как разместил DBGrid указываешь DataSource таблицы, она отобразится в гриде.
6)Выделяешь компонент ADOQuery, находишь свойство SQL, нажимаешь и вводить туда это запрос-(для таблицы Industry пример) :
INSERT INTO industry (ind_code,int_name,long_name)
Values(:ind_code,:int_name,:Long_name)
7)Нажимаешь ок, потом в этом же компоненте заходишь в Parameters там появятся параметры int_code,int_name,:long_name.
8)Далее щелкаешь двойным щелчком на компонент кнопки, и туда пишешь код:
Код:
adoquery1.parameters[0].asInteger:=strtoint(edit1.text);
adoquery1.parameters[1].asString:=edit1.text;
adoquery1.parameters[2].asString:=edit1.text;
adoquery1.execute;
Table1.refresh;

Запускаешь вводишь в эдиты данные и жмешь на кнопку.
Ответить с цитированием