Buscar

Executar comando

Código

//* Procedure pra executar um commando sql...
procedure TRelChequePendeciaVencimento.ExecQ(iSql:Text);
Var Query : TZIbSqlQuery//* aqui vc estancia o componente que vc usa para conectar com o banco.. no cazo uso o zeus...
Begin
             //* novamente uzado a classe do zeus
    query := TZIbSqlQuery.Create(query);
    //**coloca o DataBase no meu cazo FRdm.Database;
    Query.Database := FrDm.Database ;
    Query.Close;
    Query.Sql.Text := iSql;
    Query.ExecSql;
    //
    query.Free;
End;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Banco de dados
Adicionada dia: 25/04/07
Por: Thiago
Visualizada: 2953 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009