Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.49 MB
Время: 0.017 c