SENHA PARA RELATORIO DO BANCO DE DADOS

GNCNET 14/03/2011 18:01:04
#367961
Estou com problemas ao solicitar relatórios. Não há senha no banco de dados, mas o relatório agora passou a solicitar.

Private Sub cmd_extr_Click(Index As Integer)
On Error GoTo Trataerro

[ô]/-/ Configuração de Nível de Acesso - Início
If Frmmenu.Txt_nivel_usuario = 2 Or Frmmenu.Txt_nivel_usuario = 3 Then
MsgBox [Ô]acesso restrito![Ô]
Exit Sub
End If
[ô]/-/ Configuração de Nível de Acesso - Fim

Select Case Index
Case 0 [ô]imprimir
Dim criterio1 As String
Dim criterio2 As String
Dim anoi As Integer
Dim mesi As Integer
Dim diai As Integer
Dim anof As Integer
Dim mesf As Integer
Dim diaf As Integer
Dim Data1 As String
Dim Data2 As String
Dim dataok As String

[ô]cr1_extr.DataFiles(0) = caminho
cr1_extr.DataFiles(0) = caminho
criterio1 = [Ô][Ô]
criterio2 = [Ô][Ô]
[ô] If Maskini_extr <> [Ô] / / [Ô] And maskfim <> [Ô] / / [Ô] Then
anoi = Year(Maskini_extr)
mesi = Month(Maskini_extr)
diai = Day(Maskini_extr)
anof = Year(Maskfim)
mesf = Month(Maskfim)
diaf = Day(Maskfim)
[ô]End If
Data1 = diai & [Ô]/[Ô] & mesi & [Ô]/[Ô] & anoi
Data2 = diaf & [Ô]/[Ô] & mesf & [Ô]/[Ô] & anof

dataok = Data1 & [Ô] - [Ô] & Data2

criterio1 = [Ô]date([Ô] & anoi & [Ô],[Ô] & mesi & [Ô],[Ô] & diai & [Ô])[Ô]
criterio2 = [Ô]date([Ô] & anof & [Ô],[Ô] & mesf & [Ô],[Ô] & diaf & [Ô])[Ô]

If Option_extr(0).Value Then
cr1_extr.WindowState = 2
cr1_extr.WindowControlBox = True
If cmb_conta.ListIndex = -1 Then
cr1_extr.SelectionFormula = [Ô]{tblfincli.data}>=[Ô] & criterio1 & [Ô] AND [Ô] & [Ô]{tblfincli.data}<=[Ô] & criterio2
Else
cr1_extr.SelectionFormula = [Ô]{tblfincli.data}>=[Ô] & criterio1 & [Ô] AND [Ô] & [Ô]{tblfincli.data}<=[Ô] & criterio2 & [Ô] AND {tblfincli.conta}= [Ô] & Chr(34) & cmb_conta.Text & Chr(34)
End If
cr1_extr.ReportFileName = App.Path & [Ô]\Relator\saldo.rpt[Ô]
End If

If Option_extr(1).Value Then
cr1_extr.WindowState = 2
cr1_extr.WindowControlBox = True
cr1_extr.SelectionFormula = [Ô]{tblfincli.data}>=[Ô] & criterio1 & [Ô] AND [Ô] & [Ô]{tblfincli.data}<=[Ô] & criterio2 & [Ô] AND [Ô] & [Ô]{tblfincli.valor} < 0[Ô]
cr1_extr.ReportFileName = App.Path & [Ô]\Relator\pagrec.rpt[Ô]
cr1_extr.Formulas(0) = [Ô]cabecalho= [Ô] & Chr(34) & [Ô]CONTAS A PAGAR[Ô] & Chr(34)
cr1_extr.Formulas(1) = [Ô]periodo= [Ô] & Chr(34) & dataok & Chr(34)
End If

If Option_extr(2).Value Then
cr1_extr.WindowState = 2
cr1_extr.WindowControlBox = True
cr1_extr.SelectionFormula = [Ô]{tblfincli.data}>=[Ô] & criterio1 & [Ô] AND [Ô] & [Ô]{tblfincli.data}<=[Ô] & criterio2 & [Ô] AND [Ô] & [Ô]{tblfincli.valor} > 0[Ô]
cr1_extr.ReportFileName = App.Path & [Ô]\Relator\pagrec.rpt[Ô]
cr1_extr.Formulas(0) = [Ô]cabecalho= [Ô] & Chr(34) & [Ô] CONTAS A RECEBER [Ô] & Chr(34)
cr1_extr.Formulas(1) = [Ô]periodo= [Ô] & Chr(34) & dataok & Chr(34)
End If

If Option_extr(3).Value Then
cr1_extr.WindowState = 2
cr1_extr.WindowControlBox = True
If cmb_conta.ListIndex = -1 Then
cr1_extr.SelectionFormula = [Ô]{tblfincli.data}>=[Ô] & criterio1 & [Ô] AND [Ô] & [Ô]{tblfincli.data}<=[Ô] & criterio2
Else
cr1_extr.SelectionFormula = [Ô]{tblfincli.data}>=[Ô] & criterio1 & [Ô] AND [Ô] & [Ô]{tblfincli.data}<=[Ô] & criterio2 & [Ô] AND {tblfincli.conta}= [Ô] & Chr(34) & cmb_conta.Text & Chr(34)
End If
cr1_extr.ReportFileName = App.Path & [Ô]\Relator\pgrcdt.rpt[Ô]
End If


If option_extr_tela.Value Then
cr1_extr.Destination = 0
Else
cr1_extr.Destination = 1
End If
cr1_extr.Action = 1
cr1_extr.SelectionFormula = [Ô][Ô]
If Option_extr(1).Value Or Option_extr(2).Value Then
cr1_extr.Formulas(0) = [Ô][Ô]
cr1_extr.Formulas(1) = [Ô][Ô]
End If

Case 1 [ô]sair
Unload Me
End Select

Trataerro:
Call erro


End Sub
SOUZA 14/03/2011 22:05:51
#367979
bom pelo que vi vc esta usando o crystal report pra emitir os relatorios ! se esta senha nao e do report com certeza e do access vc ja verificou os dois e nao contam senha ?
FUTURA 15/03/2011 09:22:54
#367994
amigo, é só passar a senha do banco, veja>

cr1.Connect = [Ô];PWD=SUASENHA[Ô]
GNCNET 15/03/2011 20:58:25
#368081
Edson
Este problema só observei neste note que utilizo. Em outro PC, o relatório foi gerado normalmente.

Não há senha nem no Report nem no Acess.
GNCNET 17/03/2011 10:37:25
#368250
alguma ajuda?
MARCELO.TREZE 17/03/2011 11:12:29
#368252 Resposta escolhida
vc está dizendo que não ha senha no banco de dados, mas parece que esta senha é do banco
GNCNET 19/03/2011 14:10:08
#368562
MArcelo,
Não há senha.
GNCNET 20/03/2011 11:42:27
#368610
Alguma ajuda?
GNCNET 22/03/2011 11:42:32
#368767
nada?
GNCNET 01/04/2011 11:27:55
#370053
Pessoal,
Alguém poderia me ajudar neste caso?
agradecido,
Gardel
GNCNET 05/04/2011 12:05:57
#370470
Pessoal,
Alguém poderia me ajudar neste caso?
agradecido,
Gardel
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar