Imports System.Data.OleDb
Public Class Form9
Dim strcon As String = "Provider=Microsoft.Jet.Oledb.4.0;Data Source = D:\pvss204\product.mdb"
Dim con As New OleDbConnection
Dim da As OleDbDataAdapter
Dim dt As DataTable
Dim rp1 As RptRentBook
Private Sub Form9_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
con.ConnectionString = strcon
con.Open()
Dim sql As String = "SELECT saledetail.saleid, saledetail.proid, product.proname, product.proprice, saledetail.saleqty"
sql &= " FROM product INNER JOIN saledetail ON product.proid = saledetail.proid"
da = New OleDbDataAdapter(sql, con)
dt = New DataTable
da.Fill(dt)
If dt.Rows.Count > 0 Then
rp1 = New RptRentBook
rp1.SetDataSource(dt)
CrystalReportViewer1.ReportSource = rp1
End If
End Sub
End Class
ไม่มีความคิดเห็น:
แสดงความคิดเห็น