Set crxApplication = CreateObject("CrystalRunTime.Application")
Set sReport = crxApplication.OpenReport(App.Path & "\pasien.Rpt", 1)
With sReport
.RecordSelectionFormula = "{tbPasien.KodePasien} = '" & Text2.Text &
"'"
.DiscardSavedData
End With
Dim pServer, pNamaDB, pLogID, pPassword As String
pServer = "PKLBSI"
pNamaDB = "ROYAL"
pLogID = "sa"
pPassword = "sa"
With sReport.Database
.LogOnServer "pdssql.dll", pServer, pNamaDB, pLogID, pPassword
.Verify '= True
End With
CRViewer1.EnableCloseButton = True
CRViewer1.EnableGroupTree = False
CRViewer1.ReportSource = sReport
CRViewer1.ViewReport
CRViewer1.Zoom (90)
Screen.MousePointer = vbDefault
Teman-teman
Ketika saya mengeksekusi koding diatas selalu muncul error message berupa
Runtime error '-2147192153(800472a7)':
Configuration Error
File could not be opened because the library "pdssql.dll" cannot be found.
Adakah cara lain agar saya bisa mengakses database dan menampilkannya ke
report tanpa harus menggunakan driver "pdssql.dll"
Saya sudah coba searching driver tersebut di Google, tapi belum menemukan yang
free. Mungkin ada rekan-rekan yang punya file library tersebut. Mohon di share
ke saya. Thanks B4.
Salam
Saripudin Hidayat
________________________________________________________
Bergabunglah dengan orang-orang yang berwawasan, di di bidang Anda! Kunjungi
Yahoo! Answers saat ini juga di http://id.answers.yahoo.com/
