![]() Password = "qazxsw" End With CrTables = For Each CrTable In CrTables crtableLogoninfo = CrTable.LogOnInfo crtableLogoninfo.ConnectionInfo = crConnectionInfo CrTable.ApplyLogOnInfo(crtableLogoninfo) Next End Sub Public Sub Konekdb() conn = New OleDbConnection("provider=.4.0 data source=perpustakaan.mdb") conn.Open() End Sub End Module 5. Membuat Module Koneksi Imports Imports Imports CrystalDecisions.Shared Module Module1 Public Public Public Public Public conn As OleDbConnection da As OleDbDataAdapter ds As DataSet cmd As OleDbCommand dr As OleDbDataReader Public Public Public Public Public cryRpt As New ReportDocument crtableLogoninfos As New TableLogOnInfos crtableLogoninfo As New TableLogOnInfo crConnectionInfo As New ConnectionInfo CrTables As Tables Public Sub seting_laporan() With crConnectionInfo. Membuat Database (Access) Dan Beberapa Tabel 3. Untuk database access sebaiknya disimpan di folder debug agar saat membuat koneksi database tidak perlu mengetik path database yang panjang 2. APLIKASI PERPUSTAKAAN VB NET Tahapan pembuatan aplikasi perpustakaan antara lain : 1.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |