поиск в базе данных Delphi 7

[phasha]

procedure TForm1.btn3Click(Sender: TObject);
var str:string; int:Integer;
begin

if rb1.Checked  then  int:=0 else
if rb2.Checked  then int:=1 else Exit;
str:=edit2.Text;

    tbl1.First;
while not Tbl1.EOF do begin
 if Tbl1.Fields[int].AsString = str then begin
 ShowMessage(tbl1.fieldbyname('NFIO').AsString+#13
 +tbl1.fieldbyname('NSTSTUS').AsString+': '
 +Tbl1.FieldByName('NPHONE').AsString);
if not chk1.Checked then Break;
end;
 Tbl1.Next;
 
end;
end;

как сделать так чтоб искала прога не точное значение?например в поиске вбивать не вася васечкин а вася или василий, препод сказал что нужно использовать setkey и nearest в таблице, эксперементирую и пока прогресса нет((

[Лубышев]

юзай TADOQuery
напиши SQL запрос. чтобы выдрать не конкретное значение а вхождение в SQL есть функция LIKE
пример:
допустим ты бросил TADOQuery на форму, настроил его, указал коннект через TADQConnection со своей СУБД, обозвал например query
и теперь формируешь запрос:

query.sql.clear;//чистим на всякий пожарный)))
query.sql.add('select * from [твоя таблица] where [поле] like "%трололо%"'); возможно с синтаксисом ошибся правда (кажется не процент а звездочка иль наоборот.... и кажется одинарная ковыка в лайке но хотя не помню точно
далее
query.active:=true;//выполнить запрос
for i:=0 to query.recordcount-1 do
begin
a:=query.fields.fields[0].asstring;
query.next;
end;

до очепяток не придерайтесь - писал на коленке. потестить не могу - но как то так

[phasha]

мы еще до запросов не до шли=))так что пока понятия об этом не имею,это примерно должно выглядеть так

table1.setkey;
table1.fieldbyname('name').asstring:='вася';
table1.gotonearst;

вот не могу понять как применить это(

[Лубышев]

кстати если тебе надо совсем уж такое что типа найти слова синонимы то надо в базе еще создать таблицу синонимии. если ты хочешь ввести в поле например "ИРЧП" а он тебе в ответ выдал "Индекс развития человеческого потенциала"

[Лубышев]

стучи в скайп мне иль в аську. сча сделаем побыстрому все что тебе надо)))) (бескорыстно)

[phasha]

а как тогда скрыть нежелательные столбцы? точнее не выводить в TDBGrid?

[Лубышев]

эм.... я вообще не люблю юзать TADOTable и все сеточки которые к ней коннектятся. все решается на уровне SQL запросов. как только ты научишься их юзать - ты поймешь всю их прелесть))))

[phasha]

Сообщение от Лубышев

стучи в скайп мне иль в аську. сча сделаем побыстрому все что тебе надо)))) (бескорыстно)

извеняюсь но ни чего из этого у меня нет

[Лубышев]

ладно жди. сча на коленке нарисую

[Лубышев]

Вот держи рабочий пример и ковыряй его