Blog untuk berbagi ilmu komputer

Monday, May 19, 2014

Pemogramaan Database dengan VB.Net



I.       Cara Mengaktifkan WampServer
1.      Klik Start Pada Desktop Komputer
2.      Klik All Program >Wamp Server
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


Share:

0 comments:

Post a Comment

Blogger templates