F�rum Aplica��o para rodar em duas bases ao mesmo tempo #405507

25/07/2011

Preciso fazer uma corre��o em uma base baseada em informa��es em outra base. O sistema roda um script nas duas bases, lista os erros e depois vem dando update na base errada, baseada na que est� certa. Tenho uma id�ia de como fazer, mas novas id�ias � sempre bem-vinda, obrigado.

Pjava

Curtir t�pico

+ 0

Responder

Posts

25/07/2011

Wilson Junior

Coloque dpois componentes de conex�o, e ligue eles a seus respectivos componentes.

Espero ter colaborado.

Responder

Gostei + 0

25/07/2011

Pjava

Valeu Wilson, mas n�o foi bem isso que eu estou querendo. � mais em como fazer, uma aplica��o que permita ao usu�rio, ele mesmo escrever os scripts que ir�o rodar, nada no c�digo. Eu coloquei um Dois memos, dois DBGrid, para o resultado. Gostaria que a query fosse lida do memo e executada e op��o para update geral e n�o geral. Esse n�o geral, deveria colocar nos DBGrids, um Checkbox(nunca fiz) para marcar qual campo ser� atualizado ou n�o, entende. S�o essas as d�vidas que eu tenho em como fazer. Acho que meu primeiro post n�o esclareceu bem, por isso posto esse para tentar melhorar minha d�vida.

Responder

Gostei + 0

25/07/2011

Wilson Junior

Veja se isto lhe ajuda em alguma coisa:

SQLQuery_1.SQL.Text := RetSQL( Memo_1.Lines.Text );
SQLQuery_1.ExecSQL;

SQLQuery_2.SQL.Text := RetSQL( Memo_2.Lines.Text );
SQLQuery_2.ExecSQL;

function RetSQL(SQLTexto: string): string;
var
  Posicao: integer;
begin
  Result := SQLTexto;
  Posicao := Pos( 'SELECT', UpperCase(Result) );
  { Adiciona o campo "Marc", para poder fazer o CheckBox }
  if  Posicao > 0 then
      Insert( ' CAST(0 AS SMALLINT) AS Marc, ', Result, Posicao )
  ;
end;

Agora de uma olhada neste link https://www.devmedia.com.br/forum/viewtopic.asp?id=371924

Espero ter colaborado.

Responder

Gostei + 0

25/07/2011

Wilson Junior

Veja se isto lhe ajuda em alguma coisa:

SQLQuery_1.SQL.Text := RetSQL( Memo_1.Lines.Text );
SQLQuery_1.ExecSQL;

SQLQuery_2.SQL.Text := RetSQL( Memo_2.Lines.Text );
SQLQuery_2.ExecSQL;

function RetSQL(SQLTexto: string): string;
var
  Posicao: integer;
begin
  Result := SQLTexto;
  Posicao := Pos( 'SELECT', UpperCase(Result) );
  { Adiciona o campo "Marc", para poder fazer o CheckBox }
  if  Posicao > 0 then
      Insert( ' CAST(0 AS SMALLINT) AS Marc, ', Result, Posicao )
  ;
end;

Agora de uma olhada neste link https://www.devmedia.com.br/forum/viewtopic.asp?id=371924

Espero ter colaborado.

Responder

Gostei + 0

09/05/2013

Jos�

Este t�pico esta sendo fechado por inatividade. Se necess�rio, sinalizar para que seja reaberto ou abrir um novo.

Responder

Gostei + 0