DATA REPORTS
Olá Pessoal,
Como faço para criar um relatórios do [Ô]cadastro de contatos V2 em ADO[Ô]?
baixado recentemente no site do vbmania.
Estou querendo colocar uma combo onde escolho o nome do contato para imprimir.
Alguém pode me ajudar?
Grato,
Como faço para criar um relatórios do [Ô]cadastro de contatos V2 em ADO[Ô]?
baixado recentemente no site do vbmania.
Estou querendo colocar uma combo onde escolho o nome do contato para imprimir.
Alguém pode me ajudar?
Grato,
não sei se vai te ajudar mais eu busco dados pela combo assim
CrystalReport1.SelectionFormula = [Ô]{TABELA.CAMPO} = [ô][Ô] & Combo1.Text & [Ô][ô][Ô]Citação::
não sei se vai te ajudar mais eu busco dados pela combo assimCrystalReport1.SelectionFormula = [Ô]{TABELA.CAMPO} = [ô][Ô] & Combo1.Text & [Ô][ô][Ô]
Vou tentar com esse exemplo, qualquer dúvido lhe aviso...
Grato,
Alguém tem alguma luz para o meu exemplo?
(...) Não queria o exemplo pelo crystal, já que o mesmo não tenho.
Apenas o reports do vb 6.
Grato,
(...) Não queria o exemplo pelo crystal, já que o mesmo não tenho.
Apenas o reports do vb 6.
Grato,
Como você alimenta o Data Report?
Poste um trecho do código ou o projeto aqui no tópico.
Poste um trecho do código ou o projeto aqui no tópico.
Eu uso assim e funciona nolmal
Criterio = Chr$(39) & txtCombo1 & [Ô]%[Ô] & Chr(39)
SQL = [Ô]SELECT CodigoID, Saida, Descricao, Quat, Unitario, Soma FROM CadProduto WHERE CadProduto.Descricao Like [Ô] & Criterio & [Ô] ORDER BY Descricao[Ô]
Criterio = Chr$(39) & txtCombo1 & [Ô]%[Ô] & Chr(39)
SQL = [Ô]SELECT CodigoID, Saida, Descricao, Quat, Unitario, Soma FROM CadProduto WHERE CadProduto.Descricao Like [Ô] & Criterio & [Ô] ORDER BY Descricao[Ô]
Citação::
Como você alimenta o Data Report?
Poste um trecho do código ou o projeto aqui no tópico.
Tecla,
Private Sub CmdPrint_Click()
Dim SQL As String
Verifica_Conexao
Set Rst = New ADODB.Recordset
SQL = [Ô]SELECT * FROM TabClientes[Ô]
Rst.Open SQL, Cnn, adOpenKeyset, adLockOptimistic
[ô]Mostra o relatório
DataReport1.Show
DataReport1.SetFocus
[ô]no Form
[ô](LblCodi) (TxtNome)(TxtEnd) (TxtNum) (TxtBairro)
[ô]há outro textbox, mais não há necessidade de colocar no relatório.
[ô]Obs: O LblCodi, gera o código automático de acordo com o cadastro.
[ô]no db Access
[ô]CodiCli - NomeCli - EndCli - NumCli - BairCli - etc...
[ô]no DataReport1
[ô]LblCodi - TxtNome - TxtEnd - TxtNum - TxtBairro - etc...
End Sub
Resultado -> Invalid Data Source
Citação::
Eu uso assim e funciona nolmal
Criterio = Chr$(39) & txtCombo1 & [Ô]%[Ô] & Chr(39)
SQL = [Ô]SELECT CodigoID, Saida, Descricao, Quat, Unitario, Soma FROM CadProduto WHERE CadProduto.Descricao Like [Ô] & Criterio & [Ô] ORDER BY Descricao[Ô]
Nilton
Tem como vc me passar um exemplo...?
tenho um pronto vou postar
[ô] Esta Faltando...
Private Sub cmdImprimir_Click()
With DataRepot1
Set .DataSource = Nothing
.DataMember = [Ô][Ô]
Set .DataSource = RS.DataSource
With .Sections([Ô]Section1[Ô]).Controls
For i = 1 To .Count
If TypeOf .Item(i) Is RptTextBox Then
[ô]O datamember deverá sempre ser enquanto estiver criando relatorios dinamicos
.Item(i).DataMember = [Ô][Ô]
.Item(i).DataField = RS.Fields(i - 1).Name
End If
Next i
End With
.Show vbModal
End With
Unload DataRepot1
End Sub
Private Sub cmdImprimir_Click()
With DataRepot1
Set .DataSource = Nothing
.DataMember = [Ô][Ô]
Set .DataSource = RS.DataSource
With .Sections([Ô]Section1[Ô]).Controls
For i = 1 To .Count
If TypeOf .Item(i) Is RptTextBox Then
[ô]O datamember deverá sempre ser enquanto estiver criando relatorios dinamicos
.Item(i).DataMember = [Ô][Ô]
.Item(i).DataField = RS.Fields(i - 1).Name
End If
Next i
End With
.Show vbModal
End With
Unload DataRepot1
End Sub
Tópico encerrado , respostas não são mais permitidas