Problemas com o Data Report

[AndersonDutra 4]

Queria tirar uma dúvida. Tem como fazer o Data Report achar o caminho do Banco?Tipo um App.Path para ele achar o banco

[luiz humberto 0]

Tem sim, faça da seguinte forma:

 

Dim Conexao As New ConnectionDim Rst     As New RecordsetConexao.Open StringdeConexaoSet Rst = db.Execute("SELECT * FROM TABELA")DataReport.DataSource = Rst

[AndersonDutra 4]

O que seria esse StringdeConexao e onde eu coloco esse código. Pois o Data Report não tem nehum tipo de Form load onde eu possa colocar para carregar.

[luiz humberto 0]

Seria isso:

 

"DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "\BD.mdb", , "Senha"

Então ficaria assim:

Dim Conexao As New ConnectionDim Rst     As New RecordsetConexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "\BD.mdb", , "Senha"Set Rst = db.Execute("SELECT * FROM TABELA")DataReport.DataSource = Rst

[AndersonDutra 4]

Está dando o seguinte erro:

Invalid Outside procedure

Na parte do código:

"DRIVER={Microsoft Access Driver (*.mdb)};dbq="

[AndersonDutra 4]

Já consertei!!!!

[AndersonDutra 4]

Em um modulo tenho a seguinte conexão:

Public Function conecta()Set BD = New ADODB.Connection  With BD    .Provider = "Microsoft.Jet.OLEDB.4.0"    .Mode = adModeReadWrite   ' Permite Ler/Escrever.    .ConnectionString = "data source=" & App.Path & "\Banco.mdb"    .Open End With End Function

Abre recordset

Public Function recordset_open()Set Grupo = New ADODB.RecordsetGrupo.Open "Grupo", BD, adOpenKeyset, adLockOptimisticSet Marcas = New ADODB.RecordsetMarcas.Open "Marcas", BD, adOpenKeyset, adLockOptimisticSet Pagamentos = New ADODB.RecordsetPagamentos.Open "Pagamentos", BD, adOpenKeyset, adLockOptimisticSet contas = New ADODB.Recordsetcontas.Open "Contas_pagar", BD, adOpenKeyset, adLockOptimisticSet Produtos = New ADODB.RecordsetProdutos.Open "Produtos", BD, adOpenKeyset, adLockOptimisticSet Vendas = New ADODB.RecordsetVendas.Open "Vendas", BD, adOpenKeyset, adLockOptimisticSet Tipo = New ADODB.RecordsetTipo.Open "Tipo", BD, adOpenKeyset, adLockOptimisticSet Estoque = New ADODB.RecordsetEstoque.Open "Estoque", BD, adOpenKeyset, adLockOptimisticEnd Function

O relatório seria para o recodset Estoque

Muda alguma coisa, ou aquele código que você me passou serve assim mesmo??

[luiz humberto 0]

Não muda nada, e só passar o seu RecordSet para o DataReport.

 

DataReport.DataSource = Estoque

[AndersonDutra 4]

Estou indo embora agora, amanhã eu testo o código.

[AndersonDutra 4]

Está dando erro no DataSource:Method or Data member not found

[luiz humberto 0]

Tem certeza que está utilizando é o DataReport pode ser que, seu formulário esteja com o mesmo nome do DataReport, ou algo parecido.Qualquer coisa me avise que lhe envio um exemplo.

[AndersonDutra 4]

você poderia me mandar um exemplo?????

[luiz humberto 0]

Segue o Link do exemplo.

 

Exemplo Data Report

[AndersonDutra 4]

valeu pelo exemplo, vou fazer aqui com o meu programa!!!!!

[AndersonDutra 4]

Brigadão pela ajuda e pela paciência, Valeu mesmo deu certinho!!!!!

 

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif