Tela de Login no ODBC

[Carmen Lucia]

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?

[Jhonas]

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

[Carmen Lucia]

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.

[Jhonas]

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

[Eder Moraes]

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.

[Carmen Lucia]

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

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.

[Jhonas]

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

[paulobergo]

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.

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;

Ok?