Запрос на добавление из dbEdit

Привет! Подскажите, пожалуйста, что надо прописать в графе SQL запроса на добавление данных в таблицу из dbEdit?
Есть таблица Клиенты, в нее надо добавить нового клиента, для этого создала DBEdit для добавления туда полей как в таблице: Код, ФИО клиента и т.д. и кнопку "Добавить". Что и куда надо записать?

0

Stasymo, скинь проект.)

1

Kamero, Делала... все равно не создается нигде, а как изменится текст проги, если эти элементы ( ADOCON, QUR, SOURSE) расположить насамой фформе, а не отдельно?

Добавлено через 8 минут
VitoAcidrain, а здесь нельзя прикреплять(( может на почту??

0

Внимательно все посмотри. Если что-то будет не понятно, то объясню.

Вложения

Project Operator.rar (351.2 Кб, 10 просмотров)

1

VitoAcidrain, УИИИИИ!!!!! РАБОТАЕТ! ТЫ ЧУДО! Я даже не знаю, как тебя отблагодарить!!! СПАСИБО ОГРОМНОЕ)))
Вроде все понятно, в Unit2 у меня не было ничего того, что у тебя написано, поэтому наверное не работало...

0

Сообщение от Stasymo Вроде все понятно, в Unit2 у меня не было ничего того, что у тебя написано, поэтому наверное не работало...

Этот код просто позволяет избавиться от головной боли при переносе проекта. Главное не забывай дописывать там Open для AdoQuery, которые будешь добавлять.

1

Хорошо
VitoAcidrain, поняла, а что удалять - тоже самое, только вместо insert - написать delete, верно?

0

Сообщение от Stasymo только вместо insert - написать delete, верно

С удалением проще. В событии нажатия кнопки пишешь только ADOQuery1.Delete и все.

1

VitoAcidrain, Блин, я криворукая точно!
скопировала в твоем проекте кусок, чтобы для Edit2 сделать, а он все красным повыделял!! (((((

Миниатюры

 

0

Stasymo, ничего не вижу, скриншот поболее, пожалуйста.

1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, Grids, DBGrids, StdCtrls, DB, ADODB;

type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses
Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Q: TADOQuery;
begin
if Edit1.Text = '' then
begin
ShowMessage('Не все поля заполнены');
Exit;
end;

Q := TADOQuery.Create(Self);
Q.Connection := DataModule2.ADOConnection1;
Q.Close;
Q.SQL.Clear;
Q.SQL.Text := 'SELECT * FROM Клиенты';
Q.Open;

Q.Insert;
Q['ФИО клиента'] := Edit1.Text;
Q.Post;
Q.Free;

Edit1.Clear;

DataModule2.ADOQuery1.Close;
DataModule2.ADOQuery1.Open;
end;
begin
if Edit2.Text = '' then
begin
ShowMessage('Не все поля заполнены');
Exit;
end;

Q := TADOQuery.Create(Self);
Q.Connection := DataModule2.ADOConnection1;
Q.Close;
Q.SQL.Clear;
Q.SQL.Text := 'SELECT * FROM Клиенты';
Q.Open;

Q.Insert;
Q['Возраст'] := Edit2.Text;
Q.Post;
Q.Free;

Edit2.Clear;

DataModule2.ADOQuery1.Close;
DataModule2.ADOQuery1.Open;
end;

end.

и вот тут еще скриншот с ошибками

0

какой-то треш

Миниатюры

 

0

Stasymo,
1) Лишние begin..end;
2) Можно проще написать.

1

VitoAcidrain, мадонна! ты гениален)) спасибо!!!
пжлст, только не бросай меня..я напишу еще, иначе выгонят из универа))

0