Mudar Alias do TDataBase em Run-Time

Delphi

11/03/2004

Olá pessoal,

Tenho um comboBox com os aliases (BDE) da máquina.
Tenho um Memo, uma Query, e um TDataBase.

Quero que quando digitar um SQL no Memo, o SQL seja executado na query que está ligada ao TDataBase. Até aí eu fiz.

Só que eu quero mudar o Alias do TDataBase em tempo de execução.
Ou seja, o SQL digitado deve ser executado no Alias que estiver indicado no ComboBox.

        qry.Close;
        DB.Connected   := False;
        Db.LoginPrompt := True;
        DB.AliasName   := cmbbxAlias.Text;
        DB.Connected   := True;
        qry.SQL        := memSQL.Lines;
        qry.Open;


Fiz o código acima, e não está funcionando.

Agradeça a ajudar antecipadamente. :lol:


Nglauber

Nglauber

Curtidas 0
POSTAR