Добавление в БД с проверкой

@meeeeow · Регистрация: 04.03.2012

Author24 — интернет-сервис помощи студентам

есть БД(access,её данные выводятся на форму),в ней есть два поля (дата и время)
при каждом новом добавлении в бд,нужна проверка по этим двум полям
если совпадает и время и дата,то вывод ошибки

@Allexxisss · 04.03.2012, 18:27

расширьте вопрос
и если добавляем новую запись необходима проверка? или при обновлении?
если можно еще скрин формы выложить

@meeeeow · 04.03.2012, 19:55 **[ТС]**

вот форма

при нажатии кнопки добавить заказ должна быть какая то проверка
если дата и время такие есть в БД,то вывод ошибки

@Allexxisss · 04.03.2012, 20:17

Delphi

Table1.First;
while not Table1.EOF do begin
  if (Table1.FieldByName('date_raboti').AsString = DateToStr(DateTimePicker1.Date)) or (Table1.FieldByName('vremja_raboti').AsString = TimeToStr(DateTimePicker2.Time)) then
    // если есть, то что то делаем 
  Table1.Next;
end;

писал без делфя, могут быть ошибки. Но принцип таков

@meeeeow · 04.03.2012, 21:19 **[ТС]**

выдаёт ошибку,не могу понять какую

Delphi

procedure TForm2.Button1Click(Sender: TObject);
begin
ADOTable1.Active:=False;
ADOTable1.Open;
ADOTable1.First;
while not ADOTable1.EOF do begin
if (ADOTable1.FieldByName('date_raboti').AsString = DateToStr(DateTimePicker1.Date)) or (ADOTable1.FieldByName('vremja_raboti').AsString = combobox2.Text) then
showmessage ('Äàííîå âðåìÿ çàíÿòî');
ADOTable1.Next;
ADOTable1.Close;
else begin
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('INSERT INTO zajavki');
ADOQuery2.SQL.Add('(vid_rabot, fio_zakaz, date_raboti, vremja_raboti, master)');
ADOQuery2.SQL.Add('VALUES(:vid_rabot, :fio_zakaz, :date_raboti, :vremja_raboti, :master)');
ADOQuery2.Parameters.ParamByName('vid_rabot').Value := combobox1.Text;
ADOQuery2.Parameters.ParamByName('fio_zakaz').Value := Edit1.Text;
ADOQuery2.Parameters.ParamByName('date_raboti').Value := DateTimePicker1.DateTime;
ADOQuery2.Parameters.ParamByName('vremja_raboti').Value := combobox2.Text;
ADOQuery2.Parameters.ParamByName('master').Value := Edit2.Text;
ADOQuery2.ExecSQL;
ADOTable1.Active:=True;
end;
end;

Добавлено через 2 минуты
то есть не могу как понять в чём ошибка

@Allexxisss · 04.03.2012, 21:31

ну сразу

Delphi

if (ADOTable1.FieldByName('date_raboti').AsString = DateToStr(DateTimePicker1.Date)) or (ADOTable1.FieldByName('vremja_raboti').AsString = combobox2.Text) then
  begin
    showmessage ('Данное время занято');
    exit;
  end;
// т.е. если есть совпадения тогда ничего не делаем и выходим из процедуры
ADOTable1.Next;

потом тип данных параметров должны совпадать с типом данных в БД

@meeeeow · 04.03.2012, 21:56 **[ТС]**

он по поводу else истерит -_-
я уже всячески перепробовала,и никак -_-

@Allexxisss · 04.03.2012, 22:00

Delphi

procedure TForm2.Button1Click(Sender: TObject);
begin
ADOTable1.Active:=False;
ADOTable1.Open;
ADOTable1.First;
while not ADOTable1.EOF do 
  begin
    if (ADOTable1.FieldByName('date_raboti').AsString = DateToStr(DateTimePicker1.Date)) or (ADOTable1.FieldByName('vremja_raboti').AsString = combobox2.Text) then
      begin
        showmessage ('Данное время занято');
        exit;
      end;
    ADOTable1.Next;
  end;
ADOTable1.Close;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('INSERT INTO zajavki');
ADOQuery2.SQL.Add('(vid_rabot, fio_zakaz, date_raboti, vremja_raboti, master)');
ADOQuery2.SQL.Add('VALUES(:vid_rabot, :fio_zakaz, :date_raboti, :vremja_raboti, :master)');
ADOQuery2.Parameters.ParamByName('vid_rabot').Value := combobox1.Text;
ADOQuery2.Parameters.ParamByName('fio_zakaz').Value := Edit1.Text;
ADOQuery2.Parameters.ParamByName('date_raboti').Value := DateTimePicker1.DateTime;
ADOQuery2.Parameters.ParamByName('vremja_raboti').Value := combobox2.Text;
ADOQuery2.Parameters.ParamByName('master').Value := Edit2.Text;
ADOQuery2.ExecSQL;
ADOTable1.Active:=True;
end;
end;

@meeeeow · 04.03.2012, 22:01 **[ТС]**

и с ней и без ошибкаа

@Allexxisss · 04.03.2012, 22:04

исправил ваш код

@meeeeow · 04.03.2012, 22:08 **[ТС]**

и да
то,что он по 500 записей одинаковых добавляет это нормально?
мб ещё где exit какой-нибудь стоит поставить?

@Allexxisss · 04.03.2012, 22:18

в

Delphi

1	if (ADOTable1.FieldByName('date_raboti').AsString = DateToStr(DateTimePicker1.Date)) or (ADOTable1.FieldByName('vremja_raboti').AsString = combobox2.Text) then

поменяйте OR на AND

Добавлено через 4 минуты
и проверьте. запись в базу должно осуществляться вне (ниже) цикла while проверки на совпадение даты и времени

@Allexxisss 60 / 60 / 9 Регистрация: 04.02.2012 Сообщений: 214
	04.03.2012, 22:04	10
	исправил ваш код 0

@meeeeow 0 / 0 / 0 Регистрация: 04.03.2012 Сообщений: 6
	04.03.2012, 22:08 [ТС]	11
	и да то,что он по 500 записей одинаковых добавляет это нормально? мб ещё где exit какой-нибудь стоит поставить? 0

@meeeeow 0 / 0 / 0 Регистрация: 04.03.2012 Сообщений: 6
		1
	Добавление в БД с проверкой 04.03.2012, 17:59. Показов 1008. Ответов 11 Метки нет (Все метки) есть БД(access,её данные выводятся на форму),в ней есть два поля (дата и время) при каждом новом добавлении в бд,нужна проверка по этим двум полям если совпадает и время и дата,то вывод ошибки 0

@Allexxisss 60 / 60 / 9 Регистрация: 04.02.2012 Сообщений: 214
	04.03.2012, 18:27	2
	расширьте вопрос и если добавляем новую запись необходима проверка? или при обновлении? если можно еще скрин формы выложить 0

@meeeeow 0 / 0 / 0 Регистрация: 04.03.2012 Сообщений: 6
	04.03.2012, 19:55 [ТС]	3
	вот форма при нажатии кнопки добавить заказ должна быть какая то проверка если дата и время такие есть в БД,то вывод ошибки 0

@meeeeow 0 / 0 / 0 Регистрация: 04.03.2012 Сообщений: 6
	04.03.2012, 21:56 [ТС]	7
	он по поводу else истерит -_- я уже всячески перепробовала,и никак -_- 0

@meeeeow 0 / 0 / 0 Регистрация: 04.03.2012 Сообщений: 6
	04.03.2012, 22:01 [ТС]	9
	и с ней и без ошибкаа 0

	04.03.2012, 22:18