Criar Acesso a Tabelas Via BDE passando senha como parametro
12/08/2003
0
Caros amigos.
Estou criando o codigo de um conversor BDE->INTERBASE e preciso da ajuda de vocês.
O Aplicativo é muito simples , e destina-se a uma prova curricular.
Ele deve listar o conteúdo de Tables do BDE e incluir as tabelas num checkListBox.
Os Seguintes códigos fazem este trabalho perfeitamente :
procedure TFrmPrincipal.FormCreate(Sender: TObject);
begin
Session.GetDatabaseNames(CBDatabase.Items);
end;
procedure TFrmPrincipal.CBDatabaseChange(Sender: TObject);
begin
Session.GetTableNames( CBDatabase.Items[CBDatabase.ItemIndex], ´´,
True, False, LBTable.Items);
LBTable.Sorted := True;
BtnExport.Enabled := LBTable.Items.Count > 0;
end;
Acontece que quando uma tabela é Interbase ou Paradox preciso de uma
chamada ao Login de forma dinâmica pois não tenho componente direto
acessando o diretorio ou Gdb .
Alguem sabe como chamar o prompt de Login dinamicamente ?
Session.GetPassword não funciona !
Temos outra solução ?
Estou criando o codigo de um conversor BDE->INTERBASE e preciso da ajuda de vocês.
O Aplicativo é muito simples , e destina-se a uma prova curricular.
Ele deve listar o conteúdo de Tables do BDE e incluir as tabelas num checkListBox.
Os Seguintes códigos fazem este trabalho perfeitamente :
procedure TFrmPrincipal.FormCreate(Sender: TObject);
begin
Session.GetDatabaseNames(CBDatabase.Items);
end;
procedure TFrmPrincipal.CBDatabaseChange(Sender: TObject);
begin
Session.GetTableNames( CBDatabase.Items[CBDatabase.ItemIndex], ´´,
True, False, LBTable.Items);
LBTable.Sorted := True;
BtnExport.Enabled := LBTable.Items.Count > 0;
end;
Acontece que quando uma tabela é Interbase ou Paradox preciso de uma
chamada ao Login de forma dinâmica pois não tenho componente direto
acessando o diretorio ou Gdb .
Alguem sabe como chamar o prompt de Login dinamicamente ?
Session.GetPassword não funciona !
Temos outra solução ?
Smartsistemas
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)