+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم مقالات التقارير والطباعة تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=80)
+--- الموضوع : طلب المساعدة في فتح تقرير برمجيا (/showthread.php?tid=17122)
طلب المساعدة في فتح تقرير برمجيا - aber31 - 02-09-16
السلام عليكم
عملت تقريرا بالفيجوال بيسك 2013 يستند على على قاعدة أكسس ويحتوي على جدولين
أريد فتحه برمجيا وعرضه عل نافذة مع إدخال كلمة مرور القاعدة
علما بأن التقرير ليس خارجا وإنما هو مشمول ضمن المشروع
RE: طلب المساعدة في فتح تقرير برمجيا - أبو عمر - 02-09-16
وعليكم السلام
Add a reference to the Microsoft.Office.Interop.Access
بعد اضافة المرجع
PHP كود :
Private Sub btnAccess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAccess.Click
Dim MSA As New Microsoft.Office.Interop.Access.Application
MSA.Application.Visible = True
MSA.OpenCurrentDatabase("E:\temp\Northwind.mdb", False)
MSA.Application.DoCmd.OpenReport("Invoice", AcView.acViewNormal)
End Sub
لم اجربه
لكن كنت استخدم في VB6 i الكود التالي ويعمل
PHP كود :
'Add 1 Command Button to your form.
'Add 1 reference to Microsoft Access X.0
'Object Library (From
'VB Menu choose Project -> References...,
'mark the Microsoft Access X.0
'Object Library check box and press OK).
'Form Code
Private Sub Command1_Click()
Dim ac As Access.Application
Set ac = New Access.Application
' open the database.
' replace the "c:\myDir\myDBFileName.mdb" below with your
' database file name
ac.OpenCurrentDatabase ("c:\myDir\myDBFileName.mdb")
' uncomment the line below if you want to see Print Preview
' ac.Visible = True
' replace the acViewNormal below with acViewPreview
' if you want to see Print Preview
ac.DoCmd.OpenReport "Catalog", acViewNormal
' delete the line below if you want to see Print Preview
ac.CloseCurrentDatabase
End Sub
بالتوفيق
RE: طلب المساعدة في فتح تقرير برمجيا - aber31 - 02-09-16
بارك الله فيك أخي
ولكن التقرير مصمم بالكريستال ريبورت وأريد عرضة على فورم برمجيا
RE: طلب المساعدة في فتح تقرير برمجيا - أبو عمر - 02-09-16
المعذرة ظننت من العبارة "علما بأن التقرير ليس خارجا وإنما هو مشمول ضمن المشروع" ان التقرير مصمم داخل الاكسس
بالنسبة للكريستال ريبورت فعلمي عنه شبه معدوم لكرهي له
لكن يفيدك أحد الاخوة إن شاء الله
RE: طلب المساعدة في فتح تقرير برمجيا - aber31 - 02-09-16
إن شاء الله نحن في الانتظار
والله يا أخي أنا شخصيا أصبحت أكره الكريستال ريبورت
أتممت إنشاء برنامج وفي الأخير واجهت هذه المشاكل مع الكريستال
RE: طلب المساعدة في فتح تقرير برمجيا - tarfayaski - 26-05-18
(02-09-16, 03:07 AM)aber31 كتب : إن شاء الله نحن في الانتظار
والله يا أخي أنا شخصيا أصبحت أكره الكريستال ريبورت
أتممت إنشاء برنامج وفي الأخير واجهت هذه المشاكل مع الكريستال
السلام عليكم ورحمة الله
اخي الكريم اظن انك وضعت الريبورت في فورم واخترت من الجدول ما تحتاج اظهاره بالريبورت
لديك فورم اول به button تحت اسم Printr والكود التالي لفتح الفورم الثاني الخاص بالريبورت Form2
كود :
Public Class Form1
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Data.OleDb
Imports System.IO
Private Sub Printr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Printr.Click
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
Dim cryRpt As New ReportDocument
Dim crtableLogoninfos As New TableLogOnInfos
Dim crtableLogoninfo As New TableLogOnInfo
Dim crConnectionInfo As New ConnectionInfo
Dim CrTables As Tables
Dim CrTable As Table
Try
With OleCn
If .State <> ConnectionState.Open Then
.ConnectionString = StrConnection()
.Open()
End If
End With
Catch ex As Exception
MessageBox.Show(ex.Message, "Message", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
Try
cryRpt.Load(Application.StartupPath & "\Reportx.rpt") ' اسم الفقرير الحاص بك
With crConnectionInfo
.ServerName = Application.StartupPath & "\xyz.Accdb" 'اسم قاعدة البيانات الخاصة بك
.DatabaseName = Application.StartupPath & "\xyz.Accdb"
.UserID = ""
.Password = ""
End With
CrTables = cryRpt.Database.Tables
For Each CrTable In CrTables
crtableLogoninfo = CrTable.LogOnInfo
crtableLogoninfo.ConnectionInfo = crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)
Next
Dim QueryString As String
QueryString = "Select * from table1 order by N"
Dim Cmd As New OleDbCommand(QueryString, OleCn)
Dim Adapter As OleDbDataAdapter = New OleDbDataAdapter(Cmd)
Dim ds As DataSet = New DataSet()
Adapter.Fill(ds, "table1")
cryRpt.SetDataSource(ds)
Form2.CrystalReportViewer1.ReportSource = cryRpt
Form2.Show()
OleCn.Close()
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
Catch ex As Exception
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
MsgBox(ex.Message(), MsgBoxStyle.Critical, "Print Report Error...")
End Try
End Sub
End ClassRE: طلب المساعدة في فتح تقرير برمجيا - tarfayaski - 28-05-18
مثال بسيط مرفق