Kankichi
Member
hi Guys i Have a Problem with Crystal Reports i can't put this code to work in Form_Load, it looks like evrything is ok 
Imports System.Data.SqlClient
Public Class VerFacturas
Private Sub VerFacturas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rpt As New ViewFacturas
Dim conn As SqlConnection
Dim cmd As New SqlCommand
Dim da As New SqlDataAdapter
Dim ds As New DataSet
Try
conn = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename='C:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\Gestao.mdf';Integrated Security=True;Connect Timeout=30;User Instance=True")
cmd.Connection = conn
cmd.CommandText = "SELECT Facturas.n_factura, Facturas.data, Facturas.valor_total, Entidades.nome, Facturas.log_in FROM Entidades, Facturas WHERE Facturas.n_contribuinte = Entidades.n_contribuinte"
cmd.CommandType = CommandType.Text
da.SelectCommand = cmd
da.Fill(ds, "Entidades, Facturas")
rpt.SetDataSource(ds)
CrystalReportViewer1.ReportSource = rpt
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
Imports System.Data.SqlClient
Public Class VerFacturas
Private Sub VerFacturas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rpt As New ViewFacturas
Dim conn As SqlConnection
Dim cmd As New SqlCommand
Dim da As New SqlDataAdapter
Dim ds As New DataSet
Try
conn = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename='C:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Data\Gestao.mdf';Integrated Security=True;Connect Timeout=30;User Instance=True")
cmd.Connection = conn
cmd.CommandText = "SELECT Facturas.n_factura, Facturas.data, Facturas.valor_total, Entidades.nome, Facturas.log_in FROM Entidades, Facturas WHERE Facturas.n_contribuinte = Entidades.n_contribuinte"
cmd.CommandType = CommandType.Text
da.SelectCommand = cmd
da.Fill(ds, "Entidades, Facturas")
rpt.SetDataSource(ds)
CrystalReportViewer1.ReportSource = rpt
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class