Поиск в БД! Помогите!

← →
Jazzz (2006-02-05 13:30) [0]

У меня Delphi 2005. Есть ms access таблица. В ней есть несколько полей (FIO:string,NPV:integer,NlS:integer и т.д.).
Вобщем всё подключено и работает. Нужно сделать чтобы в Edit1 пользователь вводил ФИО, и по мере того как он его вводит курсор перемещается к наиболее соответствующему ФИО. Под Д6 у меня был компонент, которій это делал (AlVas). Как это сделать без него?

ADOTable1.IndexFieldNames:="FIO";
if not ADOTable1.Locate("FIO",Edit1.Text,[loPartialKey])
then ShowMessage("Не найдено записей"); - не работает

var str:&string;
str:="select * from spum where fio="+"""+Edit1.Text+"*"+""";
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(str);
ADOQuery1.Active:=True;

такое тоже не работает.

Может кто нибуть знает???
ПОМОГИТЕ!!!! Плиззззз!!!!!! Срочно нужно!!!!

← →
sniknik © (2006-02-05 15:05) [1]

* на % поменяй

← →
atruhin © (2006-02-05 16:07) [2]

>>* на % поменяй
Эт что значит? Что это даст?
По вопросу: смотри оператор like, воспользуйся параметрами в запросе или функцией Quote.

← →
Asail (2006-02-05 20:01) [3]

Если ADOTable1.IndexFieldNames:="FIO" то
В обработчике OnChange для Edit1 делай:
var S : String;
begin
S:=Trim(Edit1.Text);
if S="" then Exit;
ADOTable1.SetKey:=S;
ADOTable1.GotoNearest;
end;

← →
Asail (2006-02-05 20:17) [4]

Пардон, чушь написал!!!

Вместо ADOTable1.SetKey:=S; надо:

ADOTable1.SetKey;
ADOTable1.FieldByName("FIO").AsString:=S;

Сорри...

← →
nstur (2006-02-06 11:01) [5]

В методе Edit1 Change добавить
var
v: variant;
begin
v:= Edit1.Text;
dbgMain.DataSource.DataSet.Locate("FIO",v,[loPartialKey]);

Бывает необходимо заранее определить тип передаваемой переменной, а у Locate это variant.

>atruhin © (05.02.06 16:07) [2]
>>* на % поменяй
>Эт что значит? Что это даст?

Это даст то, что движок "поймет" запрос также, как его понимает акцес.

>По вопросу: смотри оператор like, воспользуйся параметрами в запросе или функцией Quote.

Каким боком Like поможет там, где не помог PartialKey ?

>sail (05.02.06 20:17) [4]
>ардон, чушь написал!!!

И тут же написал еще одну ;)

>stur (06.02.06 11:01) [5]

Масло масляное ?

← →
Asail (2006-02-06 18:33) [7]

> msguns © (06.02.06 11:12) [6]

> И тут же написал еще одну ;)

Какую? У меня так прекрасно работает, правда на BDE!!!

Поиск в БД! Помогите! Найти похожие ветки