|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Delphi 7 + MS Access
Hi, нужна помощь по Delphi, а именно организовать добавление пользователя в БД Access. Авторизация уже работает, но добавлять надо вручную. Главная проблема в работоспособности SQL запроса.
Код регистрации: ------------------------------------------------------------------------------ Код:
unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids; type TForm4 = class(TForm) Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Label2: TLabel; Button2: TButton; Button1: TButton; DBGrid1: TDBGrid; DataSource1: TDataSource; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form4: TForm4; implementation uses Unit5, Unit2; {$R *.dfm} procedure TForm4.Button2Click(Sender: TObject); begin Form4.Close; end; procedure TForm4.Button1Click(Sender: TObject); //??????? ?????? ? ??????? begin try if (Trim(Edit1.Text)='') or (Trim(Edit2.Text)='') then showmessage('Заполните поля!'); DataModule2.ADOQuery1.SQL.Clear; DataModule2.ADOQuery1.SQL.Add('insert into users ([login], [password]);'); DataModule2.ADOQuery1.FieldByName('login').AsString:=Edit1.Text; DataModule2.ADOQuery1.FieldByName('password').AsString:=(Edit2.Text); DataModule2.ADOQuery1.Insert; Edit1.Clear; Edit2.Clear; except on e:Exception do end; end; lmikle: пользуемся тегами! Последний раз редактировалось lmikle, 05.05.2018 в 19:53. |
#2
|
|||
|
|||
DataModule2.ADOQuery1.Insert;
замени на DataModule2.ADOQuery1.ExecSQL; |
#3
|
|||
|
|||
Такие дела
Почему? Что тут не так?
|
#4
|
|||
|
|||
По скрину можно только сказать, что где-то нету поля login.
|
#5
|
|||
|
|||
Поле
Но поле в базе есть.
|
#6
|
||||
|
||||
А может таким запрос должен быть
Код:
DataModule2.ADOQuery1.SQL.Add('insert into users (login, password) values (' + Edit1.Text + ',' + Edit2.Text + ')'); Я не понял Вашего вопроса, но всё же Вам на него отвечу! |