Consulta via SQL
Fiz uma consulta via SQL. Elas apareceram no DBGrid, agora eu quero gravar estas informacoes em uma outra tabela. Como devo proceder para realizar esta tarefa. Eu so quero os registros que foram selecionados
A.fracassi
Curtidas 0
Respostas
Motta
13/08/2003
The following example copies the selected rows in a db grid to a list box.
veja exemplo do delphi para ter uma ideia
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
s: string;
begin
if DBGrid1.SelectedRows.Count>0 then
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
for j := 0 to FieldCount-1 do
begin
if (j>0) then s:=s+´, ´;
s:=s+Fields[j].AsString;
end;
Listbox1.Items.Add(s);
s:= ´´;
end;
end;
veja exemplo do delphi para ter uma ideia
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
s: string;
begin
if DBGrid1.SelectedRows.Count>0 then
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
for j := 0 to FieldCount-1 do
begin
if (j>0) then s:=s+´, ´;
s:=s+Fields[j].AsString;
end;
Listbox1.Items.Add(s);
s:= ´´;
end;
end;
GOSTEI 0