Mengkoneksikan Program dengan Database

Selamat Malam para Audience/Audiens...!!!

malam ini Author akan berbagi pengetahuan Author yang tak seberapa ini kepada Audience/Audiens semua...

seperti judulnya, kita akan membahas tentang bagaimana cara mengkoneksikan program menggunakan database...

kita akan menggunakan database Microsoft SQL Server R2 dan juga menggunakan bahasa pemograman Microsoft Visual Studio 2010.

Lanjut...Simak langsung

Koneksi Database sangat penting agar program kita dapat meng-input , save,edit,delete,cancel,ataupun exit data yang ada di database.

Berikut Langkah-Langkahnya Untuk Anda: J

1. Klik Tombol Start Pada Bagian Kiri Layar Monitor Anda (Atau Tekan Logo Windows Yg Terdapat Pada Keyboard). Lalu Klik SQL SERVER MANAGEMENT STUDIO.

(Anda juga dapat mengikuti langkah – langkah seperti gambar di bawah ini)

 

2. Maka Secara Otomatis Anda Akan Berada Pada Tampilan Connect To Server,Anda klik Tanda Panah Yang Terdapat Pada Server Name,Pilih Browse For More (Anda juga dapat mengikuti langkah – langkah sesuai gambar di bawah ini)

3. Arahkan Kursor Anda Pada Gambar Tabung Berwarna Coklat Yang Bertuliskan(Database Engine). Klik Tanda Panah,Pilih Nama Connection Database Sesuai Settingan Computer Anda, (Kebetulan Nama Connection Database Saya Adalah FITRI-PC) Jika Sudah Dipilih,Lalu klik Ok. 

(anda juga dapat mengikuti langkah – langkah sesuai gambar di bawah ini)

4. Pilih Connect,Untuk Melanjutkan Perjuangan Anda Membuat Database  J

(anda juga dapat mengikuti langkah – langkah sesuai gambar di bawah ini)

  

5.Selanjutnya,Klik Kanan Pada Database,Yang Terdapat Pada Bagian Kiri Atas Layar Monitor Anda,Pilih New Database

(anda juga dapat mengikuti langkah – langkah sesuai gambar di bawah ini)

6. Kemudian,Anda dapat Mengisi Nama Database Sesuai Keinginan Anda Lalu Klik Ok (Kebetulan Saya Mencontohkan Nama Database SMK_ISTIQLAL_DELITUA2)

(anda juga dapat mengikuti langkah – langkah sesuai gambar di bawah ini)

7. Selanjutnya,Anda Dapat Mengklik Tanda + yang Terdapat Disebelah Nama Database Yang Telah Anda Buat Tadi. Lalu,Pada Table Anda Klik Kanan & Pilih New Table(Langkah Ini Untuk Membuat Table Pada Database Yang Anda Buat Tadi. (Kebetulan Saya Mencontohkan Nama Database SMK_ISTIQLAL_DELITUA2)

(anda juga dapat mengikuti langkah – langkah sesuai gambar di bawah ini)

8. Setelah Itu Isi Data Table Sesuai Kebutuhan Anda(Kebetulan Di Table Yang Pertama Ini Saya Mencontohkan 6 Data Table(Anda Dapat Mengganti Nama Data Table (Field) Berikut)

(anda juga dapat mengikuti langkah – langkah sesuai gambar di bawah ini)

9. Jika Ada Nama Data Table (Field) Yang Ingin Di Primary Key,Anda Dapat Mengklik Kanan Di Tanda Panah Sebelah Data Table Yang Ingin Di Primary Key Kan,Lalu pilih Set Primary Key

(anda juga dapat mengikuti langkah – langkah sesuai gambar di bawah ini)

10. Jika Data table (Field) Sudah Selesai Di Isi,Anda Dapat Menyimpannya Dengan Cara Klik Gambar Surat Warna Biru Yang Terdapat Pada Bagian Atas Layar Monitor Anda Maka, Secara otomatis Anda Akan Berada Pada Tampilan Choose Name.Selanjutnya,Isilah Nama Table Sesuai Keinginan Anda. (Kebetulan Saya Mengisi Dengan Nama Tabel_Siswa)

(anda juga dapat mengikuti langkah – langkah sesuai gambar di bawah ini)

11. Setelah Data Selesai Di Save Dengan Nama Table Yang Anda Inginkan. Selanjutnya,Anda Dapat Mengklik Tanda + Pada Table Yang Terdapat Pada Bagian Kiri Layar Monitor Anda,Pada Nama Table Yang Telah Anda Buat Tadi Klik Kanan, Pilih Edit Top 200 Rows.

(anda juga dapat mengikuti langkah – langkah sesuai gambar di bawah ini)

12.Isi Nama Data Table (Record) Yang Tertera Pada Tabel Anda.

(anda juga dapat mengikuti langkah – langkah sesuai gambar di bawah ini)

13.Lakukan Hal Yang Sama Pada Table – Table Selanjutnya.    

14.Selesai J

Nah…, Selanjutnya Anda  Tinggal Menghubungkan Database Yang Telah Anda Buat Tadi, Kedalam Visual Studio 2010. Namun, Sebelum Saya Mengajak Anda Untuk Menghubungkan Database Anda Ke VB 2010, Saya Akan Memberi Penjelasan Sedikit Tentang Apa itu Visual Basic 2010 (VB 2010 “Microsoft Visual Studio 2010”) Serta Fungsinya.

Berikut Pemaparannya Untuk Anda. J

Pengertian dan Fungsi Microsoft Visual Studio 2010

Visual basic adalah sebuah bahasa pemrograman yang berpusat pada object (Object Oriented Programming) digunakan dalam pembuatan aplikasi Windows yang berbasis Integerrated Development Enviroment, hal ini menjadikan Visual Basic menjadi bahasa pemrograman yang wajib diketahui dan dikuasai oleh setiap programmer.

Visual Basic  yang merupakan bagian dari Visual Studio. Sifat Visual Basic tidak case sensitif. Selain itu,Visual Basic memiliki segudang fitur dan fasilitas yang memudahkan progammer untuk membuat dan menggembankan suatu aplikasi.

Ok, Sekarang Saya Akan Mengajak Anda Bekerja Di Visual Basic 2010 Atau VB 2010 (Microsoft Visual Studio 2010).

1. Jika Tampilan Vb anda Sama Dengan Saya Maka Lakukanlah hal Yang Sama Seperti Apa Yang Saya lakukan Berikut Ini. Klik Tombol Start Pada Bagian Kiri Layar Monitor Anda (Atau Tekan Logo Windows Yg Terdapat Pada Keyboard). Lalu Klik Microsoft Visual Studio 2010 (Anda juga dapat mengikuti langkah – langkah sesuai gambar di bawah ini)
   
2. Kemudian, Klik File, New, Project (Anda juga dapat mengikuti langkah – langkah sesuai gambar di bawah ini)
   
3. Klik Tanda Panah Pada NET FrameWork, Pilih NET FrameWork 3,5. (Anda juga dapat mengikuti langkah – langkah sesuai gambar di bawah ini)
   
4. .    . Pilih, Windows Forms Application, Jika Anda Ingin Mengganti Tempat Penyimpanan Projeck Anda, Anda Terlebih Dahulu Dapat Membuat Nama Folder Penyimpanan Tempat Projek Anda Dengan Nama & Disk Yang Anda Inginkan, Kemudian Anda Dapat Menggantinya Dengan Cara Klik Browse Pilih tempat Penyimpanan Anda. (Anda juga dapat mengikuti langkah – langkah sesuai gambar di bawah ini)
   
5. Setelah Anda Pilih Tempat Penyimpanan Project Anda, Anda Tinggal Mengkilik Select Folder. (Anda juga dapat mengikuti langkah – langkah sesuai gambar di bawah ini)
   
6. Anda Juga Dapat Mengganti Nama Project Anda Di Name, Kemudia Klik OK. (Anda juga dapat mengikuti langkah – langkah sesuai gambar di bawah ini)
   
7. Selanjutnya, Design Form Yang Telah Ada Pada Tampilan Project Anda, Menggunakan Toolbox. (Anda juga dapat mengikuti langkah – langkah sesuai gambar di bawah ini)
   
8. Anda Dapat Mendesiant Tampilan Form Yang Terdapat Pada Project Anda. Namun, Jika Tampilan Tabel Yang Anda Buat Di Database Lebih Dari 2 Tabel, Sebaiknya anda Menggunakan MenuStrip Untuk Memudahkan Anda Saat Menjalankan Project Anda. (Anda juga dapat mengikuti langkah – langkah sesuai gambar di bawah ini)
   
9. Kemudian, Isi Nama Table Di MenuStip Sesuai Database yang Telah Anda  Kerjakan. (Anda juga dapat mengikuti langkah – langkah sesuai gambar di bawah ini)
   
10. Untuk Memasukkan Table Database Anda Kedalam Project, Anda Buat Lagi Project Baru. klik Project,-->Add windows form,-->windows form,-->Add. (Anda juga dapat mengikuti langkah – langkah sesuai gambar di bawah ini)
    
11. Anda Dapat Mendesaint Project Form Ke 2 Anda, Sesuai Tabel Berikut.

    NAMA CONTROL	PROPERTIES	NILAI
    Form 2	Text   StarPosition	AKADEEMIK CenterScreen
    Label 1	Text	NIS
    Label 2	Text	Nama Siswa
    Label 3	Text	Jenis Kelamin
    Label 4	Text	Jurusan
    Label 5	Text	Alamat
    Label 6	Text	Telephone
    TextBox 1	Name	Txtnis
    TextBox 2	Name	Txtsiswa
    TextBox 3	Name	Txtjk
    TextBox 4	Name	Txtjurusan
    TextBox 5	Name	Txtalamat
    TextBox 6	Name	Txttelephone
    Button 1	Text Name	Save Btnsave
    Button 2	Text Name	Update Btnupdate
    Button 3	Text Name	Delete Btndelete
    Button 4	Text Name	Cancel Btncencel
    Button 5	Text Name	Exit Btnexit
    DataGridView	Name	DGsiswa

    Maka, Hasilnya Akan Tampak Seperti Gambar Berikut.
    
    
    
    
    
    
12. 1.  Selanjutnya, Anda Masukkan Sintax Coddingannya Dengan Cara Klik 2x ViewCode Pada Bagian Kanan Tampilan VB Anda. (Anda juga dapat mengikuti langkah – langkah sesuai gambar di bawah ini)
    
    Ketikan Sintax Berikut Pada Tampilan VB Anda.
    
    
    
    
    (Anda juga dapat mengikuti langkah – langkah sesuai gambar di bawah ini)
    
    
    
    
    Imports System.Data.SqlClient Public Class Form3
    Dim str As String = "data source=(local);initial catalog= SMK_ISTIQLAL_DELITUA2;integrated security=true"
        Dim koneksi As New SqlConnection(str)
        Protected Sub tampilkategori(ByVal xgrid As DataGridView)
            With xgrid
                .ColumnCount = 6
                .Columns(0).Name = "NISN"
                .Columns(1).Name = "NAMA SISWA"
                .Columns(2).Name = "JENIS KELAMIN"
                .Columns(3).Name = "JURUSAN"
                .Columns(4).Name = "ALAMAT"
                .Columns(5).Name = "TELEPHONE"
                .Rows.Clear()
            End With
            Dim ssql As String
            ssql = "select * from Tabel_Siswa"
            Dim comm As New SqlCommand(ssql, koneksi)
            Try
                koneksi.Open()
                Dim myreader As SqlDataReader = comm.ExecuteReader
                If myreader.HasRows Then
                    While myreader.Read
                        Dim baris(6) As String
                        baris(0) = myreader(0) 'NISN'
                        baris(1) = myreader(1) 'NAMA SISWA'
                        baris(2) = myreader(2) 'JENIS KELAMIN'
                        baris(3) = myreader(3) 'JURUSAN'
                        baris(4) = myreader(4) 'ALAMAT'
                        baris(5) = myreader(5) 'TELEPHONE'
                        xgrid.Rows.Add(baris)
                    End While
                End If
    
    
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            Finally
    
    
                koneksi.Close()
            End Try
        End Sub 
    
    
    KLIK FROM (AKADEMIK) 2X
           
        Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Call tampilkategori(DataGridView1)
            Call bersih()
        End Sub
        Sub bersih()
            Txtnis.Text = ""
            Txtsiswa.Text = ""
            Txtjk.Text = ""
            Txtjurusan.Text = ""
            Txtalamat.Text = ""
            Txttelephone.Text = ""
            Btnsave.Enabled = True
            Btnupdate.Enabled = True
            Btndelete.Enabled = True
            Txtnis.Focus()
            Txtnis.Enabled = True
        End Sub
    
    
    KLIK 2X PADA SETIAP BUTTON PADA DESIGN ANDA
    
    
    Button Simpan
    
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            If Txtnis.Text = "" Then
                MsgBox("kode masih kosong", MsgBoxStyle.Information, "perhatian!")
            ElseIf Txtsiswa.Text = "" Then
                MsgBox("kategori masih kosong", MsgBoxStyle.Information, "perhatian!")
            ElseIf Txtjk.Text = "" Then
                MsgBox("keterangan masih kosong", MsgBoxStyle.Information, "perhatian!")
            ElseIf Txtjurusan.Text = "" Then
                MsgBox("keterangan masih kosong", MsgBoxStyle.Information, "perhatian!")
            ElseIf Txtalamat.Text = "" Then
                MsgBox("keterangan masih kosong", MsgBoxStyle.Information, "perhatian!")
            ElseIf Txttelephone.Text = "" Then
                MsgBox("keterangan masih kosong", MsgBoxStyle.Information, "perhatian!")
            Else      
                Dim con As New SqlCommand
                Try
                    koneksi.Open()
                    With con
                        .Connection = koneksi
                        .CommandType = CommandType.Text
                        .CommandText = "insert into Tabel_Siswa values( '" & _
                            Trim(Txtnis.Text) & "','" & _
                            Trim(Txtsiswa.Text) & "','" & _
                            Trim(Txtjk.Text) & "','" & _
                            Trim(Txtjurusan.Text) & "','" & _
                            Trim(Txtalamat.Text) & "','" & _
                            Trim(Txttelephone.Text) & "')"
                        .ExecuteNonQuery()
                    End With
                    MsgBox("data sudah di simpan", MsgBoxStyle.Information, "perhatian")
                Catch ex As Exception
                    MsgBox(ex.Message, MsgBoxStyle.Critical, "error!")
                Finally
                    koneksi.Close()
                End Try
                Call tampilkategori(DataGridView1)
            End If
            Call bersih()
        End Sub
    
    
    Button Delete
    
    
        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            Dim con As New SqlCommand
            Try
                koneksi.Open()
                With con
                .Connection = koneksi
                .CommandType = CommandType.Text
                .CommandText = "delete from Tabel_Siswa where NIS = '" & TextBox6.Text & "'"
                    .ExecuteNonQuery()
                End With
                MsgBox("data sudah di hapus", MsgBoxStyle.Information, "perhatian")
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "error!")
            Finally
                koneksi.Close()
            End Try
            Call tampilkategori(DataGridView1)
            Call bersih()
        End Sub
    
    
    Button Update
    
    
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Dim con As New SqlCommand
            Try
                koneksi.Open()
                With con
                    .Connection = koneksi
                    .CommandType = CommandType.Text
                    .CommandText = "update Tabel_Siswa set Nama_Siswa = '" & _
                        Trim(Txtsiswa.Text) & "',Jenis_Kelamin= '" & _
                        Trim(Txtjk.Text) & "',Jurusan = '" & _
                        Trim(Txtjurusan.Text) & "',Alamat  = '" & _
                        Trim(Txtalamat.Text) & "',Telephone = '" & _
                         Trim(Txttelephone.Text) & "'where NIS = '" & _
                        Trim(Txtnis.Text) & "'"
                    .ExecuteNonQuery()
                End With
                MsgBox("data sudah di update", MsgBoxStyle.Information, "perhatian")
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "error!")
            Finally
                koneksi.Close()
                koneksi.Close()
    
    
            End Try
            Call tampilkategori(DGsiswa)
            Call bersih()
        End Sub
    
    
    KLIK 2X PADA DESIGN DATAGRIDVIEW, KEMUDIAN GANTI NAMA’A MENJADI CellDoubleClik, sebelum memasukkan codingan(sintax)
    (Anda juga dapat mengikuti langkah – langkah sesuai gambar di bawah ini)

    
    
    
    

Private Sub DataGridView1_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick

   Me.Txtnis.Text = Me.DGsiswa.Item(0, DataGridView1.CurrentRow.Index).Value

   Me.Txtsiswa.Text = Me. DGsiswa.Item(1, DataGridView1.CurrentRow.Index).Value

   Me.Txtjk.Text = Me. DGsiswa.Item(2, DataGridView1.CurrentRow.Index).Value

   Me.Txtjurusan.Text =Me. DGsiswa.Item(3,DataGridView1.CurrentRow.Index).Value

   Me.Txtalamat.Text = Me. DGsiswa.Item(4, DataGridView1.CurrentRow.Index).Value

   Me.Txttelephone.Text = Me. DGsiswa.Item(5, DataGridView1.CurrentRow.Index).Value

        Btnsave.Enabled = True

        Btnupdate.Enabled = True

        Btndelete.Enabled = True

        Txtnis.Enabled = False

    End Sub

Button Keluar

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        End

    End Sub

  

Button Cencel

   

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Call bersih()

    End Sub

End Class

13.    Nah…Uda Mau Selesai Deh…! J

  Selanjutnya, Anda Tinggal Debug Program Anda Yang Telah Anda Buat Tadi. Caranya klik

  Debug Pilih start Debugging (Anda Tekan F5 Pada Keybord) (Anda juga dapat mengikuti langkah –

  langkah sesuai gambar di bawah ini)  

1 14.    Jika Berhasil makan Tampilannya Akan Seperti ini.

Tamat

Selamat Mencoba Audience/Audiens