Привет всем! Начала делать свою прогу, и столкнулась с такой проблемой. Извините, может кому-то она покажется пустяковой, но я в базах данных ничего не понимаю.
Дело в том, что мне нужно из компонента Edit добавить текст написанный пользователем в базу данных Paradox. А как это делается, даже понятия не имею. Может кто-то знает, помогите пожалуйста.

Вам для начала стоит почитать про работу с базами данных в какой нибудь книжке. С нуля, объяснять слишком долго.

Цитата

С нуля, объяснять слишком долго.

согласен, вот моя попытка !
Такс... для начала научимся подключать бд, я тут напишу как это делается, если что не таполучается, отвечу, по мере возможности 1
1. Создаешь базу данных.
2. Вместе с Delphi идет программа BDE Administrator, там нажимаешь Ctr + N, в появившемся диалоговом окне выбираешь Standart, с права ты должна увидеть PATH жмешь на него ишешь свою бд, нажимаешь ок, сохраняешь и выходишь (по умолчанию имя будет STANDART.
3. Запускаешь Delphi.
4. На вкладке Data Access выбираешь компонент DataSource1 и кидаешь его на форму.
5. На вкладке BDE выбираешь компонент Table1 и так же кидаешь его на форму.
6. У компонента Table1 имеется DatabaseName, там выбираешь свою базу данных, в нашем случае STANDART.
7. В TableName надо найти имя своей таблицы.
8. Active=True
9. У DataSource1 DataSet=Table1
10. На вкладке Data Controls выбираешь DBGrid1 и также кидаешь ее на форму.
11. DataSouce=DataSource1
12. Кинь еще кнопочку, например Button1, щелкни 2 раза на кнопке и впиши следующий код

Код

With form1 Do Begin     Table1.Append;     If Form2.ShowModal=mrOk Then       Table1.Post     Else       Table1.Cancel   End

Итак с подключением и отображением бд закончили, теперь нам надо добавить запись, делается это следующим образом:
1. Создаешь еще одну форму.
2. пишешь uses unit1, что бы вторая форма "видела" первую !
3. На вкладке DataControls выбираешь компонент dbedit1, dbedt это тот же edit, но для работы с бд !
4. У dbedit1 имеется DataSource, там выбираешь DataSource1, т.е. DataSource=DataSource1.
5. В DataField ставишь нужную тебе колонку из твое бд.
и на каждую нужную тебе колонку проделываешь этот шаг (4)
6. Размещаешь кнопочку с Caption='Добавить'.
ФУууФ, вот вроде и все, пишу по пямяти, могут быть опечатки, но если что не понятно, спрашивай, отвечу по мере возможности
Добавлено @ 22:12
абсолютно согласен с Петрович'ом !
И еще имеется множество статей для начинающих, автор которых Vit, смотри в красную рамочку !

Это сообщение отредактировал(а) HAS - 20.7.2005, 22:13

Ещё проще

Код

Table1.Append;//для добавления //или Table1.Edit;//для редактирования //и далее присваиваем значения Table1.FieldByName('MyField').AsString := Edit1.Text; Table1.FieldByName('MyIntField').AsInteger := 12; Table1.Post;//сохраняем значения //можно сбросить кеш, т.е. принудительно записать данные на диск, а пока //мы этого не сделали, данные хранятся в памяти, пока BDE сам их не сбросит //но так немного медленне может работать, если машина слабовата Table1.FlushBuffers;

Абсолютно согласен с Петровичем!

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

http://vingrad.ru/DELPHI-DELPHI-000034

Цитата

Но все же спасибо HAS за то, что он все подробно так описал. Спасибо.

FelistA, да незачто !

Возникла следующая проблема, при нажатии на кнопку «Принять», выскакивает следующая ошибка.

Project raised exception class EDataBaseError with message "Table1 Cannot perform this operation on a closed dataset" Process stoped.

Если делать так как сказал HAS форма "виснет", т.е. вообще не реагирует ни на что.

Исходный код:

Код

Form4.Table1.Edit;     Form4.Table1.FieldByName('Nazvanie').AsString := Edit1.Text;     Form4.Table1.Post; Hide; Form2.Show;

Пробовала добавить:

Код

Form4.Table1.Active:=false; Form4.Table1.Edit;     Form4.Table1.FieldByName('Nazvanie').AsString := Edit1.Text;     Form4.Table1.Post; Form4.Table1.Active:=true; Hide; Form2.Show;

Подскажите, что я деляю не так.

я вообще-то редлагал вместо edit'a использовать dbedit

Так вроде-бы должно работать:

Код

Form4.Table1.Active:=True;     Form4.Table1.Edit;      Form4.Table1.FieldByName('Nazvanie').AsString := Edit1.Text;      Form4.Table1.Post;     Form4.Table1.Active:=False;

Это сообщение отредактировал(а) k2s - 23.7.2005, 01:23

Цитата

я вообще-то редлагал вместо edit'a использовать dbedit

Да я и dbedit использовала, та же ошибка. Хотя я не совсем поняла, что прописать на второй форме для выхода и сохранения. А форма потом перестает реагировать на нажатие кнопок.

м...
а ты попробуй кнопочки BitBtn и свойство
Kind=bkOK -> добавить запись
Kind=bkCancel ->отмена действий

- я ссылку давал на статью для новичков! Потрудитесь прочитать!

Цитата

я ссылку давал на статью для новичков! Потрудитесь прочитать!

Спасибо, почитала, и уже давно кстати.

выложи код, посмотрим