01-06-14, 01:05 PM
يعني اللي أقصده ان الجدول اللي إنت ضفته في التقرير ليس له علاقة بالبيانات القادمة من قاعدة البيانات .
ويجب ان يتم ربط التقرير بجدول واحد فقط " ويكون له علاقة بالبيانات القادمة "
الكود اللي بأستخدمه :
ويجب ان يتم ربط التقرير بجدول واحد فقط " ويكون له علاقة بالبيانات القادمة "
الكود اللي بأستخدمه :
كود :
Imports System.Data.OleDb
Public Class generala
Dim constr As String = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\Data\MyData.mdb;user id=admin;jet oledb:database password=modern2014"
Dim con As New OleDbConnection(constr)
Dim dataset1 As New DataSet
Dim ReportPath As String = Application.StartupPath & "\crystal reports\generalareport.rpt"
Dim sqlstr As String = " SELECT * FROM registration_a "
Private Sub notrega_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim DataAdapter1 As New OleDbDataAdapter(sqlstr, con)
DataAdapter1.Fill(dataset1, "registration_a")
reportDocument1.Load(ReportPath)
reportDocument1.SetDataSource(dataset1.Tables("registration_a"))
CrystalReportViewer1.ReportSource = reportDocument1
End Sub
End Classمع إضافة أداة ReportDocument على الفورم
وستظهر لك النافذة التالية إختر كما هو موضح :
وستظهر لك النافذة التالية إختر كما هو موضح :
اللَّهُمَّ أَنْتَ رَبِّي ، لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ ، وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ ، أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ ، أَبوءُ لَكَ بِنِعْمتِكَ علَيَ ، وأَبُوءُ بذَنْبي فَاغْفِرْ لي ، فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ .