Select em campo Edit ou Carregar SQL.
Ola galera,
Estou com algumas duvidas aki, fiz um sisteminha em delphi com oracle utilizando:
1 data module
1 SQLConnection
1 SQLQuery
1 DataSetProvider
1 ClientDataSet
1 DataSource
1 DBGrid
Os dados estão sendo exibidos no dbgrid corretamente, mas agora surgiu uma dúvida, alias duas.
Como que faço caso o usuário queira inserir em um edit, apenas o caminho do arquivo SQL e o resultado do select, seje exibido no dbgrid
e a segunda duvida é a seguinte, o usuário poderia digitar no próprio edit a select e ela fazer a consulta no banco trazendo o resultado no dbgrid??
vlw galera!!
Estou com algumas duvidas aki, fiz um sisteminha em delphi com oracle utilizando:
1 data module
1 SQLConnection
1 SQLQuery
1 DataSetProvider
1 ClientDataSet
1 DataSource
1 DBGrid
Os dados estão sendo exibidos no dbgrid corretamente, mas agora surgiu uma dúvida, alias duas.
Como que faço caso o usuário queira inserir em um edit, apenas o caminho do arquivo SQL e o resultado do select, seje exibido no dbgrid
e a segunda duvida é a seguinte, o usuário poderia digitar no próprio edit a select e ela fazer a consulta no banco trazendo o resultado no dbgrid??
vlw galera!!
Shion86
Curtidas 0
Respostas
Shion86
12/08/2008
Oi galera,
fiz algo assim:
DataModule1.SQLQuery1.SQL.LoadFromFile(´c:\fernando.sql´);
DataModule1.SQLQuery1.ExecSQL;
Gauge1.MaxValue:= DBGrid1.DataSource.DataSet.RecordCount;
if not DataModule1.SQLQuery1.Eof then
repeat
Gauge1.Progress := Gauge1.Progress + 1;
if Gauge1.Progress = Gauge1.MaxValue then
begin
ShowMessage(´Processo Encerrado´);
end;
DataModule1.SQLQuery1.Next;
until DataModule1.SQLQuery1.Eof;
mas quando executo da um erro de ClientDataSet1: Cannot perform this operation on a closed dataset
fiz algo assim:
DataModule1.SQLQuery1.SQL.LoadFromFile(´c:\fernando.sql´);
DataModule1.SQLQuery1.ExecSQL;
Gauge1.MaxValue:= DBGrid1.DataSource.DataSet.RecordCount;
if not DataModule1.SQLQuery1.Eof then
repeat
Gauge1.Progress := Gauge1.Progress + 1;
if Gauge1.Progress = Gauge1.MaxValue then
begin
ShowMessage(´Processo Encerrado´);
end;
DataModule1.SQLQuery1.Next;
until DataModule1.SQLQuery1.Eof;
mas quando executo da um erro de ClientDataSet1: Cannot perform this operation on a closed dataset
GOSTEI 0