Cara Mengecek atau Memeriksa Versi MDAC

MDAC adalah kependekan dari Microsoft Data Access Components. Pada dasarnya MDAC adalah sekumpulan library yang diperlukan pada saat membuat program aplikasi atau menjalankan program aplikasi yang mengakses database. Biasanya MDAC berisi ActiveX Data Objects (ADO), OLE DB, and Open Database Connectivity (ODBC). Untuk lebih lengkap tentang MDAC silahkan dibaca di Wikipedia.

MDAC ini menjadi penting saat program aplikasi akan didistrbusikan (diinstall) ke komputer klien. Karena jika di komputer klien tidak terdapat MDAC yang tepat versinya, program aplikasi bisa jadi tidak dapat bekerja dengan sempurna.

Langkah-langkah untuk memeriksa MDAC di suatu komputer adalah melalui registry dengan langkah sebagai berikut :

Informasi versi yang ditemukan dalam kunci berikut:

HKEY_LOCAL_MACHINE\Software\Microsoft\DataAccess\FullInstallVer

Untuk memeriksa registri, ikuti langkah berikut:

1. Pada Mulai menu, klik Menjalankan.
2. Dalam Terbuka kotak teks, ketik regedit kemudian klik Oke; ini mulai Peninjau Suntingan Registri.
3. Di panel navigasi, drill-down lintasan berikut:
   HKEY_LOCAL_MACHINE\Software\Microsoft\DataAccess
4. Di panel rincian, lihat di Nama kolom untuk FullInstallVer dan Versi. Masing-masing kunci ini akan memiliki informasi versi yang sesuai dalam Data kolom.
5. Setelah selesai, klik Keluar pada Registri menu untuk menutup Registry Editor.

(sumber : http://support.microsoft.com/kb/301202/id-id)

Untuk dapat men-download MDAC silahkan klik link donwload MDAC ini.

 Catatan : Pada saat kita menginstall software database system buatan Ms, biasanya MDAC sudah diikutsertakan dalam instalasi!

Mengubah Setting Connection Crystal Report pada VB.Net

Peringatan : Menggunakan .Net Framework 2.0 & belum pernah dites... :p
Sumber : http://social.msdn.microsoft.com/Forums/en-US/vscrystalreports/thread/7345fc6c-9749-42a3-b866-509c57f3cc35

Program VB .Net yang menggunakan Crystal Report (CR) yang dibuat di komputer lokal akan menemukan kendala saat program tersebut didistribusikan (diinstall dikomputer yang menggunakan database yang berbeda) karena ConnectionString yang dipergunakan pasti berbeda. Berikut source code untuk mengatasi masalah tersebut.

Mengganti CR ConnectionString pada VB
Note : Struktur tabel harus sama!!!

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim myReport As New worldsales_northwind() '<-- lihat source code di bawah CrystalReportViewer1.ReportSource = myReport myReport.Load() Dim myDBConnectionInfo As New CrystalDecisions.Shared.ConnectionInfo() With myDBConnectionInfo .ServerName = “localhost” .DatabaseName = “Northwind” .UserID = “sa” .Password = “” End With End Sub

Mengganti source melalui VB tanpa tergantung pada CR

Dim crtableLogoninfos As New TableLogOnInfos()
Dim crtableLogoninfo As New TableLogOnInfo()
Dim crConnectionInfo As New ConnectionInfo()
Dim CrTables As Tables
Dim CrTable As Table

'Declare ReportDocument object and load your existing report
'Make sure that you give the correct path for the document else it will give exception
Dim crReportDocument As New ReportDocument()
crReportDocument.Load("C:\MyApp\Crystal\Crystal\WorldSalesReport.rpt")
CrystalReportViewer1.ReportSource = crReportDocument

CrTables = crReportDocument.Database.Tables

Dim crLoc As String
crLoc = txtDb.ToString & ".dbo"

For Each CrTable In CrTables

crtableLogoninfo = CrTable.LogOnInfo
'Read MachineName\InstanceName,Database details from User interface
'and load them into crConnectionInfo object
crConnectionInfo.ServerName = txtMac.Text
crConnectionInfo.DatabaseName = txtDb.Text
crConnectionInfo.IntegratedSecurity = True
crtableLogoninfo.ConnectionInfo = crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)
CrTable.Location.Substring(CrTable.Location.LastIndexOf(".") + 1)

Next

crReportDocument.ReportOptions.EnableSaveDataWithReport = False
'Refresh the ReportViewer Object
CrystalReportViewer1.RefreshReport()
'Bind the ReportDocument to ReportViewer Object
CrystalReportViewer1.ReportSource = crReportDocument

Dari Sumber lain : http://vb.net-informations.com/crystal-report/vb.net_crystal_report_load_dynamically.htm

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class Form1
  Private Sub Button1_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles Button1.Click
      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

      cryRpt.Load("PUT CRYSTAL REPORT PATH HERE\CrystalReport1.rpt")

      With crConnectionInfo
          .ServerName = "YOUR SERVER NAME"
          .DatabaseName = "YOUR DATABASE NAME"
          .UserID = "YOUR DATABASE USERNAME"
          .Password = "YOUR DATABASE PASSWORD"
      End With

      CrTables = cryRpt.Database.Tables
      For Each CrTable In CrTables
          crtableLogoninfo = CrTable.LogOnInfo
          crtableLogoninfo.ConnectionInfo = crConnectionInfo
          CrTable.ApplyLogOnInfo(crtableLogoninfo)
      Next

      CrystalReportViewer1.ReportSource = cryRpt
      CrystalReportViewer1.Refresh()
  End Sub
End Class