Ошибка Query

← →
M126 (2003-08-15 13:04) [0]

Здравстуйте, Мастера. Подскажите пожалуйста где ошибка тескт след-ий
QSklad.Close;
QSklad.SQL.Clear;
QSklad.SQL.Add("SELECT * FROM "C:\STO\Base\Sklad.dbf"");
QSklad.SQL.Add("WHERE SHIFR = "+ edtShifr.Text);
QSklad.Open;
QSklad.First;
if not Query1.FieldByName("NAIM").IsNull
then edtNaim.Text:=QSklad.FieldValues["NAIM"]
else edtNaim.Text := "Нет в наличии";
При нажатии кнопки Поиска через edtShifr
Программа выдает ошибку Type mismatch in expression

← →
stud © (2003-08-15 13:08) [1]

а поле shifr какого типа?

← →
Соловьев © (2003-08-15 13:17) [2]

> then edtNaim.Text:=QSklad.FieldValues["NAIM"]

а так?
then edtNaim.Text:=QSklad.FieldByName("NAIM").AsString;

← →
stud © (2003-08-15 13:21) [3]

а в каком месте выскакивает ошибка?

← →
M126 (2003-08-15 13:28) [4]

Поле SHIFR Char
пробовал и так //
все равно ту же ошибку дает

← →
M126 (2003-08-15 13:30) [5]

Поле SHIFR Char
пробовал и так
then edtNaim.Text:=QSklad.FieldByName("NAIM").AsString;
все равно ту же ошибку дает при нажатии кнопки

← →
stud © (2003-08-15 13:32) [6]

а так:
("WHERE SHIFR = """+ edtShifr.Text+"""");

← →
Соловьев © (2003-08-15 13:32) [7]

в каком месте ошибка?

← →
Zacho © (2003-08-15 13:33) [8]

QSklad.SQL.Add("WHERE SHIFR = "+AnsiQuotedStr(edtShifr.Text,"""");

← →
M126 (2003-08-15 13:53) [9]

теперь дает ошибку invalid variant operation

← →
stud © (2003-08-15 13:55) [10]

в каком именно месте??

← →
M126 (2003-08-15 14:00) [11]

QSklad.SQL.Add("WHERE SHIFR = """+ edtShifr.Text+"""");

← →
stud © (2003-08-15 14:07) [12]

QSklad.SQL.Add("WHERE SHIFR =""+ edtShifr.Text+""");

← →
Johnmen © (2003-08-15 14:10) [13]

>M126 (15.08.03 14:00) [11]

В приведенной строке кода ошибки нет...

← →
M126 (2003-08-15 14:14) [14]

Нашел
QSklad.SQL.Add("WHERE SHIFR = """+ edtShifr.Text+""""); это нормально
ошибка была в строке
then edtNaim.Text:=QSklad.FieldByName("NAIM").AsString;

← →
stud © (2003-08-15 14:17) [15]

then edtNaim.Text:=QSklad.FieldByName("NAIM");

> ошибка была в строке
> then edtNaim.Text:=QSklad.FieldByName("NAIM").AsString;

убери ;

> Johnmen
иногда подобное приведение типов нехорошо работает

>stud © (15.08.03 15:02) [18]

В твоей строчке нет никакого приведения типов. Более того, на ней будет ошибка компилятора. :)

если поле у него описано как текстовое, то зачем приведение типов?

так и я говорю, что у меня в строке приведение типов отсутствует.
если у него это поле добавлено в listfield и описано как tstringfield, зачем тут типы явно приводить?

Ошибка Query Найти похожие ветки