Yup... Ada sedikit pencerahan yang mudah dipraktekkan...
1. Coba bikin ODBC yang konek ke databasenya... 2. Bikin Query SQL-nya di database Access-nya... 3. Sample Codingnya di VB 6.0 : ====================================================================== Option Explicit Dim App As CRPEAuto.Application Dim rpt As CRPEAuto.Report Dim prms As CRPEAuto.ParameterFieldDefinitions Dim db As CRPEAuto.DataBase Private Sub Cmd_Print_Click() On Error GoTo Err_Print Set App = New CRPEAuto.Application Set rpt = App.OpenReport("E:\PRIMER\REPORT\ListJual.rpt") 'diisi dengan absolut path ke Main Report Set prms = rpt.ParameterFields prms(1).SetCurrentValue DTP_StartDate.Value 'contoh passing parameter ke Main Report prms(2).SetCurrentValue DTP_EndDate.Value 'contoh passing parameter ke Main Report Set db = rpt.DataBase db.Tables(1).SetLogOnInfo "PRIMER", "E:\PRIMER\DATABASE\KOPIN.MDB" 'login ke SQL Server dengan user dsn ACC, database ACCOUNTING, user = sa, bisa disesuaikan dengan kebutuhan anda rpt.Preview Exit Sub Err_Print: MsgBox Error & Err.Number & Err.Description End Sub ====================================================================== Mudah2x an membantu... Salam, Indrayana MB. --- In ITCENTER@yahoogroups.com, "lutfi" <[EMAIL PROTECTED]> wrote: > > dear all, > dibawah ini source untuk report, dan koneksinya langsung ke database, kalo mau menggunakan ODBC cara ubahnya gimana ya....... > > Private Sub isButton1_Click() > With Form1.crFaktur > .DataFiles(0) = App.Path & "\database.mdb" > .ReportFileName = App.Path & "\Report\LapFaktur.rpt" > .RetrieveDataFiles > .UserName = "admin" > .Password = "password" & Chr(10) & "password" > .SelectionFormula = "{PENJUALAN.NoNota}='" & Me.Combo1.Text & "'" > If Me.Option3.Value = True Then > .Destination = crptToWindow > Else > .Destination = crptToPrinter > End If > .Action = 1 > .PageZoom (89) > End With > End Sub > > terima kasih > > [Non-text portions of this message have been removed] > -- www.itcenter.or.id - Komunitas Teknologi Informasi Indonesia Gabung, Keluar, Mode Kirim : [EMAIL PROTECTED] ## Jobs: itcenter.or.id/jobs ## Bursa: itcenter.or.id/bursa ## ## Jaket ITCENTER tersedia di http://shop.itcenter.or.id Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/ITCENTER/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/ITCENTER/join (Yahoo! ID required) <*> To change settings via email: mailto:[EMAIL PROTECTED] mailto:[EMAIL PROTECTED] <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/