Tutorial-Ku

Berikut penggalan kode Visual Basic untuk koneksi database My SQL, kode ini saya coba dalam pembuatan aplikasi penjualan sewaktu tugas perkuliahan. Agar kode diatas dapat berjalan maka pastikan file pendukung untuk MySQL sudah di aktifkan pada reference. Atau sudah ada di Folder System32 pada komputer anda. Biasanya nama filenya "libmySQL.dll" dan "MyVbQL.dll".

Postingan kali ini saya memberikan contoh coding koneksi Crystal Report 8.5 dengan Visual Basic 6.0 , adapun contoh barisan coding sebagai berikut : Private Sub cmdbuat_Click() Dim saring As String If DTPicker1.Value > DTPicker2.Value Then MsgBox "Periode Salah", vbCritical, "Periode" Else saring = "{TrAbsensi.TglMasuk} >= #" & Format(DTPicker1.Value, "mm/dd/yyyy 00:00:00") & "#" & _ "and {TrAbsensi.TglMasuk} 00:00:00") & "#" CR.WindowTitle = "Laporan Absensi" CR.ReportFileName = App.Path + "\Reports\LapAbsensi.rpt" CR.Formulas(1) = "tgl1='" & Format(DTPicker1.Value, "dd/mm/yyyy") & "'" CR.Formulas(2) = "tgl2='" & Format(DTPicker2.Value, "dd/mm/yyyy") & "'" CR.Formulas(3) = "IDBAG='" & Combo2.Text & "'" If ...