|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.06.2008, 17:00 | #1 |
Пользователь
Регистрация: 24.04.2008
Сообщений: 53
|
Проблема с добавлением в БД
Ну вобщем у меня есть добавление в таблицу Users через Query, так же есть проверка на создание юзера с одинаковым Логином.
Так проблема в том что данные в таблицу добавляются после закрытия приложения, хотя если не закрывать то пользователя с таким именем уже создать нельзя будет писать "мол такой пользователь существует", хотя в БД его еще нет. Можно ли сделать чтоб он сразу добавлялись??? |
03.06.2008, 17:04 | #2 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
03.06.2008, 17:06 | #3 |
Пользователь
Регистрация: 24.04.2008
Сообщений: 53
|
procedure TFRegist.Button1Click(Sender: TObject);
var sql:string; begin sql:='SELECT * FROM users WHERE Login="'+Edit1.text+'"'; Query1.SQL.TEXT:=sql; Query1.prepare; Query1.open; if(query1.RecordCount=1) then begin showmessage('Данный акаунт уже существует, введите другой логин'); Edit1.Text:=''; end else begin Query1.Active:=False; if ((MaskEdit1.Text=MaskEdit2.Text) AND (MaskEdit1.Text<>'') and (edit1.Text<>'') and (edit2.Text<>'') and (edit3.Text<>'') and(edit4.Text<>'')) then begin UpdateSql1.DatabaseName:='Data\'; sql:='INSERT INTO users(Login, Pass, Name, Surname, Grup, Admin) VALUES("'+Edit1.Text+'","'+MaskEdit 1.text+'","'+Edit2.Text+'","'+Edit3 .text+'","'+Edit4.Text+'",false)'; UpdateSQL1.InsertSql.TEXT:=sql; UpdateSql1.ExecSQL(ukInsert); Showmessage('Данные добавлены'); Edit1.text:='';Edit2.Text:='';Edit3 .Text:=''; Edit4.Text:='';Maskedit1.Text:=''; Maskedit2.Text:=''; end else begin ShowMessage('Введенные пароли не совпадают или есть незаполненные поля'); Label2.Font.Color:=clred; Label1.Font.Color:=clred; MaskEdit1.Text:=''; MaskEdit2.Text:=''; end; end; end; |
03.06.2008, 17:17 | #4 |
Форумчанин
Регистрация: 22.06.2007
Сообщений: 414
|
А чем коннектишься?
Нет невыполнимых задач, всё дело времени...
|
03.06.2008, 17:22 | #5 |
Пользователь
Регистрация: 24.04.2008
Сообщений: 53
|
|
03.06.2008, 17:28 | #6 |
Форумчанин
Регистрация: 22.06.2007
Сообщений: 414
|
Я бы посоветовал бы всязку:
IBDatabase1->IBTransaction1->IBQuery1 И тут у IBTransaction1.Commit; - обновляет записи. Я так делаю, наньше делал как ты. и тоже самое было, не обновлялось.
Нет невыполнимых задач, всё дело времени...
|
03.06.2008, 17:31 | #7 |
Пользователь
Регистрация: 24.04.2008
Сообщений: 53
|
А вроде IBQuery это для сетевых БД вроде??? а у мну локальная
|
03.06.2008, 18:00 | #8 |
Форумчанин
Регистрация: 22.06.2007
Сообщений: 414
|
А какая разница??? Что сетевая что локальня??? Только в IP (у локальной 127.0.0.1).
А вообще у IBDatabase есть 2-ва вада коннекта. Можно выбрать в Database Component Editor-> Local or Remoute
Нет невыполнимых задач, всё дело времени...
|
03.06.2008, 21:02 | #9 | |
детский тренер
Форумчанин
Регистрация: 08.06.2007
Сообщений: 532
|
Цитата:
А даннЫе сразу и добавляются, просто нужно обновить запрос...
Я злой и страФный серррый воФк, и в пАрАсятах знаю толк - ppp ppp pp p pp pp
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проблемы с добавлением ресурсов?? | HunterMan | Win Api | 4 | 12.06.2008 02:33 |
меню в делфи с добавлением новой функции к уже существующей БД | Ane4ka | БД в Delphi | 22 | 27.05.2008 15:40 |