Fórum Crystal report #2660
09/02/2009
0
Cleber Filho
Curtir tópico
+ 0Posts
10/02/2009
[devmedia .net]
protected void GerarReport() { SqlConnection sqlConn = new SqlConnection("Server=localhost;uid=sa;password=;initial catalog=Northwind;"); SqlCommand comd; comd = new SqlCommand(); comd.Connection = sqlConn; comd.CommandType = CommandType.StoredProcedure; comd.CommandText = "up_GetAllCustomer"; comd.Parameters.Add("@Companyname",SqlDbType.VarChar,50); if(TextBox1.Text.Trim()!="") comd.Parameters[0].Value=TextBox1.Text; else comd.Parameters[0].Value=DBNull.Value; SqlDataAdapter sqlAdapter = new SqlDataAdapter(); sqlAdapter.SelectCommand = comd; Dataset1 ds = new Dataset1(); sqlAdapter.Fill(ds, "Customers"); oRpt.SetDataSource (ds); CrystalReportViewer1.Visible=true; CrystalReportViewer1.ReportSource = oRpt; } }
Aguardo seu retorno para saber se deu tudo certo, Abraços Carlos Jr
Gostei + 0
10/02/2009
Cleber Filho
Gostei + 0
10/02/2009
[devmedia .net]
Protected CrystalReportViewer1 As CrystalDecisions.Web.CrystalReportViewer
Public oRpt As Customer = Nothing
Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
oRpt = New Customer() 'NOME DO RELATÓRIO
End Sub
Protected Sub GerarReport()
Dim sqlConn As New SqlConnection("Server=localhost;uid=sa;password=;initial catalog = Northwind")
comd = New SqlCommand()
comd.Connection = sqlConn
comd.CommandType = CommandType.StoredProcedure
comd.CommandText = "up_GetAllCustomer"
comd.Parameters.Add("@Companyname", SqlDbType.VarChar, 50)
If TextBox1.Text.Trim() <> "" Then
comd.Parameters(0).Value = TextBox1.Text
Else
comd.Parameters(0).Value = DBNull.Value
End If
Dim sqlAdapter As New SqlDataAdapter()
sqlAdapter.SelectCommand = comd
Dim ds As New Dataset1()
sqlAdapter.Fill(ds, "Customers")
oRpt.SetDataSource(ds)
CrystalReportViewer1.Visible = True
CrystalReportViewer1.ReportSource = oRpt
End Sub Abraços Carlos Jr
Gostei + 0
10/02/2009
Cleber Filho
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)