Поиск по базе данных

[royun]

Добрый день.

Есть код, который осуществляет поиск по набранному номеру (колонка abonenta) в таблице billing за период даты (колонка Date, sDateEdit1.Text - начальная дата, sDateEdit2.Text - конечная дата)

procedure TForm1.Button1Click(Sender: TObject);
var
sql:string;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
sql:= 'SELECT * FROM billing where [abonenta]='''+Edit1.Text+''' and Date >= '''+sDateEdit1.Text+''' and date <= '''+sDateEdit2.Text+'''';
ADOQuery1.SQL.Add(sql);
try
ADOQuery1.Open;
except
application.MessageBox( 'Не могу выполнить запрос', 'Ошибка',MB_OK);
end;
end;

и есть запрос

sql:= 'SELECT * FROM billing where [abonenta]='''+Edit1.Text+''' and Date >= '''+sDateEdit1.Text+''' and date <= '''+sDateEdit2.Text+'''';

который не правильно работает. Если я хочу найти набранный номер по всей таблице, я не устанавливаю начальную и конечную даты. И когда я нажимаю кнопку "найти", на DBGrid ни чего не выводится. Хотя данные по этому номеру точно есть. И также, если я хочу найти набранный номер по всей таблице с начальной датой, то тоже на DBGrid ни чего не выводит.

Я понимаю что сам запрос не идеален, поэтому прошу вас усовершенствовать данный запрос.

[Аватар]

Если поиск по дате не делать, то и выбрасывайте условие на дату из запроса. СУБД откуда знает, что вы решили условие на дату не задавать?

[royun]

Сделал так

if sDateEdit1.Text<>null and sDateEdit2.Text<>null then
begin
sql:= 'SELECT * FROM billing where [abonenta]='''+Edit1.Text+''' and Date >= '''+sDateEdit1.Text+''' and date <= '''+sDateEdit2.Text+'''';
// Вывести текст запроса на экран
//application.MessageBox(PChar(sql), 'Текст запроса',MB_OK);
// Добавить стоку с текстом запроса
ADOQuery1.SQL.Add(sql);
try
// Выполнить запрос
ADOQuery1.Open;
// Обработать возможные ошибки
// при выполнении запроса
except
application.MessageBox( 'Не могу выполнить запрос', 'Ошибка',MB_OK);
end;
end
else
begin
sql:= 'SELECT * FROM billing WHERE [abonenta] = '''+ Edit1.Text + '''';
ADOQuery1.SQL.Add(sql);
try
// Выполнить запрос
ADOQuery1.Open;
// Обработать возможные ошибки
// при выполнении запроса
except
application.MessageBox( 'Не могу выполнить запрос', 'Ошибка',MB_OK);
end;
end;

Но теперь выводится ошибка

Could not convert variant of type (String) into type (Boolean)

[Brother Abbat]

ставь проверку есть ченить в sDataEdit1 и sDataEdit2 или нет. Если есть, то

sql:= 'SELECT * FROM billing where [abonenta]='''+Edit1.Text+''' and Date >= '''+sDateEdit1.Text+''' and date <= '''+sDateEdit2.Text+'''';

Если нет, то:

sql:= 'SELECT * FROM billing WHERE [abonenta] = '''+ Edit1.Text + '''';

[Аватар]

if sDateEdit1.Text<>null and sDateEdit2.Text<>null then

С каких это пор свойство Text имеет тип Variant? И в скобки кто будет выражение сравнения брать?

[mmihan]

если я хочу найти набранный номер по всей таблице с начальной датой, то тоже на DBGrid ни чего не выводит.

а если вот так ?

Date >= '''+sDateEdit1.Text+'' 'OR Date IS NULL

и так для всех полей где возможно не буду введены данные..

[brick08]

Я думаю нужно так:

if (sDateEdit1.Text<>'') and (sDateEdit2.Text<>'') then
begin
sql:= 'SELECT * FROM billing where ([abonenta]='+Edit1.Text+') and (Date >= '+sDateEdit1.Text+') and (date <= '+sDateEdit2.Text+';);

[rdama]

А я вот думаю, что надо читать что такое параметры в запросах.
И тогда идиотизма в вашем коде поубавится.

[royun]

Сообщение от rdama

А я вот думаю, что надо читать что такое параметры в запросах.
И тогда идиотизма в вашем коде поубавится.

Так и сделаю. Всем спасибо за участие в теме.

[Gagarik]

Сообщение от rdama

А я вот думаю, что надо читать что такое параметры в запросах.
И тогда идиотизма в вашем коде поубавится.

Не факт что его станет меньше.
можно так

var BegDat,EndDat : string;

if sDateEdit1.Text<>'' then BegDat := sDateEdit1.Text else BegDat := '07.11.1917';
if sDateEdit2.Text<>'' then EndDat := sDateEdit1.Text else EndDat := DateToStr(Now+1);

sql:= 'SELECT * FROM billing where [abonenta]='''+Edit1.Text+''' and Date >= '''+BegDat+''' and date <= '''+EndDat+'''';

Смысл в том, что-бы в место пустых дат подставить даты за границами существующих данных. Те даты которых в таблице нет.