F�rum SQL #378033

21/05/2010

Utilizo um TSQLQUERY do DBEXPRESS, veja bem a minha d�vida: tenho o seguinte SQL: DM1.QQuery.Close; DM1.QQuery.SQL.Clear; DM1.QQuery.SQL.Add('UPDATE CLIENTE SET '+ 'RAZAOSOCIALCLIENTE =:P02, '+ 'TIPOPESSOACLIENTE =:P03, '+ 'EMAILCLIENTE =:P04 '+ 'WHERE CODIGOCLIENTE =:P01'); DM1.QQuery.ParamByName('P01').AsInteger := 1; DM1.QQuery.ParamByName('P02').AsString := 'Helio'; DM1.QQuery.ParamByName('P03').AsString := 'J' DM1.QQuery.ParamByName('P04').AsString := 'heliomsi@gmail.com'; a pergunta besta, que n�o estou conseguindo, � a seguinte: Tem com obter de DM1.QQuery o SQL todo montado da seguinte forma tipo: var sTexto: String; begin sTexto := DM1.QQuery.Text; //sTexto= { 'UPDATE CLIENTE SET '+ 'RAZAOSOCIALCLIENTE = 'Helio', '+ 'TIPOPESSOACLIENTE = 'J' , '+ 'EMAILCLIENTE = 'heliomsi@gmail.com' '+ 'WHERE CODIGOCLIENTE = 1 ' } end;

H�lio Marques

Curtir t�pico

+ 0

Responder

Posts

21/05/2010

Wesley Yamazack

Ol� amigo,
Veja bem a propriedade SQL � do tipo TWideStrings, esta por sua vez � uma classe que armazena o conte�do adicionado na sua query, ou seja ele vai exibir os parametros e n�o o conte�do. J� tentou n�o usar parametros? Passar direito o conte�do. veja abaixo :

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
P1, P2, P3 : String;
begin
with SQLQuery1 do
begin
    Close;
    P1 := '1';
    P2 := '1';
    P3 := 'CURSOX01';
    SQL.Add(' UPDATE CURSO SET    '+
            ' IDUNIDADE = ' + P2 + ' ,   '+
            ' DESCRICAO = ' + QuotedStr(P3) +
            ' WHERE IDCURSO = '+ P1 );
    ExecSQL;
end;

end;

Desta forma voc� poderia pegar, extamente o Script da seguinte forma

ShowMessage(SQLQuery1.SQL.Text);

Espero que isso lhe ajude,

Um abra�o

Wesley Y

Responder

Gostei + 0

21/05/2010

H�lio Marques

Wesley, este � o detalhe, n�o gostaria de refazer as QUERYS da forma como voc� explicitou . Gostaria aproveitar como est�o e pegar o conte�do com seus par�metros e enviar para o servidor pra ser executado. Como voc� fez resolve, mas n�o atende o que desejo, que � exatamente pegar o que j� est� feito, isso: DM1.QQuery.SQL.Add('UPDATE CLIENTE SET RAZAOSOCIALCLIENTE =:P02, TIPOPESSOACLIENTE =:P03, EMAILCLIENTE =:P04 WHERE CODIGOCLIENTE =:P01'); DM1.QQuery.ParamByName('P01').AsInteger := 1; DM1.QQuery.ParamByName('P02').AsString := 'Helio'; DM1.QQuery.ParamByName('P03').AsString := 'J'; DM1.QQuery.ParamByName('P04').AsString := 'heliomsi@gmail.com'; e capturar em uma vari�vel: sTexto= 'UPDATE CLIENTE SET '+ 'RAZAOSOCIALCLIENTE = 'Helio', '+ 'TIPOPESSOACLIENTE = 'J' , '+ 'EMAILCLIENTE = 'heliomsi@gmail.com' '+ 'WHERE CODIGOCLIENTE = 1 ';

Responder

Gostei + 0

21/05/2010

Wesley Yamazack

Ol� amigo,
Desta forma ainda n�o consegui fazer funcionar, seria bem interessante realmente, pegar e substituir o parametro pelo conte�do, a �nica forma que vejo ate o momento, seria voc� dar um StringReplace e substituir o parametro pelo seu valor. ok ? Varria a WideString mas n�o encontrei um mecanismo para tal feito, tentei at� com o SQLMonitor, por�m ele gera os parametros como " ? ", pior do que utilizar o StringReplace, ent�o melhor op��o seria voc� fazer uma rotina para substituir com o StringReplace.

Um abra�o

Wesley Y

Responder

Gostei + 0

21/05/2010

H�lio Marques

OK, vou analisar esta solu��o, j� que n�o tem com captar o conte�do do SQL. Ver o impacto aqui na produ��o. Agrade�o.

Responder

Gostei + 0

21/05/2010

Wesley Yamazack

OK amigo,

At� a pr�xima.

Um abra�o

Wesley Y

Responder

Gostei + 0

21/05/2010

H�lio Marques

Sim, um abra�o ; Pode fechar.

Responder

Gostei + 0

21/05/2010

Wesley Yamazack

Ok amigo,

Um abra�o

Wesley Y

Responder

Gostei + 0