| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Ошибка Query [D6, dBase, FoxPro]
M126 © (2003-08-15 13:04:00)
Здравстуйте, Мастера. Подскажите пожалуйста где ошибка тескт след-ий
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 15:19:00) [1]
так и я говорю, что у меня в строке приведение типов отсутствует.
если у него это поле добавлено в listfield и описано как tstringfield, зачем тут типы явно приводить?
Johnmen (2003-08-15 15:13:00) [2]
>stud © (15.08.03 15:07) [20]
Не понял... Где приведение ? Явное или нет...
stud (2003-08-15 15:07:00) [3]
если поле у него описано как текстовое, то зачем приведение типов?
Johnmen (2003-08-15 15:04:00) [4]
>stud © (15.08.03 15:02) [18]
В твоей строчке нет никакого приведения типов. Более того, на ней будет ошибка компилятора. :)
stud (2003-08-15 15:02:00) [5]
> Johnmen
иногда подобное приведение типов нехорошо работает
Соловьев (2003-08-15 14:41:00) [6]
> ошибка была в строке
> then edtNaim.Text:=QSklad.FieldByName("NAIM").AsString;
убери ;
Johnmen (2003-08-15 14:36:00) [7]
>stud © (15.08.03 14:17) [15]
Что это ???????????????????
stud (2003-08-15 14:17:00) [8]
then edtNaim.Text:=QSklad.FieldByName("NAIM");
M126 (2003-08-15 14:14:00) [9]
Нашел
QSklad.SQL.Add("WHERE SHIFR = """+ edtShifr.Text+""""); это нормально
ошибка была в строке
then edtNaim.Text:=QSklad.FieldByName("NAIM").AsString;
Johnmen (2003-08-15 14:10:00) [10]
>M126 (15.08.03 14:00) [11]
В приведенной строке кода ошибки нет...
stud (2003-08-15 14:07:00) [11]
QSklad.SQL.Add("WHERE SHIFR =""+ edtShifr.Text+""");
M126 (2003-08-15 14:00:00) [12]
QSklad.SQL.Add("WHERE SHIFR = """+ edtShifr.Text+"""");
stud (2003-08-15 13:55:00) [13]
в каком именно месте??
M126 (2003-08-15 13:53:00) [14]
теперь дает ошибку invalid variant operation
Zacho (2003-08-15 13:33:00) [15]
QSklad.SQL.Add("WHERE SHIFR = "+AnsiQuotedStr(edtShifr.Text,"""");
Соловьев (2003-08-15 13:32:00) [16]
в каком месте ошибка?
stud (2003-08-15 13:32:00) [17]
а так:
("WHERE SHIFR = """+ edtShifr.Text+"""");
M126 (2003-08-15 13:30:00) [18]
Поле SHIFR Char
пробовал и так
then edtNaim.Text:=QSklad.FieldByName("NAIM").AsString;
все равно ту же ошибку дает при нажатии кнопки
M126 (2003-08-15 13:28:00) [19]
Поле SHIFR Char
пробовал и так //
все равно ту же ошибку дает
stud (2003-08-15 13:21:00) [20]
а в каком месте выскакивает ошибка?
| |
Страницы: 