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
'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
(02-09-16, 03:07 AM)aber31 كتب : [ -> ]إن شاء الله نحن في الانتظار
والله يا أخي أنا شخصيا أصبحت أكره الكريستال ريبورت
أتممت إنشاء برنامج وفي الأخير واجهت هذه المشاكل مع الكريستال
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 Class