Текущий архив: 2003.09.04;
Скачать: CL | DM;
Вниз
Ошибка 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");
← →
Johnmen © (2003-08-15 14:36) [16]>stud © (15.08.03 14:17) [15]
Что это ???????????????????
← →
Соловьев © (2003-08-15 14:41) [17]
> ошибка была в строке
> then edtNaim.Text:=QSklad.FieldByName("NAIM").AsString;
убери ;
← →
stud © (2003-08-15 15:02) [18]> Johnmen
иногда подобное приведение типов нехорошо работает
← →
Johnmen © (2003-08-15 15:04) [19]>stud © (15.08.03 15:02) [18]
В твоей строчке нет никакого приведения типов. Более того, на ней будет ошибка компилятора. :)
← →
stud © (2003-08-15 15:07) [20]если поле у него описано как текстовое, то зачем приведение типов?
← →
Johnmen © (2003-08-15 15:13) [21]>stud © (15.08.03 15:07) [20]
Не понял... Где приведение ? Явное или нет...
← →
stud © (2003-08-15 15:19) [22]так и я говорю, что у меня в строке приведение типов отсутствует.
если у него это поле добавлено в listfield и описано как tstringfield, зачем тут типы явно приводить?
Страницы: 1 вся ветка
Текущий архив: 2003.09.04;
Скачать: CL | DM;
Память: 0.51 MB
Время: 0.014 c
