ошибка в sql

[hunter03]

Здравствуйте!Помогите найти ошибку
мне нужно проверить есть ли вводимое значение в поле или нет. Если нет -то записать, если есть-то выдать предупреждение.

проверять мне нужно в табилце под именем Journal , который в папке BD
поле Kod

нашел пример как это сделать но вылетает ошибка Invalid use of ketword. Token ? Line nimber:1. Вот код:

procedure TForm2.Button19Click(Sender: TObject);
var  cnt: integer;
begin
Query1.sql.Add('Select COUNT(*) as cnt FROM '+GetCurrentDir+'\BD\Journal WHERE Kod='+dbedit28.Text);
Query1.Open;
cnt:=query1.FieldByName('cnt').AsInteger;
if cnt=1 then
 ShowMessage('человек с таким ФИО уже существует');
Query1.Close;

Помогите плз, очень нужно

[vovk]

БДЕ ? paradox? Если да то пользуйтесь TTable и его методом Lookup. Ведь явно же таблица уже открыта, даже если нет в скорости практически не проиграете.
А лучше забудте про BDE и найдите чтото другое благо сейчас есть из чего выбирать.

по теме GetCurrentDir вы уверены что вам нужна текущая папка?
может вам нужна директория где лежит exe файл вашей программы? Если да то меняем GetCurrentDir на ExtractFilePath(Application.ExeName )

ЗЫ АА да весь путь с именем файла в двойные кавычки, + обязательно расширение если это не .db

[hunter03]

уверен что текущий каталог нада.
но задание над именно с sql это провернуть

[vovk]

Ну текущий так текущий, тогда посмотрите что у вас содержится в
Query1.sql

скорее всего там чтото от предыдущих действий осталось, в общем для уверенности не так,

Query1.sql.Add('Select COUNT(*) as cnt FROM '+GetCurrentDir+'\BD\Journal WHERE Kod='+dbedit28.Text);

,
а так

Query1.sql.text:=('Select COUNT(*) as cnt FROM '+GetCurrentDir+'\BD\Journal WHERE Kod='+dbedit28.Text);

[hunter03]

та же самая ошибка(

[vovk]

ндяя разбейте запрос

Query1.sql.clear;
Query1.sql.Add('Select COUNT(*) as cnt'); 
Query1.sql.Add(эFROM '+GetCurrentDir+'\BD\Journal');
Query1.sql.Add(эWHERE Kod='+dbedit28.Text);
Query1.Open;

и напишите теперь сообщение об ошибке

[hunter03]

ничего не изменилось...
может быть это из-за того, что не все поля заполнены?
т.е. в некоторых записях поля Kod не заполнены?

уже думал может не видит таблицу, написал так:

Query1.sql.clear;
Query1.sql.Add('Select COUNT(*) as cnt ');
Query1.sql.Add('FROM '+'C:\Documents and Settings\Admin\Рабочий стол\курсак\BD\Journal  ');
Query1.sql.Add('WHERE Kod='+dbedit28.Text);
Query1.Open;

cnt:=query1.FieldByName('cnt').Value;
if cnt=1 then
 ShowMessage('человек с таким ФИО уже существует');
Query1.Close;

[vovk]

Извеняюсь, выше наделал сам ошибок, исправил.

меня терзают смутные сомнения....
может

bedit28

подключена как раз к это му самому Query1?

[hunter03]

ну да, а куда же?