I.
Cara
Mengaktifkan WampServer
1. Klik
Start Pada Desktop Komputer
3. Klik
Start Wamp Server
4. Klik
Icon Warm Server di Kanan Bawah Start Bar, pilih Start All Service untuk
mengaktifkan semua layanan Wamp Server
Gambar1.
Mengaktifkan All Service
II.
Cara Membuat
Database dengan phpMyAdmin
1. Klik
Icon Warm Server di Kanan Bawah Start Bar, klik phpMyAdmin
Gambar
2. Tampilan PHP MyAdmin
2. Langkah
Selanjutnya Buat Database baru, ketikkan nama database di TextBox Create new
Database dan Klik Tombol Create
Gambar
3. Membuat Database Baru
3. Berikutnya
ketikkan nama tabel dan berapa jumlah Field yang akan digunakan, dan klik
tombol Go
Gambar 4. Membuat
Tabel Baru
4. Ketikkan
Field-Field yang diperlukan untuk pembuatan tabel, tentukan Type dari
masing-masing Field dan juga tentukan Length dari setiap field
Gambar
5. Menentukan Field name, Type dan Length
5. Setelah
semua Field, Type dan Length ditentukan klik tombol Save
III.
Cara
Melakukan koneksi menggunana ODBC
Setelah kita
mempunyai database dan tabel selanjutnya kita membuat koneksi menggunakan MySQL
ODBC 3.51 Driver, MySQL ODBC inilah nantinya yang akan menghubungkan antara database
dengan program Visual Basic, langkahnya sebagai berikut :
1. Klik
Start pada desktop komputer dan klik Control Panel
2. Pada
jendela Control Panel klik 2 x pada Administrative Tool
Gambar
6. Jendela Control Panel
3. berikutnya
Klik 2 x pada Data Source (ODBC), kemudian setelah tampil Jendel ODBC Data
Source Administrator klik Tombol Add
Gambar
7. ODBC Data Source Administrator
4. Berikutnya
akan muncul jendela Create New Data Source, pada jendela tersebut Pilih MysQL
ODBC 3.51 Driver, biasanya terletak di barisan bawah, dan klik tombol Finish
Gambar
8. Jendela Create New Data Source
5.
Pada Jendela MySQL ODBC 3.51 Driver, ketikkan Nama Data
Source pada TextBox Data Source Name, ketikkan juga Nama Database pada TextBox
Database Name, dan Nama User Pada TextBox User.
Data
Source Name : DsnDataSiswa
Database
Name : DbDataSiswa
User : root
Gambar
9. Mengisi DSN Configuration
6. Untuk
menguji apakah koneksi sudah bagus atau belum, klik tombol Test Data Source,
jika muncul pesan Connected Successfully, klik tombol OK pada jendela jendela
yang terbuka
Gambar
10. Test Koneksi
IV.
Bekerja
Dengan VB.Net 2010
1. Aktifkan
Vb.Net 2010
2. Desain
Form seperti gambar berikut :
Tabel
1. Properties Object
No
|
Object
|
Properties
|
Value
|
1
|
Text Box
|
Name
Text
|
TextBox1
Dikosongkan !
|
2
|
Text Box
|
Name
Text
|
TextBox 2
Dikosongkan !
|
3
|
Text Box
|
Name
Text
|
TextBox 3
Dikosongkan !
|
4
|
Text Box
|
Name
Text
|
TextBox 4
Dikosongkan !
|
5
|
Button
|
Name
Text
|
Button1
Simpan
|
6
|
Button
|
Name
Text
|
Button2
Koreksi
|
7
|
Button
|
Name
Text
|
Button3
Hapus
|
8
|
Button
|
Name
Text
|
Button4
Keluar
|
9
|
Data Grid View
|
Name
|
DGV
|
3. Dibagian
paling atas text editor (diatas Public Class Form1), ketikkan perintah berikut
:
Imports
System.Data.Odbc
Imports
System.Data.OleDb
4. Dibawah
public Class Form1, ketikkan perintah berikut ini :
Dim Conn As OdbcConnection
Dim da As OdbcDataAdapter
Dim ds As DataSet
Dim Str As String
Dim cmmd As OdbcCommand
Dim dReader
As OdbcDataReader
Sub
Koneksi()
Str = "Driver={MySQL
ODBC 3.51 Driver};database=dbdatasiswa;server=localhost;uid=root"
Conn = New
OdbcConnection(Str)
If
Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
End Sub
Sub
tampil()
Koneksi()
da = New
OdbcDataAdapter("Select
* from Tblsiswa", Conn)
ds = New
DataSet
ds.Clear()
da.Fill(ds, "Tblsiswa")
DGV.DataSource = (ds.Tables("Tblsiswa"))
End Sub
Sub
bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox1.Focus()
Button2.Enabled = False
Button3.Enabled = False
End Sub
5. Double
Click pada Form1 dan ketikkan coding berikut :
Private Sub Form1_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
tampil()
bersih()
End Sub
6. Double
Click pada Button1 dan ketikkan coding berikut :
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
Dim sql
As String
Koneksi()
sql = "Insert
into Tblsiswa(Nis, Nama, Kelas, Alamat) values " & _
"('"
& TextBox1.Text & _
"','"
& TextBox2.Text & _
"','"
& TextBox3.Text & _
"','"
& TextBox4.Text & "')"
cmmd = New
OdbcCommand(sql, Conn)
dReader = cmmd.ExecuteReader
tampil()
bersih()
End Sub
7. Double
Click pada Button2 dan ketikkan perintah berikut ini :
Private Sub Button2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button2.Click
Dim sql
As String
Koneksi()
sql = "Update
Tblsiswa Set nama = '" & TextBox2.Text & _
"',
Kelas = '" & TextBox3.Text & _
"',
Alamat = '" & TextBox4.Text & _
"'
Where Nis = '" & TextBox1.Text & "'"
cmmd = New
OdbcCommand(sql, Conn)
dReader = cmmd.ExecuteReader
tampil()
bersih()
End Sub
8. Double
Click pada Button3 dan ketikkan coding berikut :
Private Sub Button3_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button3.Click
Dim sql
As String
Koneksi()
sql = "Delete
From Tblsiswa Where Nis = '" & TextBox1.Text & "'"
cmmd = New
OdbcCommand(sql, Conn)
dReader = cmmd.ExecuteReader
tampil()
bersih()
End Sub
9. Double
Click pada Button4 dan ketikkan coding berikut :
Private Sub Button4_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button4.Click
Dim
pesan As Byte
pesan = MsgBox("Mau
Keluar ?", MsgBoxStyle.YesNo, "Pesan")
If
pesan = vbYes Then
Application.Exit()
End If
End Sub
10. Double
Click Textbox1 dan tukar Event-nya menjadi KeyPress, dan ketikkan coding
berikut :
Private Sub TextBox1_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim sql
As String
If
e.KeyChar = Chr(13) Then
Koneksi()
sql = "Select
* From tblsiswa Where nis = '" & TextBox1.Text & "'"
cmmd = New
OdbcCommand(sql, Conn)
dReader = cmmd.ExecuteReader
If
dReader.Read Then
TextBox2.Text = dReader(1)
TextBox3.Text = dReader(2)
TextBox4.Text = dReader(3)
Button2.Enabled = True
Button3.Enabled = True
End
If
End If
End Sub
0 comments:
Post a Comment