Salam Sejahtra buat kita semua , Pertama tama marilah kita ucapkan Puji syukur atas kehadirat Tuhan Yang Maha Esa yang mana masih memberikan Rahmat dan limpahannya . Baiklah saya di sini akan memberikan Tutorial membuat Form Mahasiswa secara singkat Di Microsoft Visual studio 8 . Langsung saja cekidot
Langkah pertama Buatlah databasenya di sini saya menggunakan XAMPP dan jika ada yang belum mengerti membuat database silahkan
klick
disini
Buatlah nama databasenya login
Buatlah conect antara database dengan vbnya dengan cara buka ODBC 5.1
Click Add >> MySQL ODBC 5.1 DRIVER
Setelah itu tekan ok
Setelah selesai sekaranng kita open vb 2008
Click file> newproject> buat nama filenya mahasiswa
Pertama tama kita buat dulu koding koneksinya
Click Project > Add module buat dengan nama ModKoneksi(catatan saya memakai conector Odbc 5.1)
KODING KONEKSI
Imports System.Data.Odbc
Module ModKoneksi
Public conn As OdbcConnection
Public da As OdbcDataAdapter
Public dr As OdbcDataReader
Public ds As DataSet
Public cmd As OdbcCommand
Public str As String
Public Sub koneksi()
str = "Driver={MYSQL ODBC 5.1 Driver};database=login;server=localhost;uid=root"
conn = New OdbcConnection(str)
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
End Sub
End Module
Setelah modul koneksi selesai kita membuat Form Mahasiswanya
Buat lah desainya seperti ini
RUBAH TEXT NYA
Caranya pilih View lalu pilih Properties window pilih label atau button lalu ubahlah Text nya
Rubah variable nya
Caranya pilih View lalu pilih Properties window pilih textbox lalu ubahlah (name) nya
Untuk menambah Item pada Combo Box dengan cara click kanan pada combo box lalu edit items..
Setelah tampilan Selesai
Imports System.Data.Odbc
Dim Lhr As Object
Dim Jk As Object
Click 2 kali pada Button lalu masukkan kodingnya
KODING SIMPAN
Try
Call koneksi()
Dim Jk As New TextBox
If (Lk.Checked) Then
Jk.Text = "Laki-laki"
Else
Jk.Text = "Perempuan"
End If
Dim da As New OdbcDataAdapter
Dim cmd As New OdbcCommand("insert into mahasiswa values ('" & TxtNim.Text & "','" & TxtNama.Text & "','" & TxtAlamat.Text & "','" & TxtTl.Text & "','" & Format(DTP.Value, "yyyy-MM-dd") & "','" & Jk.Text & "','" & TxtAgama.Text & "','" & TxtNoTelp.Text & "')", conn)
da.InsertCommand = cmd
da.InsertCommand.ExecuteNonQuery()
Call atur()
MsgBox("Data Berhasil Disimpan")
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub
KODING HAPUS
If TxtNim.Text = "" Then TxtNim.Focus() : Exit Sub
Try
Dim da As New OdbcDataAdapter
Dim cmd As New OdbcCommand("delete from mahasiswa where NIM='" & TxtNim.Text & "'", conn)
da.InsertCommand = cmd
da.InsertCommand.ExecuteNonQuery()
Call atur()
MsgBox("Data Berhasil Dihapus")
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub
KODING CANCEL
Call atur()
KODING UPDATE
If TxtNim.Text = "" Then TxtNim.Focus() : Exit Sub
Try
Dim Jk As New TextBox
If (Lk.Checked) Then
Jk.Text = "Laki-laki"
Else
Jk.Text = "Perempuan"
End If
Dim da As New OdbcDataAdapter
Dim cmd As New OdbcCommand("update mahasiswa set Nama='" & TxtNama.Text & "',Alamat='" & TxtAlamat.Text & "', Tempat_Lahir='" & TxtTl.Text & "',Tanggal_Lahir='" & DTP.Text & "',Jenis_Kelamin='" & Jk.Text & "',Agama='" & TxtAgama.Text & "',No_Telp='" & TxtNoTelp.Text & "'where NIM='" & TxtNim.Text & "'", conn)
da.InsertCommand = cmd
da.InsertCommand.ExecuteNonQuery()
Call atur()
MsgBox("Data Berhasil Diubah")
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub
KODING KELUAR
Me.Close()
KODING DATA GRID VIEW
Try
TxtNim.Text = dgv.Item(0, dgv.CurrentRow.Index).Value
TxtNama.Text = dgv.Item(1, dgv.CurrentRow.Index).Value
TxtAlamat.Text = dgv.Item(2, dgv.CurrentRow.Index).Value
TxtTl.Text = dgv.Item(3, dgv.CurrentRow.Index).Value
DTP.Text = dgv.Item(4, dgv.CurrentRow.Index).Value
TxtAgama.Text = dgv.Item(6, dgv.CurrentRow.Index).Value
TxtNoTelp.Text = dgv.Item(7, dgv.CurrentRow.Index).Value
BtSimpan.Enabled = False
TxtNim.Enabled = False
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub
KODING FORM LOAD
klick 2 kali formnya masukkan koding ini
Call koneksi()
Call atur()
Call tampilkan()
KODING ATUR DAN TAMPILKAN
Sub tampilkan()
da = New OdbcDataAdapter("select * from mahasiswa", conn)
ds = New DataSet
ds.Clear()
da.Fill(ds, "mahasiswa")
dgv.DataSource = (ds.Tables("mahasiswa"))
dgv.ReadOnly = True
End Sub
Sub atur()
BtSimpan.Enabled = True
TxtNim.Text = ""
TxtNama.Text = ""
TxtAlamat.Text = ""
TxtTl.Text = ""
TxtAgama.Text = ""
TxtNoTelp.Text = ""
Call koneksi()
Call tampilkan()
End Sub
Baiklah sekian tutorial dari saya jika ada yang kebingungan harap koment di bawah.
