ok, ya le cambie, ahora para ejecutar el query como podria hacerle?, por que por ejemplo ise este codigo
Código Delphi
[-]
type
TBarra = class(TThread)
private
sesion:TOracleSession;
script:TOracleScript;
protected
procedure Execute; override;
public
end;
TForm1 = class(TForm)
Button1: TButton;
RichEdit1: TRichEdit;
ProgressBar1: TProgressBar;
OracleSession1: TOracleSession;
OracleLogon1: TOracleLogon;
Script1: TOracleScript;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
var
cont:integer; resultado:TStrings;
{$R *.dfm}
procedure TBarra.Execute;
begin
try
sesion.LogonUsername:='lg';
sesion.LogonPassword:='lg';
sesion.LogonDatabase:='bd.world';
sesion.Connected:=true;
script.Session:=sesion;
script.Lines.Add('select * from usuarios');
script.Execute;
resultado:=script.Output;
sleep(2000);
cont:=1;
except
on E : Exception do
begin
sleep(2000);
cont:=1;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
hilo:TBarra;
begin
hilo:=TBarra.Create(False);
cont:=0;
while cont<>1 do
begin
ProgressBar1.StepIt;
form1.update;
sleep(125);
end;
if not(resultado=nil) then
RichEdit1.Lines:=resultado
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
cont:=0;
end;
pero nisiquiera ejecuta el query se va directo al exception estoy haciendoalgo mal?