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

Вниз

Как осуществить поиск по 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;


 
Silver Alex ©   (2003-12-08 23:23) [4]


> 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;


 
VAleksey ©   (2003-12-09 09:50) [5]


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

Это не работает.



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

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

Наверх




Память: 0.47 MB
Время: 0.036 c
1-11933
-=DeMoH=-
2003-12-19 23:18
2004.01.05
Delphi VS MathCAD


4-12218
Zhirnov Maxim
2003-11-05 11:32
2004.01.05
Поиск по реестру, желательно средствами WinAPI


3-11814
sashcan
2003-11-25 21:23
2004.01.05
Поле таблицы в массив


3-11790
Dimaz-z
2003-12-08 21:57
2004.01.05
Проблема с кодировкой в ClientDataSet.


14-12087
OlegGashev
2003-12-15 02:32
2004.01.05
МОЙ ПРОШЕДШИЙ ГОД