Teman-teman mohon bantuannya.
Saya menggunakan script dibawah ini untuk menampilkan Report.
Pada design Report saya hanya masukkan satu field yaitu: Field *Nama*.
Kalau saya menggunakan query seperti teks yang diberi warna biru dibawah,
kenapa Reportnya kosong/ blank.
Tapi kalau query menggunakan tanda bintang (***) seperti ini: *rs.Open
"select * from tbmasterretrib", cnn, adOpenStatic, adLockOptimistic
Reportnya menampilkan nama-nama yang ada pada field table di database.
*Kenapa bisa begitu. Yang saya inginkan menggunakan code query seperti
dibawah. Tidak perlu menggunakan Select *
Option Explicit
Dim Rpt As New cr3
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
cnn.Open "Driver={MySQL ODBC 3.51 Driver};Server=
localhost;Database=db1; User=root;Password=sayalupa;Option=3;"
cnn.CursorLocation = adUseClient
*rs.Open "select Nama from tbmasterretrib", cnn, adOpenStatic,
adLockOptimistic*
Rpt.DiscardSavedData
Rpt.Database.SetDataSource rs
CRViewer1.ReportSource = Rpt
CRViewer1.ViewReport
CRViewer1.Zoom 100
Set Rpt = Nothing
End Sub
Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
End Sub