RELATORIO CRYSTAL REPORT ERRO
Ola a todos, estou iniciando na area de programação, e estou desenvolvendo um programinha aqui na empresa que trabalho.
O sisteminha consinte em cadastrar uma previsao de serviço e imprimir esta previsao.
Ai é que esta o problema, nao consigo impirir.
Vi em alguns topicos aqui e no site do macorrati que me deu uma luz, criei um dataset fiz tudo direitinho, pensava eu, mas na hora de execultar deu um erro. [Ô] tipo de dados incompativel na expressaao de criterio[Ô]
Abaixo segue o codigo
Public Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim conn As String = My.Settings.SIGIURB_2009ConnectionString.ToString()
Dim da As New OleDbDataAdapter([Ô]select *from previsao_os where numero_os=[Ô] + txtos.Text, conn)
Dim ds As New _SIGIURB_2009DataSet()
Dim rpt As New CrystalReport1()
Dim frm As New Previsao()
Try
da.Fill(ds, [Ô]previsao_os[Ô])
rpt.SetDataSource(ds)
frm.CrystalReportViewer1.ReportSource = rpt
frm.Show()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
quando eu retio o argumento do sql + txtos.Text ele funciona direitinho, porem tras todas as previsoes da tabela.
Alguem pra dar um help.
Agradeço desde já.
O sisteminha consinte em cadastrar uma previsao de serviço e imprimir esta previsao.
Ai é que esta o problema, nao consigo impirir.
Vi em alguns topicos aqui e no site do macorrati que me deu uma luz, criei um dataset fiz tudo direitinho, pensava eu, mas na hora de execultar deu um erro. [Ô] tipo de dados incompativel na expressaao de criterio[Ô]
Abaixo segue o codigo
Public Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim conn As String = My.Settings.SIGIURB_2009ConnectionString.ToString()
Dim da As New OleDbDataAdapter([Ô]select *from previsao_os where numero_os=[Ô] + txtos.Text, conn)
Dim ds As New _SIGIURB_2009DataSet()
Dim rpt As New CrystalReport1()
Dim frm As New Previsao()
Try
da.Fill(ds, [Ô]previsao_os[Ô])
rpt.SetDataSource(ds)
frm.CrystalReportViewer1.ReportSource = rpt
frm.Show()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
quando eu retio o argumento do sql + txtos.Text ele funciona direitinho, porem tras todas as previsoes da tabela.
Alguem pra dar um help.
Agradeço desde já.
é simples ha inconpatibilidade nos argumentos.
Exemplo: se o campo numero_os for do tipo numerico e txtos.tex do tipo string tente isso:
[Ô]select *from previsao_os where numero_os=[Ô] & val( txtos.Text)
Agora se o campo numero_os for do tipo string tente:
[Ô]select *from previsao_os where numero_os=[ô][Ô] & txtos.Text & [Ô][ô][Ô]
consultas com campos tipo texto o parametro deve estar entre Aspas Simples.
Outra dica Usa o Crystal ele é show.
Exemplo: se o campo numero_os for do tipo numerico e txtos.tex do tipo string tente isso:
[Ô]select *from previsao_os where numero_os=[Ô] & val( txtos.Text)
Agora se o campo numero_os for do tipo string tente:
[Ô]select *from previsao_os where numero_os=[ô][Ô] & txtos.Text & [Ô][ô][Ô]
consultas com campos tipo texto o parametro deve estar entre Aspas Simples.
Outra dica Usa o Crystal ele é show.
No VB. NET:
Converte o numero para texto
[Ô]Select * from previsao_os where numero_os = txtos.Text.ToString ()[Ô]
Converte o numero para numero mesmo
[Ô]Select * from previsao_os where numero_os = Cint(txtos.Text)[Ô]
---------------------------------------------------------------------------------------------------------------------
Os meu Relatórios eu faço assim
Crio um tableAdapter no data set pelo designer neste caso ele faz um Select de todos os registro na tabela ItemEstoque
coloque isso no load do form que contem o Viewer
Me.ItemEstoqueTableAdapter1.Fill(Me.BancoDataSet1.ItemEstoque)
relatorioEstoqueMinimo.SetDataSource(Me.BancoDataSet1)
crvEstoque.ReportSource = relatorioEstoqueMinimo
Converte o numero para texto
[Ô]Select * from previsao_os where numero_os = txtos.Text.ToString ()[Ô]
Converte o numero para numero mesmo
[Ô]Select * from previsao_os where numero_os = Cint(txtos.Text)[Ô]
---------------------------------------------------------------------------------------------------------------------
Os meu Relatórios eu faço assim
Crio um tableAdapter no data set pelo designer neste caso ele faz um Select de todos os registro na tabela ItemEstoque
coloque isso no load do form que contem o Viewer
Me.ItemEstoqueTableAdapter1.Fill(Me.BancoDataSet1.ItemEstoque)
relatorioEstoqueMinimo.SetDataSource(Me.BancoDataSet1)
crvEstoque.ReportSource = relatorioEstoqueMinimo
Tópico encerrado , respostas não são mais permitidas