Как осуществить поиск по DB

← →
serfom © (2003-12-07 17:46) [0]

Как осуществить поиск по DB, чтобы были выведены в другую таблиц все найденные строки. Помогитe……….Please:-)

← →
Zacho © (2003-12-07 18:25) [1]

Почитай что-нибудь по работе с БД, пожалуйста ...
Я могу дать тебе ответ, но сильно подозреваю, что на самом деле тебе нужно другое. А вот буквальный ответ на твой вопрос:
INSERT ... INTO TABLE_2 SELECT ... FROM TABLE_1 WHERE ...

← →
Ega23 (2003-12-08 09:03) [2]

Или SELECT INTO

← →
serfom © (2003-12-08 22:06) [3]

Спасибо, но, мне кажется, что я лучший выход нашел.
procedure TForm2.Button1Click(Sender: TObject); var i, j, k: Integer; s,z,m: string; begin table2.FindFirst; listbox1.Clear; for j:=1 to table2.RecordCount-1 do begin m:=""; table2.FindNext; z:=table2.FieldValues["FIO"]; k:=length(edit1.Text); for i:=1 to k do m:=m+z[i]; if edit1.Text=m then begin for i:=0 to table2.FieldCount-1 do begin if i>0 then s:=s+", "; s:=s+table2.fields[i].asstring; end; listbox1.Items.add(s); s:=""; end; end; end;

> serfom © (08.12.03 22:06) [3]

м-да, а вопрос то был про что?
Тем не мене, лучше в этом улучшенном варианте вместо
for j:=1 to table2.RecordCount-1 do
использовать

Table.First;
while not table2.Eof do
begin
...
table.Next;
end;

Как осуществить поиск по DB Найти похожие ветки