Program Insert, Update, Delete Menggunakan Visual Basic dan Database SQL Server

Bismillahhirrahmannirrahim

Assalamulaikum teman-teman, hari ini saya akan berbagi bagaimana cara membuat program insert, update dan delete menggunakan bahasa pemrograman visual basic dan menggunakan database SQL Server 2012.

1. Buat sebuah form dengan nama “frmDataMahasiswa”, ubah caption form menjadi “Data Mahasiswa”desain form seperti dibawah ini

Berikut keterangan masing-masing komponen

Text untuk isian NIM	Beri nama “txtNIM”
Text untuk isian Nama	Beri nama “txtNama”
Text untuk isian alamat	Beri nama “txtAlamat”, Multiline diubah menjadi “true”
Kotak untuk isian foto	Merupakan komponen Image, beri nama “foto”
Tabel untuk menampilkan seluruh data mahasiswa	Merupakan komponen MSFlexGrid, beri nama “table”
Tombol Simpan	Beri nama cmdSimpan, ubah caption menjadi “Simpan”
Tombol Ubah	Beri nama cmdUbah, ubah caption menjadi “Ubah’
Tombol Hapus	Beri nama cmdHapus, ubah caption menjadi “Hapus”
Tombol Masukan foto	Beri nama cmdMasukanFoto, ubah caption menjadi “Masukan foto”

2. Buat sebuah database di SQL Server dengan nama “akademik” kemudian buatlah tabel dengan nama “mahasiswa” dengan design tabel sebagai berikut:

nim	Int
Nama	varchar(35)
alamat	varchar(50)
Foto	varchar(100)

3. Buatlah sebuah module di VB dengan nama “koneksi” lalu masukan kode berikut:

Option Explicit

Public konek As New ADODB.Connection
Public data As New ADODB.Recordset

Public sqlSimpan, sqlUbah, sqlHapus As String

Sub bukaDatabase()
    Set konek = New ADODB.Connection
    konek.ConnectionString = "" _
    & "Provider=SQLOLEDB.1;" _
    & "Password=085722020419;" _
    & "Persist Security Info=True;" _
    & "User ID=ecep;" _
    & "Initial Catalog=akademik;" _
    & "Data Source=ECEP-PC\SQLEXPRESS"

On Error Resume Next

If konek.State = adStateOpen Then
    konek.Close
    Set konek = New ADODB.Connection
    konek.Open
Else
    konek.Open
End If

If Err.Number <> 0 Then
    MsgBox "Koneksi gagal"
End If

End Sub

4. Masukan kode berikut ke dalam frmDataMahasiswa:

Dim alamatFoto As String

Private Sub cmdHapus_Click()
 Call hapus
End Sub

Private Sub cmdMasukanFoto_Click()
    cmdgBukaFoto.DialogTitle = "Cari Foto"
    cmdgBukaFoto.ShowOpen
    foto.Picture = LoadPicture(cmdgBukaFoto.FileName)
    alamatFoto = Me.cmdgBukaFoto.FileName
End Sub

Private Sub cmdSimpan_Click()
    Call simpan
End Sub

Private Sub cmdUbah_Click()
    Call ubah
End Sub

Private Sub form_load()
    Call bukaDatabase
    Call aktifGrid
    Call tampilData
End Sub

Sub aktifGrid()
With tabel
    .Cols = 4
    .Width = 7000
   
    .ColWidth(1) = 2500
    .ColWidth(2) = 2500
   
    .TextMatrix(0, 0) = "NIM"
    .TextMatrix(0, 1) = "Nama"
    .TextMatrix(0, 2) = "Alamat"
    .TextMatrix(0, 3) = "Folder foto"
   
End With

End Sub

Sub tampilData()
Dim baris As Integer
baris = 0

Set data = New ADODB.Recordset
data.Open "select * from mahasiswa", konek

data.MoveFirst

Do While Not data.EOF
On Error Resume Next

baris = baris + 1

tabel.Rows = baris + 1

tabel.TextMatrix(baris, 0) = data!NIM
tabel.TextMatrix(baris, 1) = data!Nama
tabel.TextMatrix(baris, 2) = data!Alamat
tabel.TextMatrix(baris, 3) = data!foto

data.MoveNext

Loop

End Sub

Sub simpan()
    Set data = New ADODB.Recordset
    data.Open "select * from mahasiswa where nim='" & txtNIM.Text & "'", konek

    If data.BOF Then
        sqlSimpan = "insert into mahasiswa values(" & txtNIM.Text & ",'" & txtNama.Text & "','" & txtAlamat.Text & "','" & alamatFoto & "')"
        konek.Execute sqlSimpan
       
        MsgBox "Data berhasil disimpan"
        Call tampilData
        Call bersih
   
    Else
        MsgBox "Data sudah ada"
    End If
   
End Sub

Sub ubah()
   
    sqlUbah = "update mahasiswa set nama='" & txtNama.Text & "',alamat='" & txtAlamat.Text & "',foto='" & alamatFoto & "' where nim='" & txtNIM.Text & "'"
    konek.Execute sqlUbah
       
    MsgBox "Data berhasil diubah"
    Call tampilData
    Call bersih
   
End Sub

Sub hapus()
   
    sqlHapus = "delete from mahasiswa where NIM=" & txtNIM.Text
    konek.Execute sqlHapus
       
    MsgBox "Data berhasil dihapus"
    Call tampilData
    Call bersih
   
End Sub

Sub bersih()
    txtNIM.Text = ""
    txtNama.Text = ""
    txtAlamat.Text = ""
   
End Sub

Private Sub tabel_DblClick()
    Dim baris As Integer
    baris = tabel.Row
   
    txtNIM.Text = tabel.TextMatrix(baris, 0)
    txtNama.Text = tabel.TextMatrix(baris, 1)
    txtAlamat.Text = tabel.TextMatrix(baris, 2)
    foto.Picture = LoadPicture(tabel.TextMatrix(baris, 3))
   
End Sub

   

End Sub

Coba start program, untuk memasukkan data masukan data-data pada teks isian kemudian klik simpan, untuk melakukan hapus dan ubah data terlebih dahulu harus melakukan klik ganda pada tabel yang ingin dihapus atau diubah

Allhamdulillah :) begitulah program insert, update dan delete menggunakan bahasa pemrograman visual basic dan menggunakan database SQL Server 2012 yang bisa saya bagikan pada teman-teman, silahkan dikembangkan agar menjadi program yang lebih baik lagi.