[Resolvido] Relátorios

[miutinhu 0]

Bom dia gente, tudo bem com vocês?!

eu desenvolvi uma aplicação simples, pra loja da mãe da minha namorada;

Mas não consigo fazer os relátorios!

O DATA REPORT está no meu VB 6.0

mas não consigo fazer a conexão com o banco de dados por que falta Data Environment, jáprocurei, reinstalei, e não acho...

ai tentei baixar o Crystal, mas não acho nenhum lugar;

Fiz o relátorio em PHP pra uma gambiarra basica até eu resolver isso...

Agora estou tentando gerar uma list box, com os dados, também simulando um relátorio!

 

 

Vocês sabem onde eu posso baixar uma ferramenta pra fazer relátorios, tipo o crystal report, ou esse DATA ENVIRONMENT?! ou se existe um jeito alternativo de que faça esse relátorio ?! outras ferramentas, precisa ser free, pois como disso,o projeto é de pequeno porte (minusculo):(

[Claudio Neto 3]

O DataEnviromente vem junto com o VB6.

 

O que está acontecendo que você não está conseguindo usar? Está dando algum erro?

[Rogério Orlando 0]

Miutinhu!

Para usar o data report é muito simples.

Vou tentar dar-lhe um passo a passo:

 

> Adicione um Data report em seu projeto (click em add);

> Desenhe o form como quiser;

> Na section 1 conste arraste um um rpt textbox da caixa de ferramentas(conste apenas um para ver)

> Nas propriedades no Datafild conste o nome do campo de seu registro.

> Dê um nome para o form (por exemplo Rel1)

 

> volte em seu projeto e crie um botão de impressão:

> click nele e conste os comandos para pesquisar no banco, de acordo com seus dados:

 

 

'strSql = minha string de conexão

' campo = nome do campo que incluiu no relatório

' tabela = nome da tabela onde está o campo

' AFImp = nome do banco

' rsMysql = retorno da pesquisa no banco

 

On Error Resume Next

strSql = "select campo from tabela where campo = "valor"

 

 

'chama para impressão todos os campos

Call abrirBD1("bancodedados", strSql)

 

Set AFImp.DataSource = rsMySQL

AFImp.Show 1

 

 

'~x~x~x~x~x~x~x~x

 

Boa sorte.

[miutinhu 0]

Claudio Neto - eu não o acho, já fui em PROJECT > ADD ACTIVEX DESIGNERs, mas simplesmente não acho.

 

 

rorlando - Gostaria de agradecer, de verdade, deu certo, eu fui burro, não sabia que podia fazer a conexão a mão, e em todos lugares que li, fala para adicionar aquele ferramenta; Muito obrigado mesmo! deu certo e funcionando!

 

O código ficou assim;

 

Private Sub Command2_Click()
Dim cn As ADODB.Connection
Dim rdcli As ADODB.Recordset

    Set cn = New ADODB.Connection
    Set rdcli = New ADODB.Recordset

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db_luv.mdb"
    rdcli.Open "SELECT * FROM tbl_nf", cn, adOpenDynamic, adLockBatchOptimistic

On Error Resume Next
Set DataReport1.DataSource = rdcli
DataReport1.Show
End Sub