PEDINDO SENHA AO CHAMAR RELATORIO
tenho um projeto em VB5 que usa Banco de Dados Access. Coloquei Senha no Banco de Dados. Criei um relatorio no Crystal, e agora, qdo chamo o relatorio pelo programa, aparece uma caixa pedindo a senha (do Access) em vez de entrar direto no relatorio. O que acontece? Como retirar essa caixa?
se você estiver usando conexão ADO, na string de conexão defina o usuário e senha do banco
Estou usando DAO...
Normalmente isso acontece quando se protege o banco de dados (Access), e depois se usa um relatório feito no próprio bd protegido...
Se vc diz que foi feito no CRYSTAL, verifique a string de conexão, (DAO), e veja se está informando a senha do BD corretamente...
Até mais!
Se não der certo, seria bom você colocar o código onde vc chama o relatório...
Um forte Abraço...
Se vc diz que foi feito no CRYSTAL, verifique a string de conexão, (DAO), e veja se está informando a senha do BD corretamente...
Até mais!
Se não der certo, seria bom você colocar o código onde vc chama o relatório...
Um forte Abraço...
Ricardo, se você utiliza a OCX do crystal para chamar o relatório, tente incluir o seguinte código antes do Action
CrystalReport1.Password = "suasenha"
E se tiver usando a segurança por usuário do Access, utilize também
CrystalReport1.UserName = "seuusuario"
CrystalReport1.Password = "suasenha"
E se tiver usando a segurança por usuário do Access, utilize também
CrystalReport1.UserName = "seuusuario"
Não deu certo. O trecho de programa que uso para chamar o relatório :
report1.Destination = 0
arq$ = App.Path & "\Produção dos Profissionais.rpt"
wPeriodo = mskData.FormattedText + " a " + mskData2.FormattedText
report1.Formulas(0) = "periodo='" + wPeriodo + "'"
fmlCondicao$ = "{Fichas.Data} >= date(" + Str(Year(w_data)) + "," + Str(Month(w_data)) + "," + Str(Day(w_data)) + ") and {Fichas.Data} <= date(" + Str(Year(w_data2)) + "," + Str(Month(w_data2)) + "," + Str(Day(w_data2)) + ")"
report1.SelectionFormula = fmlCondicao$
report1.ReportFileName = arq$
report1.Action = 1
* report1.password, não tem efeito. até mesmo porque seria para uma senha do próprio relatório (Crystal) e não do BD do access.
Mais alguma idéia??
agradeço desde já a colaboração.
report1.Destination = 0
arq$ = App.Path & "\Produção dos Profissionais.rpt"
wPeriodo = mskData.FormattedText + " a " + mskData2.FormattedText
report1.Formulas(0) = "periodo='" + wPeriodo + "'"
fmlCondicao$ = "{Fichas.Data} >= date(" + Str(Year(w_data)) + "," + Str(Month(w_data)) + "," + Str(Day(w_data)) + ") and {Fichas.Data} <= date(" + Str(Year(w_data2)) + "," + Str(Month(w_data2)) + "," + Str(Day(w_data2)) + ")"
report1.SelectionFormula = fmlCondicao$
report1.ReportFileName = arq$
report1.Action = 1
* report1.password, não tem efeito. até mesmo porque seria para uma senha do próprio relatório (Crystal) e não do BD do access.
Mais alguma idéia??
agradeço desde já a colaboração.
poderia ser isto:
http://www.macoratti.net/crys_seg.htm
http://www.macoratti.net/crys_seg.htm
Tópico encerrado , respostas não são mais permitidas