Pages

Import Database Dari File Excel Dengan VB

Import Database Dari File Excel Dengan VB. Pada kesempatan kali ini saya akan membahas tentang import database dari file excel dengan menggunakan vb 6 pada kesempatan sebelumnya saya pernah membahas tentang Membaca Dan Menampilkan Data Dari File Excel di VB 6, postingan ini merupakan kelanjutan dari postingan tersebut. Pada postingan tersebut hanya membaca dan menampilkan data dari file excel saja,  pada kesempatan kali ini setelah data file excelnya tampil pada msflexgrid kita akan masukan ke dalam sebuah tabel dalam database. Jadi tidak hanya di tampilkan saja melainkan di import masuk kedalam tabel.

Ini sangat berguna jika kita menginginkan memasukan sebuah data dari file excel sehingga kita tidak perlu menginput satu persatu datanya atau aplikasi yang kita buat ada fitur import database dari file excel. Bagaimanakah cara Import Database Dari File Excel Dengan VB ?  ikutilah langkah-langkahnya sebagai berikut ini


Buka Microsoft Visual Basic 6 dan buat dan desainlah sebuah form seperti gambar yang ada di bawah ini

Tampilkan Gambar


Jika sudah selesai mendesainnya lalu tambahkan sebuah modul dengan cara klik menu Project-Add Modul lalu ketikan kode berikut ini

Public conXls As ADODB.Connection
Public Conn As New ADODB.Connection

'Function Ini di gunakan untuk koneksi ke file excel
Public Function openExcelFile(ByVal excelFile As String) As Boolean
    On Error GoTo errHandle
    '-----------------------
    'Jika menggunakan Office 2007 ke atas ganti Provider=Microsoft.Jet.OLEDB.4.0;
    'menjadi Provider=Microsoft.ACE.OLEDB.12.0;
    
    Set conXls = New ADODB.Connection
    conXls.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
                            & "Data Source=" & Replace(excelFile, Chr$(0), "") & ";" _
                            & "Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
    conXls.Open
    '-------------------
    openExcelFile = True
    Exit Function
errHandle:
    openExcelFile = False
End Function

'Untuk koneksi database ms access pd waktu memasukan data ke dlm database
Public Sub KonekDb()
    Set Conn = New ADODB.Connection
    
    'Jika menggunakan ms access 2007 keatas pakailah koding berikut:
    'Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & App.Path & "\db_mhs.accdb;"
    'Conn.CursorLocation = adUseClient
    
    Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB_MHS.mdb"
    Conn.CursorLocation = adUseClient
End Sub


Jika Sudah buka desain formnya kemudian double klik formnya kemudian ketikan kode berikut ini pada general declarations

    Dim rsExcel     As ADODB.Recordset
    Dim strSql      As String
    Dim Baris       As Long
    Dim SQL         As String

'Untuk Mengatur Tampilan MSFlexGrid1
Sub AktifMSFlexGrid1()
    MSFlexGrid1.Cols = 5
    MSFlexGrid1.RowHeightMin = 300
    '-------------------------------------------------
    MSFlexGrid1.Col = 0
    MSFlexGrid1.Row = 0
    MSFlexGrid1.Text = "NO"
    MSFlexGrid1.CellFontBold = True
    MSFlexGrid1.ColWidth(0) = 500
    MSFlexGrid1.AllowUserResizing = flexResizeColumns
    MSFlexGrid1.CellAlignment = flexAlignCenterCenter
    '-------------------------------------------------
    MSFlexGrid1.Col = 1
    MSFlexGrid1.Row = 0
    MSFlexGrid1.Text = "NIM"
    MSFlexGrid1.CellFontBold = True
    MSFlexGrid1.ColWidth(1) = 900
    MSFlexGrid1.AllowUserResizing = flexResizeColumns
    MSFlexGrid1.CellAlignment = flexAlignCenterCenter
    '-------------------------------------------------
    MSFlexGrid1.Col = 2
    MSFlexGrid1.Row = 0
    MSFlexGrid1.Text = "NAMA MAHASISWA"
    MSFlexGrid1.CellFontBold = True
    MSFlexGrid1.ColWidth(2) = 2000
    MSFlexGrid1.AllowUserResizing = flexResizeColumns
    MSFlexGrid1.CellAlignment = flexAlignCenterCenter
    '-------------------------------------------------
    MSFlexGrid1.Col = 3
    MSFlexGrid1.Row = 0
    MSFlexGrid1.Text = "ALAMAT"
    MSFlexGrid1.CellFontBold = True
    MSFlexGrid1.ColWidth(3) = 2000
    MSFlexGrid1.AllowUserResizing = flexResizeColumns
    MSFlexGrid1.CellAlignment = flexAlignCenterCenter
    '---------------------------------------------------
    MSFlexGrid1.Col = 4
    MSFlexGrid1.Row = 0
    MSFlexGrid1.Text = "JURUSAN"
    MSFlexGrid1.CellFontBold = True
    MSFlexGrid1.ColWidth(4) = 2000
    MSFlexGrid1.AllowUserResizing = flexResizeColumns
    MSFlexGrid1.CellAlignment = flexAlignCenterCenter
End Sub


Jika sudah selesai kemudian double klik CmdBuka dan ketikanlah kode berikut ini yang berfungsi untuk menampilkan data dari file excel ke dalam sebuah MsFlexgrid:

Private Sub CmdBuka_Click()
    MSFlexGrid1.Clear
    Call AktifMSFlexGrid1
    Baris = 0
    'Memilih File Excel
    With CommonDialog1
        .DialogTitle = "Pilih File Excelnya (.xls)"
        .InitDir = App.Path
        .Filter = "SQL Files (*.xls)|*.xls"
        'jika menggunakan file excel 2007 keatas
        'untuk .Filter = "SQL Files (*.xls)|*.xls" '
        'Ganti dengan .Filter = "SQL Files (*.xlsx)|*.xlsx"
        .ShowOpen
    End With
    'menampilkan nama filenya di textbox
    TxtNamaFile.Text = CommonDialog1.FileName
    'Membuka File Excel
    If openExcelFile(CommonDialog1.FileName) Then
        'selanjutnya data yg diambil ada di sheet1,
        'sheet disini sama seperti tabel yang ada di database
        strSql = "SELECT * FROM [Sheet1$]" ' penting !!!, jangan lupa menambahkan karakter $
        Set rsExcel = New ADODB.Recordset
        rsExcel.Open strSql, conXls, adOpenForwardOnly, adLockReadOnly
        'tampilkan data yg ada sheet1 ke MSFlexGrid1
        If Not rsExcel.EOF Then
            Do While Not rsExcel.EOF
                Baris = Baris + 1
                MSFlexGrid1.Rows = Baris + 1
                MSFlexGrid1.TextMatrix(Baris, 0) = Baris
                MSFlexGrid1.TextMatrix(Baris, 1) = rsExcel(0).Value
                MSFlexGrid1.TextMatrix(Baris, 2) = rsExcel(1).Value
                MSFlexGrid1.TextMatrix(Baris, 3) = rsExcel(2).Value
                MSFlexGrid1.TextMatrix(Baris, 4) = rsExcel(3).Value
                rsExcel.MoveNext
                DoEvents
            Loop
        End If
        rsExcel.Close
        Set rsExcel = Nothing
    End If
End Sub


Jika sudah kemudian double klik CmdImport dan ketikankah kode berikut ini yang berfungsi untuk menyimpan data yang telah tampil di MsFlexGrid

Private Sub CmdImport_Click()
On Error GoTo AdaError
    Dim i As Integer
    Call KonekDb
    For i = 1 To MSFlexGrid1.Rows - 1
        SQL = ""
        SQL = "INSERT INTO Tbl_Mhs(Nim,Nama,alamat,jurusan) " _
            & "VALUES ('" & MSFlexGrid1.TextMatrix(i, 1) & "'," _
            & "'" & MSFlexGrid1.TextMatrix(i, 2) & "'," _
            & "'" & MSFlexGrid1.TextMatrix(i, 3) & "'," _
            & "'" & MSFlexGrid1.TextMatrix(i, 4) & "')"
        Conn.Execute (SQL), , adCmdText
        DoEvents
    Next i
    MsgBox "Import data berhasil, Silahkan di cek...", vbInformation, ".:: Sukses..."
    Exit Sub
AdaError:
If Err.Number = -2147467259 Then
    MsgBox "NIM " & MSFlexGrid1.TextMatrix(i, 1) & " sudah ada dalam database." & vbCrLf & _
    "Pada file excelnya di baris " & i + 1 & " ,silahkan hapus terlebih dahulu lalu ulangi.", vbCritical, ".:: Gagal...!!!"
    Exit Sub
Else
    MsgBox "Error No : " & Err.Number & vbCrLf & _
    Err.Description, vbCritical + vbOKOnly, "Error......"
End If
End Sub


Kemudian tulislah kode pada bagian form load, double klik formnya kemudian tulis kode berikut ini

Private Sub Form_Load()
    Call AktifMSFlexGrid1
End Sub




Jika sudah semuanya silahkan programnya di jalankan,jika berhasil akan tampil seperti gambar animasi berikut ini



Selesai. semoga tutorial ini bermanfaat. Jika anda tidak ingin ribet mendesain dan menulis kodenya silahkan download source kodenya yang telah saya sediakan di link di akhir tulisan ini. Silahkan di download dan digunakan dengan baik.

Pada postingan berikutnya saya akan membuat sebuah tutorial Bagaimana Cara Eksport Database Ke Ms Excel. Tunggu ya...?

Tutorial ini dapat di terapkan tidak hanya untuk database ms access saja bisa, anda bisa menerapkan pada database MS SQL Server maupun MySQL Server tinggal diganti saja koneksi nya.






Keywords:
Import Database Dari File Excel Dengan VB,Tutorial Import Database Dari File Excel Dengan VB,Cara Import Database Dari File Excel Dengan VB,Import Ekport Database, Trik Import Eksport Database,Cara Mudah Import Dan Eksport Database

Membuat Laporan Crystal Report 8.5 dengan Database MS Access 2007

Membuat Laporan Crystal Report 8.5 dengan Database MS Access 2007.  Pernahkah anda membuat lapaoran Crystal Report dengan menggunakan database ms access 2007 ke atas.? Caranya sedikit berbeda dengan membuat laporan crystal report dengan database ms access 2003 ke bawah. Jika cara membuatnya di samakan dengan cara yang memakai database ms access 2003 maka akan terjadi kegagalan dan akan muncul pesan "Library pdbbtrv.dll cannot be opened. please check it configurations"  seperti gambar berikut ini.

Tampilkan Gambar


Jika anda belum bisa membuat laporan dengan Crystal Report sebaiknya anda membaca postingan  sebelumnya yang membahas tentang membuat laporan dengan crystal report tapi menggunakan database ms access 2003 ke bawah.

Lalu bagaimanakah Membuat Laporan Crystal Report 8.5 dengan Database MS Access 2007 ? supaya tidak terjadi error. Sebenarnya ada dua cara untuk mengatasi hal tersebut. Cara pertama sebagai berikut ini :

  1. Buatlah sebuah DSN. Jika belum bisa buat DSN langkahnya seperti berikut : Buka Control Panel-Administrative Tools buka atau double klik Data Source (ODBC) maka akan muncul jendela seperti gambar berikut ini dan langkah-langkahnya
  2. Tampilkan Gambar






  3. Jika buat DSN nya sudah lalu buka Crystal Reportnya. maka akan muncul jendela seperti berikut ini.
Tampilkan Gambar

Pilih using the Report Expert lalu klik ok maka akan muncul jendela baru seperti gambar berikut

Tampilkan Gambar

pilih using the Report Expert lalu klik ok maka akan muncul jendela baru seperti gambar berikut ini

Tampilkan Gambar


kemudian klik tombol Database maka akan muncul jendela baru seperti gambar di atas lalu pilih ODBC cari nama DSN yang telah dibuat tadi disini nama DSN nya coba. lalu klik tanda plus (+) maka akan tampil tabel-tabelnya. seperti gambar berikut ini

Tampilkan Gambar

Pilih salah satu tabel yang diinginkan kemudian klik add jika sudah klik close. maka akan kembali ke jendela seperti gambar berikut ini :

Tampilkan Gambar

kemudian klik next. untuk cara atau langkah selanjutnya sama seperti jika anda membuat report dengan database ms access 2003 ke bawah. Jika belum bisa silahkan baca postingan Membuat Laporan Dengan Crystal Report Pada VB 6

Cara pertama selesai, selanjutnya cara kedua cara kedua ini tidak memakai DSN. Cara kedua langkah-langkahnya sebagai berikut ini:

Buka Crystal Reportnya-pilih using the report expert-klik database maka akan muncul jendela baru seperti gambar berikut ini

Tampilkan Gambar

Kemudian klik tanda + More Data Source lalu klik tanda + OLE DB lalu pilih Make New Connection kemudian kli Add seperti gambar di atas. Setelah klik Add maka akan muncul jendela baru seperti berikut ini.

Tampilkan Gambar

Kemudian pilihlaj Microsoft Office 12.0 Access Database Engine OLE DB seperti gambar di atas kemudian klik next maka akan tampil jendela baru seperti gambar berikut ini

Tampilkan Gambar

Kemudian isilah Data Source dengan letak database ms access nya dan nama database ms access nya seperti yang nampak pada gambar di atas. Jika sudah klik tombol Test Connection untuk mengecek berhasil tidaknya. jika berhasil maka akan muncul pesan "Test connection succeeded" seperti nampak pada gambar berikut ini

Tampilkan Gambar


Kemudian klik OK dan klik OK lagi, maka akan tampil jendela seperti gambar berikut ini

Tampilkan Gambar


Kemudian pilih tabel yang diinginkan kemudian klik add lalu close maka akan tampil jendela seperti gambar berikut ini

Tampilkan Gambar


kemudian klik next. untuk cara atau langkah selanjutnya sama seperti jika anda membuat report dengan database ms access 2003 ke bawah. Jika belum bisa silahkan baca postingan Membuat Laporan Dengan Crystal Report Pada VB 6

Demikian tutorial Membuat Laporan Crystal Report 8.5 dengan Database MS Access 2007 semoga dapat bermanfaat dan berguna.






Tags:
Membuat Laporan Crystal Report 8.5 dengan Database MS Access 2007, Tutorial Crystal report dengan ms access 2007, Mengatasi Error Laporan Crystal Report 8.5 dengan Database MS Access 2007,Cara Membuat Laporan Crystal Report 8.5 dengan Database MS Access 2007


Restore Database Ms Access Menggunakan VB

Restore Database Ms Access Menggunakan VB.    Pada postingan sebelumnya telah membahas tentang cara memback up database menggunakan VB, pada kesempatan kali ini saya akan memposting cara Restore Database Ms Access Menggunakan VB.

Restore database adalah mengembalikan data yang telah di backup, karena suatu hal kita perlu merestorenya. Misalnya komputernya rusak dan databasenya hilang, jika sudah pernah di backup dan disimpan di tempat yang aman kita bisa merestorenya kembali data yang telah kita backup tersebut.

Restore database ini sangat penting untuk antisipasi sesuatu yang tidak diinginkan terhadap database yang kita miliki. Bagaimanakah membuat restore database menggunakan vb6?  Ikutilah langkah-langkah berikut ini :

  1. Buka VisualBasic 6 dan buatlah/desainlah sebuah form seperti gambar berikut ini

    Tampilkan Gambar



  2. Jika sudah selesai kita lanjutkan ke koding, tulislah koding berikut ini. Sebagai contoh di sini saya memakai nama database DB_MHS.mdb. Tulislah kode berikut ini dengan benar :

    Private Sub CmdPilih_Click()
    CommonDialog1.DialogTitle = "Pilih Database Backupannya"
    CommonDialog1.InitDir = "C:\"
    CommonDialog1.Filter = "SQL Files (*.mdb)|*.mdb"
    CommonDialog1.ShowOpen

    Label1.Caption = CommonDialog1.FileName
    End Sub

    Private Sub CmdKeluar_Click()
    Unload Me
    End Sub

    Private Sub CmdRestore_Click()
    If Label1.Caption = "" Then
    MsgBox "Klik Tombol 'Pilih File Backup' Dulu...!," & vbCrLf & "" _
    & "Untuk Memilih Lokasi Penyimpanan", vbCritical, " .:: Peringatan ::. "
    Exit Sub
    End If
    '------------------------
    On Error Resume Next
    Dim asal As String
    Dim Tuju As String
    Dim i As Integer
    Dim j As Integer
    Label2.Width = 0

    Tuju = App.Path
    asal = Label1.Caption
    Tuju = Tuju + "\DB_MHS.mdb"
    '------------------------
    CmdPilih.Enabled = False
    CmdRestore.Enabled = False
    CmdKeluar.Enabled = False
    Label2.Visible = True
    For i = 0 To 4800
    Label2.Width = i
    For j = 1 To 50: DoEvents: Next j
    Next i
    '------------------------
    FileCopy asal, Tuju
    DoEvents
    MsgBox "Restore Database Sukses....!", vbInformation, "Restore Data"
    '------------------------
    CmdPilih.Enabled = False
    CmdRestore.Enabled = False
    CmdKeluar.Enabled = True
    Label2.Visible = False
    End Sub

  3. Jika sudah simpanlah kemudian jalankan. Jika berhasil nampak seperti gambar berikut ini.

    Tampilkan Gambar




  4. Selesai. Cukup mudah bukan...? Jika anda menginginkan source codenya dan tidak ingin ribet nulis kodenya silahkan download di link di bawah ini. Tutorial ini berkaitan dengan tutorial sebelumnnya cara membuat backup database.








Tags:
Cara Restore Database dengan vb,restore database ms access dengan vb,restore database,tutorial cara restore database dengan vb6

Backup Database Ms Access Menggunakan VB

Backup Database Ms Access Menggunakan VB. Untuk menghindari kehilangan data karena sesuau hal yang tidak diinginkan misalnya windows rusak,database rusak dan lain sebagainnya lakukanlah secara rutin melakukan backup data. Jika kita kehilangan data setidaknya kita masih memiliki cadangan data yang nantinya bisa kita restore, sehingga tidak terlalu pusing karena karena masih punya cadangan data. Lakukanlah back up data minimal seminggu sekali jika mau silahkan setiap hari melakukan back up.

 Pada postingan sebelumnya cara membuat tool tip yang bisa berjalan untuk postingan ini akan membahas tentang cara membuat Backup Database Ms Access Menggunakan VB. Kita akan menggunakan fungsi Copy File untuk melakukan backup database ms access. Bagaimanakah caranya...? Ikutilah langkah-langkahnya sebagai berikut ini

  1.  Buka visual basic 6 kemudian desainlah sebuah form seperti gambar berikut ini :

    Tampilkan Gambar



  2. Jika sudah selesai mendesainnya selanjutnya tinggal nulis kodenya. Di sini saya memakai database dengan nama "DB_MHS.mdb". Tulislah koding berikut ini dengan benar :

    Option Explicit
    '----Fungsi API untuk browse folder
    Private Declare Function SHBrowseForFolder Lib _
    "shell32.dll" (bBrowse As BrowseInfo) As Long
    Private Declare Function SHGetPathFromIDList Lib _
    "shell32.dll" (ByVal lItem As Long, ByVal sDir As String) As Long
    '------------------------
    Private Type BrowseInfo
    hWndOwner As Long
    pidlRoot As Long
    sDisplayName As String
    sTitle As String
    ulFlags As Long
    lpfn As Long
    lParam As Long
    lImage As Long
    End Type

    Private Function BrowseFolder() As String
    Dim Info As BrowseInfo
    Dim lngItem As Long
    Dim strDir As String
    'mengembalikan nama folder
    Info.ulFlags = 1
    lngItem = SHBrowseForFolder(Info)
    If lngItem Then
    strDir = Space$(260)
    If SHGetPathFromIDList(lngItem, strDir) Then
    'mendapatkan nama folder
    BrowseFolder = Left$(strDir, InStr(strDir, ChrW$(0)) - 1)
    Else
    BrowseFolder = vbNullString
    End If
    End If
    End Function

    '----Kode Tombol Pilih Folder
    Private Sub CmdPilih_Click()
    Label1.Caption = BrowseFolder
    End Sub

    '---Tombol Keluar
    Private Sub CmdKeluar_Click()
    Unload Me
    End Sub

    '---koding Tombol Backup---
    Private Sub CmdBackup_Click()
    If Label1.Caption = "" Then
    MsgBox "Klik Tombol 'Pilih Folder' Dulu...!," & vbCrLf & "" _
    & "Untuk Memilih Lokasi Penyimpanan", vbCritical, " .:: Peringatan ::. "
    Exit Sub
    End If
    '------------------------
    On Error Resume Next
    Dim asal As String
    Dim Tuju As String
    Dim i As Integer
    Dim j As Integer
    Label2.Width = 0
    '-----------------------
    asal = App.Path + "\DB_MHS.mdb"
    Tuju = Label1.Caption
    'mengubah nama file databasenya menjadi format tgl sesuai dg tgl backup ex:DB_MHS_01-10-2014.mdb
    Tuju = Tuju + "\DB_MHS" & "_" & Format$(Date, "DD-MM-YYYY") & ".mdb"
    CmdPilih.Enabled = False
    CmdBackup.Enabled = False
    CmdKeluar.Enabled = False
    Label2.Visible = True
    For i = 0 To 4800
    Label2.Width = i
    For j = 1 To 50: DoEvents: Next j
    Next i
    '-Proses Copy File Database--------------
    FileCopy asal, Tuju
    DoEvents
    MsgBox "Backup database Sukses...", vbInformation, "Back Up Data"
    '------------------------
    CmdPilih.Enabled = False
    CmdBackup.Enabled = False
    CmdKeluar.Enabled = True
    Label2.Visible = False
    End Sub

  3. Jika sudah selesai silahkan di simpan kemudian di run semoga berhasil. Jika berhasil tampilannya seperti gambar berikut ini

    Tampilkan Gambar




  4. Selesai. Jika anda tidak ingin ribet nulis kode dan mendesain form nya silahkan download sourcode di link berikut ini semoga bermanfaat dan membantu. Pada postinga berikut nya saya akan membuat tutorial cara membuat Restore Database Ms Access dengan VB. Di tunggu y...

 



    Tags:
    Backup Database Ms Access Menggunakan VB, Backup database, Cara Backup database dengan vb,cara backup dan restore database

    Membuat Sebuah Tool Tips Bisa Berjalan

    Membuat Sebuah Tool Tips Bisa Berjalan.  Pernahkah anda melihat sebuah tool tip yang dapat berjalan pada sebuah aplikasi atau program.? Jika pernah bagimana Cara Membuat Sebuah Tool Tips Bisa Berjalan ?
    Pada kesempatan kali ini saya akan berbagi tips dan trik membuat sebuah tool tip yang bisa berjalan, pada setingan defaultnya sebuah tool tip itu tidak bisa berjalan alias diam dengan sedikit trik sebuah tool tips dapat berjalan sehingga aplikasi yang kita buat tambah menarik dan tidak membosankan.

    Sebernarnya caranya sangat mudah dan tidak begitu rumit kodingnya. Sebagai contoh kita akan membuat sebuah tool tip pada sebuah commandbutton. Siapkan sebuah form dan tambahkan sebuah commandbutton jika sudah klik commandbutton nya lalu cari di properties pada bagian bagian ToolTipText nya silahkan anda isi tool tipnya sesuai keinginan anda seperti gambar berikut ini.

    Tampilkan Gambar



    Jika sudah selanjutnya yaitu membuat koding. Buatlah sebuah Function Scrolling seperti berikut ini pada bagian general declarations

    Public Function Scrolling(ByVal obj As Object)
    Dim strText As String
    strText = obj.ToolTipText
    If Len(Trim$(strText)) <> 0 Then
    strText = (Right$(strText, _
    Len(strText) - 1)) & _
    Left$(strText, 1)
    obj.ToolTipText = strText
    End If
    End Function


    kemudian double klik lah commandbutton nya lalu tulislah koding berikut ini pada event mouse_move seperti berikut ini

    Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call Scrolling(Me.Command1)
    End Sub

    Untuk lebih jelasnya lihatlah gambar di bawah ini

    Tampilkan Gambar



    Jika sudah silahkan di running. jika berhasil maka jika kita menaruh cursor pada commandbutton maka muncul tool tipnya dan tool tipnya dapat berjalan atau bergerak dari kanan ke kiri. Seperti gambar berikut ini


    Trik ini dapat di terapkan pada komponen lain tidak hanya commandbutton misalnya kita terapkan pada datagrid,textbox, listbox dan lain sebaginnya. Semoga tutorial ini bermanfaat.





    Tags:
    Cara Membuat Sebuah Tool Tips Bisa Berjalan,Trik Tool Tip,cara mempercantik form dengan tool tip,tool tip bisa bergerak

    Cara Install VB 6 Di Windows 7 Supaya Tidak Error

    Cara Install VB 6 Di Windows 7 Supaya Tidak Error. Pernahkah anda mengalami kegagalan dalam melakukan instalasi visual basic 6.?? Ini adalah pengalaman saya waktu install vb 6 di windows 7. Begini ceritanya Saya melakukan installasi vb 6 di windows 7 berhasil, tapi setelah saya buka vb 6 nya ternyata ada sebagian komponen ocx atau dll tidak dapat di buka alias tidak bisa di register dengan sempurna. Setelah cari-cari di google akhirnya ketemu cara mengatasi hal tersebut. Yaitu sebelum melakukan install vb 6 di windows 7 matikan UAC nya.

    Bagaimanakah cara mematikan UAC nya???
    Silahkan lakukan langkah-langkah berikut ini supaya semua komponennya dapat teregister dengan sempurna. Berikut langkah-langkah mematikan UAC :


  1. Silahkan buka control panel


  2. Silahkan buka user accounts


  3. Klik Change User Account Control settings seperti gambar berikut ini


  4. Tampilkan Gambar




    1. Setelah di klik akan muncul jendela baru seperti gambar berikut ini, perhatikan tombol slidenya


    2. Tampilkan Gambar




    3. Geser slidenya sampai mentok ke bawah seperti nampak pada gambar berikut ini


    4. Tampilkan Gambar





    5. Kemudian restartlah komputer atau laptopnya untuk memberikan efek perubahan di User Accounts Control Setting



    6. Klik kanan pada SETUP.EXE dan pilih  Run As Administrator, maka akan muncul tulisan "On this and other Program Compatibility Assistant warnings", Klik saja "Run Program."
          - Klik Next.
          - Klik "I accept agreement" kemudian Next.
          - Masukan nama dan nama organisa/perusahaan anda(di isi sembarang) kemudia klik Next



    7.  Pilih Custom Setup terus klik Next.



    8. Klik Continue kemudian Ok. Tunggu kurang lebih 2 menit sampai ada pilihan sbb:
      •    Microsoft Visual Basic 6.0
      •    ActiveX
      •    Data Access
      •    Graphics
      Yang lainnya jangan dipilih dan klik saja Continue untuk melanjutkan langkah berikutnya.



    9.  Bila tidak memiliki CD MSDN jangan dicentang k install MSDN nya kemudian klik next dan akan muncul semacam pemberitahuan kekurangannya bila tidak menginstall MSDN, abaikan saja dengan klik Accept.



    10. Klik skip saja pada instalasi Installshield karena ini hanya pelengkap yang sudah sangat usang dan tidak diperlukan lagi.



    11. Klik next lagi untuk melewatkan instalasi Backoffice, VSS dan SNA Server karena tidak begitu penting dan sudah usang pula.



    12. Pada dialog selanjutnya lepaskan centangan "Register Now" dan klik Finish.



    13. Selesai. Silahkan jalankan VB6 anda pada Start>All Program>Microsoft Visual Studio 6


      Setelah itu anda instal Update Service Pack 6 (SP6) dan Update Cumulative SP6 untuk lebih menyempurnakan lagi VB6 anda. Jika ada masih penasaran , anda boleh jalankan setting compability seperti diatas untuk yang kedua kalinya. Selanjutnya HAPPY CODING !!!!

      Catatan:
      - Pada Windows 7 ada hal-hal yang sangat mengganggu kala menjalankan VB 6 ini diantaranya kita susah sekali menarik ulur ukuran form yang kita buat pada penampilan design form. Untuk mengatasi hali ini setelah proses instalasi anda berhasil rubahlah kompatibilitasnya pada IDE executable dengan cara:

      - Gunakan Windows Explorer cari dimana anda menginstall VB6. Biasanya terletak pada C:\Program Files\Microsoft Visual Studio\VB98\
        
      - Klik pakai mouse kanan pada VB6.exe dan pilih property-nya lalu klik pada Compatibility lalu centang semua ini:


        • Run this program in compatibility mode for Windows XP (Service Pack 3)
        • Disable Desktop Composition
        • Disable display scaling on high DPI settings

       Jika belum memiliki master vb6 silahkan download disini



      Tags:
       instalasi vb6 di win7, cara instal vb6 di win seven, vb6 tidak support windows7, vb6 error di windows 7, agar vb6 berjalan baik di windows7,Cara Install VB 6 Di Windows 7 Supaya Tidak Error

      Mengurutkan Data Pada MsFlexgrid

      Mengurutkan Data Pada MsFlexgrid. Pada kesempatan kali ini saya akan berbagi trik cara mengurutkan data yang ada dalam msflexgrid dengan cara double klik maupun klik header kolom msflexgrid yang ingin kita urutkan berdasarkan kolom tersebut. Pada postingan sebelumnya pernah membahas tentang msflexgrid warna selang seling.

      Jadi dengan sedikit trik ini kita dapat mengurutkan data hanya dengan double klik maupun klik header kolom msflexgrid maka datanya akan urut berdasarkan header kolom yang kita pilih. Anda tertarik? Pengen tahu cara Mengurutkan Data Pada MsFlexgrid? Ikutilah langkahnya.

      Tulislah kode berikut ini. jika ingin pengurutan datanya memakai double klik tulislah kode berikut pada event double dan jika menginginkan pada event klik silahkan tulislah kode ini pada event klik.

      Pada contoh ini saya tulis pada event double klik


      Private Sub MSFlexGrid1_DblClick()
      With MSFlexGrid1
      If .MouseRow = 0 Then
      .Col = .MouseCol
      .ColSel = .MouseCol
      If sortedBy = flexSortGenericDescending Then
      .Sort = flexSortGenericDescending
      sortedBy = flexSortGenericDescending
      Else
      .Sort = flexSortGenericAscending
      sortedBy = flexSortGenericAscending
      End If
      End If
      End With
      End Sub
       
       
      jika sudah jangan lupa di simpan untuk mencobanya silahkan di jalankan. Moga berhasil 
      jika kurang jelas silahkan membrikan komentar...
       
       
       
      Tags:
      Mengurutkan Data Pada MsFlexgrid,Mengurutkan data,trik msflexgrid,pengurutan data,source code pengurutan data

      Membuat Nomor Otomatis Dengan Format Tanggal

      Membuat Nomor Otomatis Dengan Format Tanggal. Pada postinga kali ini saya akan berbagi sebuah postingan tentang cara membuat nomor ototmatis dengan format tanggal, pada postingan sebelumnya pernah membahas cara membuat nomor ototmatis.
      Maksud dari nomor otomatis dengan format tanggal adalah enam digit pertama terdiri dari 2 digit tahun 2 digit bulan 2 digit tanggal dan 3 digit terakhir merupakan no urut. Formatnya adalah yymmddxxx.
      Setiap tanggal system komputer kita ganti maka tiga digit terakhir akan dimulai dari 001 walaupun tadinya tiga digit terakhir tersebut sudah mencapai 891. Enam digit dari depan mengikuti tanggal system komputer yang kita pakai.

      Nomor otomatis seperti ini bisa kita gunakan untuk nomor transaksi pada program yang kita buat. Pada contoh kali ini saya akan membuat nim mahasiswa dengan format tanggal ini hanya contoh. silahkan diaplikasikan cara ini sesuai keinginan anda.

      Bagaimanakah cara Membuat Nomor Otomatis Dengan Format Tanggal..? Langkah-langkahnya sebagai berikut ini:

      Buatlah database dengan menggunakan ms access dengan nama DB_MHS dan buatlah tabel denngan nama Tbl_mhs seperti berikut ini

      Tampilkan Gambar



      Kemudian siapkan sebuah form tambahkan empat textbox, tiga commandbutton dan MsFlexgrid yang tampak seperti gambar berikut ini

      Tampilkan Gambar



      Jika sudah tambahkan sebuah modul lalu ketikan kode berikut ini. modul ini berfungsi untuk koneksi ke database

      Public Conn As New ADODB.Connection
      Public RsMhs As ADODB.Recordset

      Public Sub Buka()
      Set Conn = New ADODB.Connection
      Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB_MHS.mdb"
      Conn.CursorLocation = adUseClient
      End Sub

      Kemudian buatlah prosedur nomor otomatis, ketiklah kode berikut ini pada form yang telah kita buat tadi

      Private Sub AutoNumber()
      Call Buka
      Set RsMhs = New ADODB.Recordset
      RsMhs.Open "SELECT * FROM Tbl_mhs WHERE nim in(select max(nim) from Tbl_mhs)order by nim desc", Conn
      RsMhs.Requery
      Dim Urut As String * 9
      Dim Hitung As Long
      With RsMhs
      If .EOF Then
      Urut = Format(Date, "yymmdd") + "001"
      Else
      If Left(!nim, 6) <> Format(Date, "yymmdd") Then
      Urut = Format(Date, "yymmdd") + "001"
      Else
      Hitung = (!nim) + 1
      Urut = Format(Date, "yymmdd") + Right("000" & Hitung, 3)
      End If
      End If
      TxtNim.Text = Urut
      End With
      End Sub

      Jika sudah buatlah prosedur dengan nama AktifGrid yang berguna untuk mengatur msflexgrid kodenya seperti berikut ini

      Private Sub AktifGrid()
      With MSFlexGrid1
      .Cols = 5
      .RowHeightMin = 300

      .Col = 0
      .Row = 0
      .Text = "NO"
      .CellFontBold = True
      .ColWidth(0) = 400
      .AllowUserResizing = flexResizeColumns
      .CellAlignment = flexAlignCenterCenter

      .Col = 1
      .Row = 0
      .Text = "NIM"
      .CellFontBold = True
      .ColWidth(1) = 1200
      .AllowUserResizing = flexResizeColumns
      .CellAlignment = flexAlignCenterCenter

      .Col = 2
      .Row = 0
      .Text = "NAMA MAHASISWA"
      .CellFontBold = True
      .ColWidth(2) = 2500
      .AllowUserResizing = flexResizeColumns
      .CellAlignment = flexAlignCenterCenter

      .Col = 3
      .Row = 0
      .Text = "ALAMAT"
      .CellFontBold = True
      .ColWidth(3) = 2500
      .AllowUserResizing = flexResizeColumns
      .CellAlignment = flexAlignCenterCenter

      .Col = 4
      .Row = 0
      .Text = "JURUSAN"
      .CellFontBold = True
      .ColWidth(4) = 1500
      .AllowUserResizing = flexResizeColumns
      .CellAlignment = flexAlignCenterCenter
      End With
      End Sub

      Kemudian Buatlah prosedure dengan nama TampilGrid untuk menampilkan data ke msflexgrid

      Sub TampilGrid()
      Dim Baris As String
      MSFlexGrid1.Clear
      Call AktifGrid

      MSFlexGrid1.Rows = 2
      Baris = 0
      Call Buka
      Set RsMhs = New ADODB.Recordset
      RsMhs.Open "SELECT * FROM Tbl_mhs ORDER BY nim ASC", Conn, adOpenDynamic, adLockOptimistic

      If RsMhs.BOF Then
      Exit Sub
      Else
      With RsMhs
      .MoveFirst
      Do While Not .EOF
      Baris = Baris + 1
      MSFlexGrid1.Rows = Baris + 1
      MSFlexGrid1.TextMatrix(Baris, 0) = Baris
      MSFlexGrid1.TextMatrix(Baris, 1) = !nim
      MSFlexGrid1.TextMatrix(Baris, 2) = !nama
      MSFlexGrid1.TextMatrix(Baris, 3) = !alamat
      MSFlexGrid1.TextMatrix(Baris, 4) = !jurusan
      .MoveNext
      Loop
      End With
      End If
      End Sub

      Pada bagian form load tuliskan kode berikut ini

      Private Sub Form_Load()
      Call Buka
      Call TampilGrid

      TxtNim = ""
      TxtNama = ""
      TxtAlamat = ""
      TxtJurusan = ""

      TxtNim.Enabled = False
      TxtNama.Enabled = False
      TxtAlamat.Enabled = False
      TxtJurusan.Enabled = False

      CmdSave.Enabled = False
      End Sub

      Jika sudah silahkan double klik tombol new kemudian ketikan kode berikut ini

      Private Sub CmdNew_Click()
      '' //Memanggil prosedure penomoran otomatis
      Call AutoNumber
      '-----------
      TxtNama.Enabled = True
      TxtAlamat.Enabled = True
      TxtJurusan.Enabled = True

      CmdNew.Enabled = False
      CmdSave.Enabled = True

      TxtNama.SetFocus
      End Sub

      Kemudian tulislah kode untuk simpan data dengan cara double klik tombol save kemudian ketikan kode berikut ini

      Private Sub CmdSave_Click()
      If TxtNama = "" Or TxtAlamat = "" Or TxtJurusan = "" Then
      MsgBox "Ada Data Yang Belum Diisi...!," & vbCrLf & "" _
      & "Mohon Data Dilengkapi Dulu", vbCritical, "Peringatan"
      Exit Sub
      Else
      Dim SqlAdd As String
      SqlAdd = "INSERT INTO Tbl_mhs(nim,nama,alamat,jurusan)values" _
      & "('" & TxtNim & "','" & TxtNama & "','" & TxtAlamat & "','" & TxtJurusan & "')"
      Conn.Execute (SqlAdd)
      End If
      Call TampilGrid

      TxtNim = ""
      TxtNama = ""
      TxtAlamat = ""
      TxtJurusan = ""

      TxtNama.Enabled = False
      TxtAlamat.Enabled = False
      TxtJurusan.Enabled = False

      CmdSave.Enabled = False
      CmdNew.Enabled = True
      End Sub

      Jika sudah semua silahkan di run. jika berhasil maka akan tampak seperti gambar berikut ini

      Tampilkan Gambar





      Jika anda tidak ingin ribet silahkan download source codenya di link berikut. semoga dapat bermanfaat





      Tag:
      auto number,cara membuat nomor otomatis,cara membuat nomor otomatis dengan format tanggal,nomor otomatis di vb 6,cara mudah membuat nomor otomatis di vb

      Cara Download Di Blog Ini

      Seiring bergulirnya waktu, kini Tusfiles.net telah berganti theme/ tema/ template/ bungkus/ tampilan. TusFiles yang kita kenal adalah tempat berbagi file gratis yang sudah populer di kalangan pengunduh di seluruh dunia, salah satu yang terbesarnya adalah dari Indonesia.
      Banyak juga yang kebingunan untuk mengunduh ketika mereka dihadapkan dengan tampilan baru TusFiles V3. Tapi bila anda selalu paham dan cermat dalam hal membaca trik jebakan iklan, hal kebingungan itu harusnya tidak terjadi.
      Beberapa yang masih tetap ada dan mungkin akan selalu ada pada TusFiles adalah ceklis untuk menginstall Downloader, tombol sesungguhnya masih menggunakan bentuk yang kecil, iklan pop-up yang pastinya sudah siap muncul ketika kita menyentuh link di sana.
       Cara download di blog ini caranya sebagai beriku ini: setelah anda melakukan klik download maka akan muccul jendela baru kemudian tungggu lah 5 detik maka akan muncul tulisan Ads Skip pada pojok kanan atas klik lah tulisan tersebut maka akan di arahkan ke situs tusfiles berikut cara download source codenya dari situs tusfiles:
      1. Asumsikan anda sudah masuk di halaman unduh file yang anda maksud, misal dengan url tusfiles.net/abc123kfj

      2. Langkah yang pertama yang harus anda lakukan adalah menghilangkan ceklis atau centang di bagian bawah halaman yang bertuliskan "Use our download manager.."
      Tusfiles New
      Tusfiles New
      3. Tombol Download sesungguhnya seperti biasa, bukanlah yang besar maupun yang menonjol. Link unduh sebenarnya adalah yang bertuliskan nama file yang akan anda unduh seperti gambar no 2 di atas.
      Selamat mencoba dan semoga bermanfaat.

      Enkripsi Tabel Ms Access Menggunakan Visual Basic

      Enkripsi Tabel Ms Access Menggunakan Visual Basic.  Pasti anda pernah membuat sebuah aplikasi dengan menggunakan database MS Access, apakah tabel untuk akses ke aplikasi tersebut sudah di enkripsi ? supaya tidak sembarangan orang mengetahui user name dan password untuk login ke aplikasi tersebut. Tapi kebanyakan aplikasi yang dibuat tabelnya tidak di enkripsi, jika seseorang tidak bisa login ke aplikasi tersebut dapat dengan mudah membuka databasenya dengan cara membuka tabel untuk login, di situ dapat menemukan user dan passwordnya. Dan aplikasi yang kita buat dapat dengan mudah di buka oleh sembarang orang. Pada postingan sebelumnya saya pernah membahas cara menggunakan enkripsi MD5 pada database MySQL.

      Dalam postingan ini akan membahas cara enkripsi tabel ms access sehingga tidak dengan mudah aplikasi kita dibobol. Dengan cara menambakan beberapa karakter setiap karakter yang kita inputkan ke dalam textbox. pada tutorial Enkripsi Tabel Ms Access Menggunakan Visual Basic ini saya akan memberi contoh pada penggunaan input data user yang meliputi input user name dan password, kita akan mengenkripsi kedua field tersebut. Berikut langkah-langkahnya:

      Pertama buatlah sebuah database dari ms access silahkan beri nama test.mdb atau yang lain sesuai selera kemudian buatlah sebuah tabel dengan nama pengguna dengan dua field yaitu nama dan pass.seperti gambar berikut ini.
      Tampilkan Gambar



      Kedua bukalah visual basic 6 dan desainlah sebuah form siapkan 3 textbox dan dua commandbutton seperti form berikut ini

      Tampilkan Gambar


      Ketiga yaitu penulisan koding. Jika sudah selesai silahkan ketik koding seperti berikut ini jangan sampai ada yang salah ketik.

      Buatlah sebuah modul dengan cara klik menu project- add modul lalu ketikan kode berikut ini

      Public Conn As New ADODB.Connection
      Public RsUser As ADODB.Recordset
      Public sNama As String
      Public sPassword As String

      Public Sub Buka()
      Set Conn = New ADODB.Connection
      Set RsUser = New ADODB.Recordset
      Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb"
      End Sub

      Ketikan kode ini pada text1 sebagi inputan nama

      Private Sub Text1_KeyPress(KeyAscii As Integer)
      If KeyAscii <> 13 Then
      'untuk mengubah huruf kecil menjadi besar
      KeyAscii = Asc(UCase(Chr(KeyAscii)))
      'enkripsi dengan menambah karakter keyascii 29 karakter
      sNama = sNama & Chr(KeyAscii + 29)
      End If
      End Sub

      Lalu ketikan kode di bawah ini pada Text2

      Private Sub Text2_KeyPress(KeyAscii As Integer)
      If KeyAscii <> 13 Then
      'untuk mengubah huruf kecil menjadi besar
      KeyAscii = Asc(UCase(Chr(KeyAscii)))
      'enkripsi dengan menambah karakter keyascii 45 karakter
      sPassword = sPassword & Chr(KeyAscii + 45)
      End If
      End Sub

      Kemudian tulislah kode ini pada commandbutton yang digunakan untuk menyimpan data

      Private Sub Command1_Click()
      Call Buka
      If Text2.Text <> Text3.Text Then
      pesan = MsgBox("Pasword Tidak Sama, Ulangi Lagi...!", vbCritical, "Perhatian")
      Exit Sub
      Else
      Dim SQLAdd As String
      SQLAdd = " INSERT Into pengguna (nama,pass)values('" & sNama & "','" & sPassword & "')"
      Conn.Execute SQLAdd
      MsgBox "Penambahan User Baru Berhasil....", vbInformation, "Informasi..."
      End If
      Text1.Text = ""
      Text2.Text = ""
      Text3.Text = ""
      End Sub

      Jika sudah silahkan dijalankan dan diisi datanya. jika berhasil maka tabelnya jika dibuka hasilnya seperti berikut ini. semoga bermanfaat

      Tampilkan Gambar



      Jika menginngnkan source codenya silahkan download link dibawah ini. dalam source code tersebut sudah ada form untuk login ke menu utama dengan menggunakan tabel yang telah dienkripsi.





      Tags:
      Enkripsi, Enkripsi Tabel Ms Access Menggunakan Visual Basic,Enkripsi MD5,database,Pengamanan database,Password Login,enkripsi tabel,enkripsi database