Sistema para manipular comandos SQL

Delphi

14/01/2008

Olá amigos, alguém ja penso em criar um sistema para manipular comandos sql ??

comecei a criar um mais até agora so consegui usar o select outros comanda da erro TConsulta: Cursor not returned from Query achei que ia ser um negocio simples de fazer mais .... ai ta o codigo

if Memo1.Lines[0] <> ´´ then
begin
TConsulta.Close;
Tabela.Close;
TConsulta.SQL.Clear;
TConsulta.SQL.Text:=Memo1.Lines.Text;
TConsulta.Open;
Tabela.Open;
end;

alguem tem ALGMA DICA ?


Picyka

Picyka

Curtidas 0

Respostas

Japa_h

Japa_h

14/01/2008

with qrAuxiliar do
begin
close;
sql.Clear;
Sql.Add(RichEdit1.Text);
ExecSQL;
if Temupdate <> ´update´ then
begin
Open;
end;

Em uma query ja existente, eu fiz assim.


GOSTEI 0
Picyka

Picyka

14/01/2008

with qrAuxiliar do begin close; sql.Clear; Sql.Add(RichEdit1.Text); ExecSQL; if Temupdate <> ´update´ then begin Open; end; Em uma query ja existente, eu fiz assim.


Mais achu ai vc informarica qualquer comando sql pra qualquer tabela por que assim que vai funcionar vc pode dar insert... update... e qualquer tabela do sistema..


GOSTEI 0
Micheus

Micheus

14/01/2008

comecei a criar um mais até agora so consegui usar o select outros comanda da erro TConsulta: Cursor not returned from Query achei que ia ser um negocio simples de fazer mais ....

Provavelmente pelo fato de que o método Open só deve ser utilizado com instruções SQL do tipo SELECT. Para as demais (INSERT, UPDATE...), vc deve utilizar o método ExecSQL.

Abraços


GOSTEI 0
Micheus

Micheus

14/01/2008

A propósito, estes componentes podem lhe interessar: [url=http://www.activequerybuilder.com/product_vcl.html]Active Query Builder VCL Edition[/url] (a versão VCL é free - veja na página de download)


GOSTEI 0
POSTAR