Главная страница
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.014 c
1-71708
AndyGee
2003-09-10 19:52
2003.09.22
Запуск внешнего приложения от имени другого пользователя


14-71877
Nik8.
2003-09-04 12:37
2003.09.22
Веб аддрес Журнала


3-71537
IGORYOK
2003-08-29 12:26
2003.09.22
Как переносить базы на другой компьютор на котором нет BDE


8-71765
tv
2003-05-23 13:25
2003.09.22
TCanvas


14-71892
McLoop
2003-08-18 02:15
2003.09.22
Необходимые программы