Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.22;
Скачать: CL | DM;

Вниз

Locate в ADO...   Найти похожие ветки 

 
grusty ©   (2003-08-31 15:20) [0]

Уважаемые, почему в данной процедуре Locate не находит запись и есть ли выход из положения?

procedure Forma.ButtonClick(Sender: TObject);
var
v: Currency;
begin
v:=10.10;
if ADODataSet.Locate("Val",v,[]) then ShowMessage("Запись найдена!");
end;

В базе ADODataSet поле Val – денежное.


 
777 ©   (2003-08-31 17:27) [1]

Может так?
var
v: string;
begin
v:="10,10р.";
if ADODataSet1.Locate("VAL",v,[]) then ShowMessage("Запись найдена!");
end;


 
grusty   (2003-08-31 17:56) [2]

Так будет работать, но мне нужно, чтобы переменная v была не символьная, а числовая. Если сделать FloatToStr(v) или CurrToStr(v), то тоже не работает.


 
777 ©   (2003-08-31 18:05) [3]

Не вижу проблемы :)

procedure Forma.ButtonClick(Sender: TObject);
var
v: Currency;
begin
v:=10.10;
if ADODataSet.Locate("Val",Format("%m",[v]),[]) then ShowMessage("Запись найдена!");
end;


 
sniknik ©   (2003-08-31 18:55) [4]

решение 1
пуск->настройка->панель управления->язык и стандарты|->числа->разделитель целой и дробной части числа - поставь точку - "."
наслаждайся поиском (правильным).
решение 2
передавай в locate строкой (только с разделителем - точка)


 
grusty ©   (2003-08-31 19:02) [5]

Так не работает.
Вот если
v:=10.00; (в таблице есть записи с 10.10 и 10.00)
то все нормально и первый вариант работает.


 
sniknik ©   (2003-08-31 19:05) [6]

grusty © (31.08.03 19:02) [5]
в 10.00 на самом деле точки нет = 10


 
grusty ©   (2003-08-31 19:06) [7]

-->sniknik

Где Вы были раньше... Я 2-й день мучаюсь... Спасибо!



Страницы: 1 вся ветка

Текущий архив: 2003.09.22;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.032 c
7-71979
Игорь_1984
2003-07-09 11:41
2003.09.22
Как убить процесс, зная его имя?


1-71658
Yakut
2003-09-08 20:58
2003.09.22
Memo


3-71561
AlexWeb
2003-08-29 10:57
2003.09.22
Можно ли подключить базу IB при помощи ADO?


1-71597
Cherny Ivan
2003-09-04 21:55
2003.09.22
BP7: Window(X,Y,W,H)


14-71933
Universe
2003-09-02 17:48
2003.09.22
Предлагаю каждую фишку написанную вносить сюда может так проще