Contoh koneksi vb ke database sql server


Membuat form data mahasiswa menggunakan vb dengan database sql server
Langkah pertama kita buat database baru pada sql server New Database lalu kita beri nama tutorial
Kemudian kita bikin table dengan nama  tbl_mahasiswa dengan rincian table sebagai berikut



Kemudian kita buat form data mahasiswa pada vb kita isikan textbox nim, nama, tempat lahir, tangal lahir, jenis kelamin, jurusan, jenjang, alamat,kota dan cari .Untuk tombol  kita gunakan button baru, simpan, hapus, update, edit, dan batal sedangkan untuk gambar kita gunakan picturebox  kurang lebih seperi gambar dibawah ini.

Untuk membuat koneksi kita menggunakan module konesi kita buat module pada vb dengan nama module1 lalu kita isikan koding sebagai berikut :

Imports System.Security.SecurityException
Module Module1
    Public Function koneksi() As SqlConnection
        Dim supernothing As New SqlConnection
        supernothing = New SqlConnection("server=KOKO-9F3E6ED224; database=tutorial; trusted_Connection=true")         supernothing.Open()
        Return (supernothing)
    End Function
End Module


Untuk nama server bias kita lihat pada saat kita akan melakukan koneksi sql server sesuai server,kali ini kita gunakan nama  KOKO-9F3E6ED224
Untuk database kita isikan tutorial



Kemudian kita isikan koding sesuai dengan name-name yang kita berikan pada form yang telah kita buat tadi
Sekarang kita buat prosedur terlebih dahulu sebagai berikut:


Imports System.Data
Imports System.Data.SqlClient
Public Class mahasiswa
    Dim a As New OpenFileDialog

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call normal()
      
    End Sub
    Sub normal()
        Textnama.Enabled = False
        Textnim.Enabled = False
        Texttempat.Enabled = False
        Texttgl.Enabled = False
        Textkelamin.Enabled = False
        TextJenjang.Enabled = False
        TextAlamat.Enabled = False
        Textkota.Enabled = False
        Textjur.Enabled = False
        Picturesiswa.Enabled = False
        Buttonpic.Enabled = False
        Buttonbaru.Enabled = True
        Buttonsimpan.Enabled = False
        Buttonupdate.Enabled = False
        Buttonedit.Enabled = False
        Buttonbatal.Enabled = False
        Buttonhapus.Enabled = False
        Buttonbaru.Focus()
    End Sub
    Sub baru()
        Textnama.Enabled = True
        Textnim.Enabled = True
        Texttempat.Enabled = True
        Texttgl.Enabled = True
        Textkelamin.Enabled = True
        TextJenjang.Enabled = True
        TextAlamat.Enabled = True
        Textkota.Enabled = True
        Textjur.Enabled = True
        Picturesiswa.Enabled = True
        Buttonpic.Enabled = True
    End Sub
    Sub clear()
        Textnama.Text = ""
        Textnim.Text = ""
        Texttempat.Text = ""
        Texttgl.Text = ""
        Textkelamin.Text = ""
        TextJenjang.Text = ""
        TextAlamat.Text = ""
        Textkota.Text = ""
        Textjur.Text = ""
        Picturesiswa.Image = Nothing
    End Sub

Koding pada tombol baru
Tombol baru ini brfungsi untuk membuat data atau record baru yang nanti akan disimpan pada database sql server.


Private Sub ButtonBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonBaru.Click
        Call baru()
        TextKelamin.Items.Add("Laki-laki")
        TextKelamin.Items.Add("Perempuan")

        ButtonBaru.Enabled = False
        ButtonSimpan.Enabled = True
        ButtonBatal.Enabled = True
        TextNim.Focus()
        TextKelamin.SelectedIndex = 0
    End Sub


Koding pada tombol pic (untuk masukan gambar)

Tombol pic berfungsi untuk memasukan atau mengambil  gambar yang tersimpan di komputer lalu dimasukan pada database sql server.

Private Sub ButtonPic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPic.Click
        Dim pictureLocation As String
        a.Filter = "JPG Files (*.jpg)|*.jpg|JPEG Files (*.jpeg)|*.jpeg|GIF Files (*.gif)|*.gif|PNG Files (*.png)|*.png|BMP Files (*.bmp)|*.bmp|TIFF Files (*.tiff)|*.tiff"
        pictureLocation = a.FileName
        Try
            If a.ShowDialog = Windows.Forms.DialogResult.OK Then
                Picturesiswa.Image = New Bitmap(a.FileName)
                Picturesiswa.SizeMode = PictureBoxSizeMode.StretchImage
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub


Koding pada tombol edit

Tombol edit berfungsi untuk mengedit atau merubah data yang sudah ada atu telah di simpan pada database sql server.

Private Sub ButtonEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonEdit.Click
        Call baru()
       

        ButtonUpdate.Enabled = True
        ButtonHapus.Enabled = False
        ButtonBaru.Enabled = False
        ButtonEdit.Enabled = False
        TextCari.Text = ""
    End Sub


Koding pada tombol batal
Tombol batal berguna untuk membatalkan saat kita tidak ingin melanjutkan mengisi data atau mengupdate data.


Private Sub ButtonBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonBatal.Click
        Call normal()
        Call clear()
        TextCari.Text = ""
    End Sub



Koding pada tombol simpan
Tombol simpan gunanya untuk menyimpan data yang telah kita masukan pada form untuk selanjutnya di simpan pada database sql server dengan menggunakan insert into tbl_mahasiswa.


 Private Sub ButtonSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSimpan.Click
        Try
            If TextNim.Text <> "" Then
                Using sql As New SqlClient.SqlCommand("Insert Into tbl_mahasiswa(nim,nama,tempat,lahir,kelamin,jenjang,jurusan,gambar,alamat,kota) Values (@nim,@nama,@tempat,@lahir,@kelamin,@jenjang,@jurusan, @gambar, @alamat,@kota)", Module1.koneksi)
                    sql.Parameters.Add(New SqlClient.SqlParameter("@nim", SqlDbType.Char)).Value =TextNim.Text
                    sql.Parameters.Add(New SqlClient.SqlParameter("@nama", SqlDbType.VarChar)).Value =TextNama.Text
                    sql.Parameters.Add(New SqlClient.SqlParameter("@tempat", SqlDbType.VarChar)).Value =TextTempat.Text
                    sql.Parameters.Add(New SqlClient.SqlParameter("@lahir", SqlDbType.Char)).Value = TextTgl.Text
                    sql.Parameters.Add(New SqlClient.SqlParameter("@kelamin", SqlDbType.VarChar)).Value =TextKelamin.Text
                    sql.Parameters.Add(New SqlClient.SqlParameter("@jenjang", SqlDbType.Char)).Value = TextJenjang.Text
                    sql.Parameters.Add(New SqlClient.SqlParameter("@jurusan", SqlDbType.VarChar)).Value = Textjur.Text
                    

                    If a.FileName = Nothing Then
                        sql.Parameters.Add(New SqlClient.SqlParameter("@gambar", SqlDbType.Image)).Value = IO.File.ReadAllBytes("student_icon.png")
                    Else
                        sql.Parameters.Add(New SqlClient.SqlParameter("@gambar", SqlDbType.Image)).Value = IO.File.ReadAllBytes(a.FileName)
                    End If

                    sql.Parameters.Add(New SqlClient.SqlParameter("@alamat", SqlDbType.Char)).Value = TextAlamat.Text
                    sql.Parameters.Add(New SqlClient.SqlParameter("@kota", SqlDbType.VarChar)).Value = Textkota.Text
                    sql.ExecuteNonQuery()
                    MessageBox.Show("Nama Mahasiswa : " & TextNama.Text & " Telah disimpan", "Data Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    Module1.koneksi.Close()
                    Call clear()
                    Call normal()
                    ButtonBaru.Focus()
                End Using
            Else
                MessageBox.Show("Ada Kesalahan !", "Gagal Menyimpan", MessageBoxButtons.OK,
                MessageBoxIcon.Error)
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub
Koding pada tombol hapus
Tombol hapus digunakan untuk menghapus record yang sudah di simpan pada data base sql server menggunakan delete from tbl_mahasiswa.



Private Sub ButtonHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonHapus.Click
        Dim Hapus As Integer
        Hapus = MsgBox("Apa anda yakin akan menghapus ?" & vbCrLf & "Nama Mahasiswa = " &
        TextNama.Text, vbYesNo, "Konfimasi Hapus")
        If (Hapus = vbYes) Then
            Using sql As New SqlClient.SqlCommand("delete from tbl_mahasiswa where nim='" & TextCari.Text & "'", Module1.koneksi)
                Using dr As SqlClient.SqlDataReader = sql.ExecuteReader()
                End Using
            End Using
            MessageBox.Show("Nama Mahasiswa : " & TextNama.Text & " Sudah dihapus dari record !",
            "Data Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Module1.koneksi.Close()
            Call clear()
            Call normal()
            ButtonBaru.Focus()
        End If
    End Sub
Koding pada tombol update
Tombol update berfungsi untuk merecord hasil editan pada form lalu menyimpanya pada database sql server dengan menggunakan update tbl_mahasiswa set .


Private Sub ButtonUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonUpdate.Click
       Try
            Dim cmd As String = String.Empty
            Dim adapter As New SqlDataAdapter("select gambar from tbl_mahasiswa where nim='" &
            TextNim.Text & "'", Module1.koneksi)
            Dim dt As New DataTable("tbl_mahasiswa")
            adapter.Fill(dt)
            Using sql As New SqlClient.SqlCommand("update tbl_mahasiswa set nim=@nim,nama=@nama,tempat=@tempat,lahir=@lahir,kelamin=@kelamin,jenjang=@jenjang,jurusan =@jurusan,gambar=@gambar,alamat=@alamat,kota=@kota where nim='" + TextCari.Text + "'",
Module1.koneksi)
                sql.Parameters.Add("@nim", SqlDbType.Char).Value = TextNim.Text
                sql.Parameters.Add("@nama", SqlDbType.VarChar).Value = TextNama.Text
                sql.Parameters.Add("@tempat", SqlDbType.VarChar).Value = TextTempat.Text
                sql.Parameters.Add("@lahir", SqlDbType.Char).Value = TextTgl.Text
                sql.Parameters.Add("@kelamin", SqlDbType.VarChar).Value = TextKelamin.Text
                sql.Parameters.Add("@jenjang", SqlDbType.Char).Value = TextJenjang.Text
                sql.Parameters.Add("@jurusan", SqlDbType.VarChar).Value = Textjur.Text
                If a.FileName = Nothing Then
                    Dim row As DataRow = dt.Rows(0)
                    Using ms As New IO.MemoryStream(CType(row(0), Byte()))
                        Dim img As Image = Image.FromStream(ms)
                        Picturesiswa.Image = img
                        sql.Parameters.Add(New SqlClient.SqlParameter("@gambar", SqlDbType.Image)).Value = (CType(row(0), Byte()))
                    End Using
                Else
                    sql.Parameters.Add(New SqlClient.SqlParameter("@gambar", SqlDbType.Image)).Value =
                    IO.File.ReadAllBytes(a.FileName)
                End If
                sql.Parameters.Add("@alamat", SqlDbType.Char).Value = TextAlamat.Text
                sql.Parameters.Add("@kota", SqlDbType.VarChar).Value = Textkota.Text
                sql.ExecuteNonQuery()
                MessageBox.Show("Nama Mahasiswa : " & TextNama.Text & " Sudah di Update !", "Data Sukses(", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Module1.koneksi.Close()
                Call clear()
                Call normal()
                ButtonBaru.Focus()
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Koding pada tombol tampil
Tombol ini berfungsi untuk menampilkan data yang sudah di simpan atau di record ke form yang kita buat dengan menggunakan kata  kunci nim menggunakan select* from tbl_mahasiswa.


Private Sub Tampil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tampil.Click
        Try
            Using sql As New SqlClient.SqlCommand("Select * from tbl_mahasiswa where nim= '" & TextCari.Text & "' ", Module1.koneksi)
                Using dr As SqlClient.SqlDataReader = sql.ExecuteReader()
                    Using dt As New DataTable
                        dt.Load(dr)
                        If TextCari.Text = "" Then
                            MessageBox.Show("Nim Masih Kosong !", "Coba Lagi", MessageBoxButtons.OK,
                            MessageBoxIcon.Error)
                            TextCari.Focus()
                        ElseIf dt.Rows.Count <> 1 Then
                            MessageBox.Show("NIM : " & TextCari.Text & " Belum ada di record !", "Coba Lagi",
                            MessageBoxButtons.OK, MessageBoxIcon.Error)
                            TextCari.Text = ""
                            TextCari.Focus()
                        Else
                            Dim row As DataRow = dt.Rows(0)

                            TextNim.Text = row(0)
                            TextNama.Text = row(1)
                            TextTempat.Text = row(2)
                            TextTgl.Text = row(3)
                            TextKelamin.Text = row(4)
                            TextAlamat.Text = row(5)
                            TextJenjang.Text = row(6)
                            Using ms As New IO.MemoryStream(CType(row(7), Byte()))
                                Dim img As Image = Image.FromStream(ms)
                                Picturesiswa.Image = img
                                Picturesiswa.SizeMode = PictureBoxSizeMode.StretchImage

                            End Using
                            Textkota.Text = row(8)
                            Textjur.Text = row(9)
                        End If
                    End Using
                End Using
            End Using
            Module1.koneksi.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        ButtonEdit.Enabled = True
        ButtonHapus.Enabled = True
        ButtonBatal.Enabled = True
        ButtonBaru.Enabled = False
    End Sub

Koding pada tombol keluar
Tombol keluar digunakan untuk mengeluarkan atau menutup form jika sudah tidak kita gunakan.

Private Sub ButtonKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonKeluar.Click
        Me.Close()
    End Sub
End Class

Data pada form akan terisi seperti gambar dibawah ini:


Sedangkan pada database sql atau record yang suda tersimpan seperti  gambar berikut ini:





Comments

Post a Comment

Popular posts from this blog

Distributed database

Image
Untuk lebih mengenal dan memahami distributed database marilah kita bahas satu persatu tentang distributer database, antara lain sebagai berikut: I. Pengertian Distributed database Database terdistribusi Yaitu kumpulan data yang digunakan bersama yang saling terhubung secara logic tetapi tersebar secara fisik pada suatu jaringan computer. Dalam sebuah database terdistribusi, database disimpan pada beberapa komputer. Komputer-komputer dalam sebuah sistem terdistribusi berhubungan satu sama lain. II. Prinsip kerja dan penerapannya Suatu proses mencopy atau mentransfer data dari suatu database ke database lain yang tersimpan pada komputer berbeda. atau dapat difahami sebagai proses pengkopian dan pengelolaan objek-objek dari database yang membentuk suatu sistem database terdistribusi (Distributed Database). Pada umumnya MySQL dipergunakan secara massal sebagai Database yang cukup handal dalam menangani sistem database terpusat, seperti kebanyakan sistem database yang digu...
Read more
SYNTAX SQL Kali ini kita akan mempelajari syntax ,ada dua macam syntax yang akan kita bahas yaitu syntax DDL (Data Definition Language) dan syntax DML (Data Manipulation Language) yang pertama kita akan membahas tentang syntax DDL adalah sebuah perintah SQL yang berhubungan dengan pendefinisian sebuah tabel yang berada dalam database yang dapat digunakan untuk membuat,mengubah struktur dan definisi tipe data dari obyek-obyek database seperti tabel,triger,view,index dll. Sedangkan syntax DML adalah sebuah perinta sql yang berhubungan sengan pengolahan data di dalam sebuah tabel.Macam kedua syntax tersebut perhatikan di bawah ini: A. Syntax DDL :   1. Database Membuat database : CREATE DATABASE nama_db Menghapus database : DROP DATABASE nama_db Menggunakan database : untuk menggunakan database sintaksnya sebagai berikut : USE nama_db Menampilkan database : Untuk menampilkan daftar yang ada dalam system saat itu. Sintaksnya seba...
Read more