Bom dia. Gostaria de uam ajuda, por favor. Estou fazendo a migração de um sistema delphi (4.0) Paradox para PostgreSQL, utilizado acesso via ODBC. O sistema tem várias módulos, que representam programas distintos. A cada vez que um módulo acessa o Postgres, o ODBC exibe a tela de usuário/login. Não consigo evitar essa tela, mesmo informando, previamente, o usuário/senha na configuração do ODBC na máquina local. Alguém sabe me informar como posso evitar essa tela?
Versão Completa: Tela de Login no ODBC
QUOTE
Tela de Login no ODBC, Como evitar a tela de login do odbc?
na propriedade LoginPrompt , selecione FALSE, para que a janela de Login/Senha não apareça cada vez que você conectar ao banco de dados.
abraço
QUOTE(Jhonas @ 06/04/2009 - 15:04) 
QUOTE
Tela de Login no ODBC, Como evitar a tela de login do odbc?
na propriedade LoginPrompt , selecione FALSE, para que a janela de Login/Senha não apareça cada vez que você conectar ao banco de dados.
abraço
Obrigada. Estou chegando lá, mas ainda tenho uma dúvida. Minhas conexões com o BD são definidas através de um ALIAS definida no BDE Administrator.Nesse caso, não tenho definição explícita para o BD(objeto TDatabase). Como poderia fazer isso em tempo de execução? Obrigada.
QUOTE
Minhas conexões com o BD são definidas através de um ALIAS definida no BDE Administrator.Nesse caso, não tenho definição explícita para o BD(objeto TDatabase). Como poderia fazer isso em tempo de execução?
Veja este post
OBS: Faça as alterações necessarias para o seu uso
http://scriptbrasil.com.br/forum/index.php...st&p=449686
ou então tente uma pesquisa no forum pela palavra ALIAS
abraço
Acho que você também pode usar os componentes ADODB, mais práticos de usar com o ODBC. Se você usa o psqlODBC funciona direitinho.
QUOTE(Jhonas @ 06/04/2009 - 16:27)
QUOTE
Minhas conexões com o BD são definidas através de um ALIAS definida no BDE Administrator.Nesse caso, não tenho definição explícita para o BD(objeto TDatabase). Como poderia fazer isso em tempo de execução?
Veja este post
OBS: Faça as alterações necessarias para o seu uso
http://scriptbrasil.com.br/forum/index.php...st&p=449686
ou então tente uma pesquisa no forum pela palavra ALIAS
abraço
QUOTE(Jhonas @ 06/04/2009 - 16:27)
QUOTE
Minhas conexões com o BD são definidas através de um ALIAS definida no BDE Administrator.Nesse caso, não tenho definição explícita para o BD(objeto TDatabase). Como poderia fazer isso em tempo de execução?
Veja este post
OBS: Faça as alterações necessarias para o seu uso
http://scriptbrasil.com.br/forum/index.php...st&p=449686
ou então tente uma pesquisa no forum pela palavra ALIAS
abraço
Oi Jhonas. Ainda não foi suficiente. O BD é Postgresql. Acho que precisso configurar a senha manualmente para ele não pedir o login. Não encontrei nenhuma documentacção do parâmetro associado a password. Pelo que estou entendendo, além de marcar loginprompt= false, devo ter que configuar a senha no ALIAS.
QUOTE
O BD é Postgresql. Acho que precisso configurar a senha manualmente para ele não pedir o login. Não encontrei nenhuma documentacção do parâmetro associado a password. Pelo que estou entendendo, além de marcar loginprompt= false, devo ter que configuar a senha no ALIAS.
Veja esta documentação a respeito o assunto:
http://pgfoundry.org/pipermail/brasil-usua...205/001350.html
http://www.scribd.com/doc/453107/tutorial-...indows-comandos
http://blogetilico.wordpress.com/2007/01/2...-no-postgresql/
http://pt.wikibooks.org/wiki/PostgreSQL_Pr...figurar_acessos
http://www.sqlmagazine.com.br/Artigos/Post...o_Slackware.asp
abraço
Para fazer a conexão com <<qualquer>> banco de dados, via ODBC, sem o "prompt"...
O Código a seguir está em um evento OnActivate de uma aplicação.
Ok?
O Código a seguir está em um evento OnActivate de uma aplicação.
CODE
If bAtivado then
Exit;
{EndIf}
bAtivado := True;
slTexto2S := TStringList.Create;
slQuerySave := TStringList.Create;
ShortDateFormat := 'dd/mm/yyyy';
DAMDataIniDatePic.Date := StrToDate('01'+copy(DateToStr(Date()), 3, 8));
With Database1 do Begin
Connected := False;
AliasName := 'feirante';
LoginPrompt := False;
Params.Values['user name'] := 'default';
Params.Values['password'] := 'h3sk33f98sf';
Connected := True;
End;{With Database1}
PagamentosQuery.Open;
FeirantesQuery.Open;
Exit;
{EndIf}
bAtivado := True;
slTexto2S := TStringList.Create;
slQuerySave := TStringList.Create;
ShortDateFormat := 'dd/mm/yyyy';
DAMDataIniDatePic.Date := StrToDate('01'+copy(DateToStr(Date()), 3, 8));
With Database1 do Begin
Connected := False;
AliasName := 'feirante';
LoginPrompt := False;
Params.Values['user name'] := 'default';
Params.Values['password'] := 'h3sk33f98sf';
Connected := True;
End;{With Database1}
PagamentosQuery.Open;
FeirantesQuery.Open;
Ok?
Esta é uma versão simplificada de nosso conteúdo principal. Para ver a versão completa com maiores informações, formatação e imagens, por favor clique aqui.