Crystal Reports

Kankichi

Member
Joined
Dec 11, 2008
Messages
8
Location
Lisbon, Portugal
Programming Experience
Beginner
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 :confused:

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
 
well my Problem is... i can put this work with 1 table, but with 2 or more tables doesn't work
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")

this is an exemple with 2 tables. Doesn't work
Help me plz :), TY
 
Back
Top