Cara Insert / Koneksi ke Database Access di VB net / Visual Studio 2008

Cara Insert / Koneksi ke Database Access di VB net / Visual Studio 2008

Hallo sahabat blogger semua, udah lama ne ane gak posting., hehe
maklum sibuk.,

Kali ini maw berbagi tentang VB Net, Semua ini berawal dari pengalaman saya, udah 2-3 minggu coding VB. Tapi gak connect juga ke Database Access.
 Ok, langsung aja ya, check it out.

langkah-langkah nya yaitu :
1. Buat design terlebih dahulu di VB Net / Visual Studio 2008 seperti di gambar ini.

Buatlah 7 TextBox  seperti di desain.  
                                       1. Name : TextBoxt1.Text
                                       2. Name : TextBoxt2.Text
                                       3. Name : TextBoxt3.Text
                                       4. Name : TextBoxt4.Text
                                       5. Name : TextBoxt5.Text
                                       6. Name : TextBoxt6.Text

                                       7. Name : TextBoxt7.Text

Buatlah 1 Buah DataGridView dengan properties Name nya : dgv
Buatlah 2 Buah Button ( Simpan dan Exit )
Buatlah 7 Buah Label ( Nip Dosen, Nama, Alamat, jenis Kelamin, Golongan, Jabatan, Usia )
tambah 1 Label lagi untuk Title ( LATIHAN DATABASE ).



Selanjutnya jangan lupa buat Database Access, Soalnya kalau database gak di buat, percuma donk.,., !   hahahhahah
  Lanjuuuttttttttt...........

Di latihan kali ini ane pakai Access 2007, tapi save file access nya dirubah ke 2003. Sehingga menjadi .mdb  bukan .accdb.

Buat desain di database access nya, seperti gambar di bawah ini....
Ingat, jangan sepelekan nama Database dan nama Tabel, Ingat baik2 ya friends.,.,.,.  :D  :D

Disini nama Database ane ( latihan ) dan nama Tabel ane  juga ( latihan ).
Ingaaaaaat lagi, huruf besar di nama database dan tabel berpengaruh...  Hati - hati ...!






jangan salah juga ya di Data Type nya... sesuaikan..

Lanjutt.

Sekarang Kita buka program Visual Studio lagi.
Kita akan mulai konfigurasi script nya, 
Setelah di Buka.
Double klik form yang sudah di desain tadi.
kemudian masukkan script berikut ini
Dim con As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand

 di bagian paling atas, di bawah kalimat  Public Class Form1
seperti gambar dibawah ini.. yang di dalam kotak merah.






Lanjut lagi Brother or sis...

Double Klik lagi form yang sudah di buat tadi.

Kemudian di bagian form_load kalau gak salah nama nya, Pokok nya, masukkan aja dech script di bawah ini..

  con.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source= " & Application.StartupPath & "\latihan.mdb"

        Me.RefresData()

        TextBox1.Focus()
    End Sub
    Public Sub RefresData()
        If Not con.State = ConnectionState.Open Then
            con.Open()
        End If

        Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM latihan ORDER BY Nip_Dosen", con)
        Dim dt As New DataTable

        da.Fill(dt)
        Me.dgv.DataSource = dt

        con.Close()

    End Sub

Lihat Image ya....  :)

Penjelasan.

Kata latihan.mdb adalah nama database yang sudah anda buat tadi.
kemudian kata FROM latihan  adalah nama tabel.
Lanjuttt...

Double KLik Button Simpan. Maka akan masuk ke bagian script.
Kemudian masukkan script di bawah ini.



If Not con.State = ConnectionState.Open Then
            con.Open()
        End If

        cmd.Connection = con

        cmd.CommandText = "INSERT INTO latihan(Nip_Dosen , Nama , Alamat , Jenis_Kelamin , Golongan , Jabatan , Usia)" & _
        "VALUES('" & Me.TextBox1.Text & "','" & Me.TextBox2.Text & "','" & Me.TextBox3.Text & "','" & Me.TextBox4.Text & "','" & Me.TextBox5.Text & "','" & Me.TextBox6.Text & "','" & Me.TextBox7.Text & "')"

        cmd.ExecuteNonQuery()
        Me.RefresData()

        con.Close()
    End Sub

Lihat Image ya...

Penjelasan .

kata latihan adalah nama tabel.
Kata ( Nip_Dosen, Nama, alamat, Jenis_ Kelamin, Golongan, jabatan, Usia)  adalah kata yang sama dan sesuai seperti yang ada di database.
Ingat huruf kecil dan besar memepengaruhi. Jangan Sampai Salah.


Lanjut, Double Klik Button Exit, yang sudah di buat tadi. Maka akan masuk ke bagian script.
Masukkan code   Me.Close ( )  atau End

Lanjut lagi ya, capek ne, kan ane ntar juga maw istirahat and mkn bro.,., :D
masih banyak lagi yang maw di tulis. :D
Tapi gak susah kox, Sekarang semua script sudah selesai.. Kita tinggal Connect ke database aja lgi.. :D

Siaaap... Mulai..

Nah, dibagian Menu menu yang ada di Program Visual Studio 2008 kan ada menu Data tu,
Klik Data, pilih Add New Data Source...

Lihat Image aja dech..
 

Maka Akan tampil gambar di bawah ini...


Pilih Database, Klik Next


Nah, Kemudian, akan tampil gambar di bawah ini...

Klik New Connection.

maka akan tampil gambar berikut ini...

Klik Browse, Pilih Databse dimana tempat anda menyimpan nya tadi...... Jika Sudah, Klik Test Connection, Klik OK, Klik OK lagi.



nah, Kemudian di Bagian di bawah ini...  Klik aja Cancel..
Gak pa2 kox... :D




Selesai dech...
Sekarang anda tinggal menjalankan Program nya, gak perlu kan ane tampilkan gambar cara Debug Program nya...,., :D   Gak lah ya.,.,   :D

Bukti...

InsyaAllah, jika anda hati2, dan mengikuti tutorial dengan benar Program akan Jalan..
Selamat Belajar, siap2 buat UTS besok...

Salam Blogger...!  Twikkel
Growing With Innovation