Добавление записи в Dbgrid при помощи запроса Sql

Тема в разделе "Delphi - Базы данных", создана пользователем Yagmort, 21 июн 2009.

  1. Yagmort

    Yagmort Гость

    Код (Text):
    procedure TFD_PAC.BitBtn1Click(Sender: TObject);
    var
    e1: string;
    begin
    DM.ADOQ_PAC.Close;
    DM.ADOQ_PAC.SQL.Clear;
    DM.ADOQ_PAC.SQL.Add('INSERT INTO pacient (familiya)');
    e1:=DBEdit1.EditText;
    DM.ADOQ_PAC.SQL.Add('VALUES (e1)');
    //GL_F.DBG_PAC.Columns[0].FieldName:='familiya';\
    //DM.ADOQ_PAC.Parameters.ParamByName('fam').Value:=DBEdit1.EditText;

    DM.ADOQ_PAC.ExecSQL;
    //DM.ADOQ_PAC.Refresh;
    end;


    У меня на форме есть много DBEdit-ов, 1 DBMemo, 2 DBRichEdit, 1 Datetimepicker.

    Вверху я пытался добавить новую "Фамилию" пациента, перепробывал много способов, но чет не получилось, наверное из-за того, что нужно создать в DBGrid -новую строку и чтоб при нажатии на кнопку "добавить", открылась форма с пустыми DBEdit -ами DBMemo итп.
    У меня ситтуация такова, что у меня 1 запись (строка) в таблице (БД) есть и заполнена строка полностью, но когда нажимаю на кнопку "добавить", он не создает новую строку куда и будет добавлятся новая запись, а пишет в этих DBEdit - ах итп т.е. значения, той записи которые находятся в моей одной записи (строке).
    Посмотрел много всяких пособий и чет подходящего примера не нашел ;) надеюсь поможете (всю ночь ковырял коды)...
    _____.JPG - тут мой шаблон.
     
Загрузка...

Поделиться этой страницей