Perangkat Lunak Yang Diperlukan :
1. Xampp
2. mysql-connector-odbc-3.51.30-win32
3. Visual Studio 2010
Langkah –Langkah :
1. Buat database dengan nama db_mahasiswa
2. Buat tabel dengan nama mahasiswa
Field
|
Type
|
Size
|
Nim
|
Int
|
8
|
Nama
|
Varchar
|
25
|
Agama
|
Varchar
|
10
|
prodi
|
varchar
|
25
|
3. Desain form seperti berikut :
4. Buat modul baru dengan cara
klik menu Project pilih Add Module
5. Ketikkan script berikut kedalam module
Imports System.Data.Odbc
Module Module1
Public con As New OdbcConnection
Public daData As New OdbcDataAdapter
Public dsData As New DataSet
Public Query As String
Sub Koneksi()
Dim str As String
str = "driver={MySql ODBC 3.51
Driver};Database=db_mahasiswa;server=localhost;uid=root;password=;"
con = New OdbcConnection(str)
If con.State = ConnectionState.Closed
Then
con.Open()
End If
End Sub
End Module
6. Pada Form1 ketikkan script berikut di General
Imports System.Data.Odbc
7. Masukkan script berikut (untuk
menampilkan data mahasiswa dan untuk membersihkan form) di dalam Public Class Form1
Sub TampilDataMahasiswa()
'untuk menampilkan data mahasiswa
Query = "select * from mahasiswa " 'Perintah SQL untuk menampilkan data mahasiswa dari tabel
mahasiswa
daData = New OdbcDataAdapter(Query,
con)
dsData = New DataSet
daData.Fill(dsData)
DataGridView1.DataSource = dsData.Tables(0)
End Sub
Sub BersihMahasiswa()
'bersih
txtnim.Text
= ""
txtnama.Text = ""
txtagama.Text = ""
txtprodi.Text = ""
txtnim.Focus() 'fokus ke nim
End Sub
8. Ketikkan script
berikut di Form Load ( Double klik
di form)
Call Koneksi()
Call TampilDataMahasiswa()
9. Ketikkkan Script berikut di tombol Simpan
Dim nim
As Integer
Dim
nama, agama, prodi As String
nim = Val(txtnim.Text)
nama = txtnama.Text
agama = txtagama.Text
prodi = txtprodi.Text
Query = "insert
into mahasiswa(nim, nama, agama, prodi) values ('" & nim & "','" & nama & "','" & agama & "','" & prodi & "')"
daData = New
OdbcDataAdapter(Query, con)
dsData = New
DataSet
daData.Fill(dsData)
MsgBox("Data
sudah berhasil disimpan")
Call
TampilDataMahasiswa()
Call
BersihMahasiswa()
10.
Ketikkkan Script berikut untuk melakukan
pencarian data, double click pada txtpencarian,
kemudian pilih KeyPress
Masukkan
Script Berikut :
If
e.KeyChar = Chr(13) Then
'lakukan
pencarian berdasarkan nim atau nama
Query = "select
* from mahasiswa where nim like '%" & txtpencarian.Text & "%' OR nama like '%" & txtpencarian.Text
& "%'"
daData = New
OdbcDataAdapter(Query, con)
dsData = New
DataSet
daData.Fill(dsData)
If
dsData.Tables(0).Rows.Count > 0 Then
DataGridView1.DataSource =
dsData.Tables(0)
txtnim.Text =
dsData.Tables(0).Rows(0).Item("nim")
txtnama.Text =
dsData.Tables(0).Rows(0).Item("nama")
txtagama.Text =
dsData.Tables(0).Rows(0).Item("agama")
txtprodi.Text =
dsData.Tables(0).Rows(0).Item("prodi")
Else
MsgBox("Data
tidak ketemu")
DataGridView1.DataSource =
dsData.Tables(0)
End
If
End If
11.
Ketikkkan Script berikut untuk melakukan
perubahan data di tombol ubah
Query = "update
mahasiswa set nama='" & txtnama.Text & "',agama='" & txtagama.Text & "',prodi='" & txtprodi.Text & "' where nim='" & txtnim.Text & "'"
daData = New
OdbcDataAdapter(Query, con)
dsData = New
DataSet
daData.Fill(dsData)
Call
TampilDataMahasiswa()
MsgBox("Data
Sudah diUbah")
12.
Ketikkan script berikut untuk menghapus data di
tombol hapus
Query = "delete
from mahasiswa where nim='" & txtnim.Text & "'"
daData = New
OdbcDataAdapter(Query, con)
dsData = New
DataSet
daData.Fill(dsData)
Call
TampilDataMahasiswa()
MsgBox("Data
Sudah dihapus")
13.
Ketikkan script berikut di tombol bersih
Call
BersihMahasiswa()
Call
TampilDataMahasiswa()
