RELATORIO CRYSTAL REPORT ERRO

RICARDOCIRO 28/09/2009 10:48:34
#323816
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á.
LORDAUTUNM 28/09/2009 19:54:09
#323895
é 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.
AUGUSTTO 28/09/2009 20:48:24
#323901
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


Tópico encerrado , respostas não são mais permitidas