Rabu, 24 Juli 2013

Contoh Pembuatan Program Dengan VB 6.0 dan Database SQL Server 2008

  1.  Misal kita buat database dengan nama perpus_cepu. Di dalamnya ada table yang bernama buku. Untuk cara membuat database dengan SQL Server 2008 ini silahkan tanya mbah google. 
  2.  Buka Visual Basic 6 dan pilih Standard EXE lalu klik Open.

 
3. Tambahkan components ADODC dengan cara klik menu Project pilih Components atau dengan menekan Ctrl+T di keyboard.



4.      Centang pada pilihan Microsoft ADO Data Control 6.0 (OLEDB) lalu klik OK.



5.      Selanjutnya kita akan membuat modul koneksinya, dengan cara klik menu Project – Add Module. Klik Open pada pilihan yang muncul


6.  Copy-Paste mantra dibawah ini:


Option Explicit
Public Conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public server As String
Public namadb As String
Public user As String
Public password As String
Public username As String
Public name As String
Public Edit As Boolean

Sub koneksi()
server = ".\SQLEXPRESS"
namadb = "perpus_cepu"
user = ""
password = ""

If Conn.State = adStateOpen Then Conn.Close
Conn.ConnectionString = "Provider=SQLNCLI10;Server=" & server & ";Database=" & namadb & ";Trusted_COnnection=yes"
End Sub

Sub bukakoneksi()
Call koneksi
Conn.Open
End Sub

* Keterangan: Ganti tulisan yang berwarna merah,jika anda menggunakan database dengan nama lain.

 7. Selanjutnya kita buat Form nya dengan cara double klik tulisan Form1 di sisi kanan layar.



8.   Sisipkan 4 buah Label, 4 buah Text box, dan 5 Command Button, atur posisinya sedemikian rupa dan set propertiesnya seperti dibawah ini: 


Nama Komponen
Name
Caption/Text
Label 1
Label1
Kode Buku
Label 2
Label2
Judul Buku
Label 3
Label3
Pengarang
Label 4
Label4
Kode Penerbit
Text 1
txtKode
(kosong)
Text 2
txtJudul
(kosong)
Text 3
txtPengarang
(kosong)
Text 4
txtKodePenerbit
(kosong)
Command 1
Command1
&Test Koneksi
Command 2
cmdTambah
T&ambah
Command 3
cmdEdit
&Edit
Command 4
cmdSimpan
&Simpan
Command 5
cmdHapus
&Hapus
  
Contoh tampilannya :



9.   Double klik area kosong di dalam Form 1 dan copy paste mantra dibawah ini:

Private Sub cmdEdit_Click()
cari$ = InputBox("Masukkan kode buku", "Cari Kode")
Set Rs = New ADODB.Recordset
Rs.Open "SELECT * FROM buku WHERE kode_buku='" & LTrim(cari$) & "'", Conn, adOpenDynamic, adLockOptimistic
If Rs.BOF Then
    MsgBox "Kode Tidak Ditemukan", vbExclamation + vbOKOnly, "Cari"
Else
    With Rs
        txtKode.Text = .Fields(0)
        txtJudul.Text = .Fields(1)
        txtPengarang.Text = .Fields(2)
        txtKodePenerbit.Text = .Fields(3)
    End With
    txtKode.Enabled = False
    txtJudul.Enabled = True
    txtPengarang.Enabled = True
    txtKodePenerbit.Enabled = True
    txtJudul.SetFocus
   
    cmdTambah.Caption = "&Batal"
    cmdSimpan.Enabled = True
    cmdEdit.Enabled = False
    cmdHapus.Enabled = True
    Edit = True
End If
End Sub

Private Sub cmdHapus_Click()
hapus = MsgBox("Anda ingin menghapus data ini?", vbQuestion + vbYesNo, "Hapus")
If hapus = vbYes Then
        SQLhapus = "DELETE FROM buku WHERE kode_buku='" & txtKode.Text & "'"
        Conn.Execute SQLhapus, , adCmdText
        MsgBox "Data berhasil dihapus", vbOKOnly + vbInformation, "Hapus"
        Call kosong
        Call awal
       
Else
    Call kosong
    Call awal
End If
End Sub

Private Sub cmdSimpan_Click()
 Nm = txtJudul
 txtJudul = Replace(txtJudul, "'", "''")

 If Edit = False Then
    Set Rs = New ADODB.Recordset
    Rs.Open "SELECT * FROM buku WHERE kode_buku='" & txtKode.Text & "'", Conn, adOpenDynamic, adLockOptimistic
    If Rs.BOF Then
        SQLsimpan = "INSERT INTO buku(kode_buku,judul_buku,pengarang,kode_penerbit)" _
            & "VALUES('" & txtKode.Text & "','" & txtJudul.Text & "','" _
            & txtPengarang.Text & "','" & txtKodePenerbit.Text & "')"
        Conn.Execute SQLsimpan, , adCmdText
        MsgBox "Data Buku Berhasil Ditambah", vbOKOnly + vbInformation, "Success"
    Else
        MsgBox "Kode Buku Sudah Ada", vbOKOnly + vbCritical, "INFO"
       
    End If
Else
    Set Rs = New ADODB.Recordset
    SQLubah = "UPDATE buku " & " set judul_buku='" & txtJudul.Text & "', " & " pengarang='" & txtPengarang.Text & "', " & _
             " kode_penerbit='" & txtKodePenerbit.Text & "' " & " WHERE kode_buku='" & txtKode.Text & "'"
  
    Conn.Execute SQLubah, , adCmdText
    MsgBox "Data Berhasil Diedit", vbInformation, "Edit"
    Call awal
End If
End Sub

Private Sub cmdTambah_Click()
If cmdTambah.Caption = "T&ambah" Then
    Call kosong
    Call buka
    txtKode.SetFocus
    Edit = False
Else
    Call kosong
    Call awal
    cmdTambah.Caption = "T&ambah"
    cmdEdit.Enabled = True
    cmdHapus.Enabled = False
    cmdSimpan.Enabled = False
End If
End Sub
Sub awal()
txtKode.Enabled = False
txtJudul.Enabled = False
txtPengarang.Enabled = False
txtKodePenerbit.Enabled = False

cmdTambah.Caption = "T&ambah"
cmdSimpan.Enabled = False
cmdEdit.Enabled = True
cmdHapus.Enabled = False
End Sub
Sub buka()
txtKode.Enabled = True
txtJudul.Enabled = True
txtPengarang.Enabled = True
txtKodePenerbit.Enabled = True
End Sub
Sub kosong()
txtKode = ""
txtJudul = ""
txtPengarang = ""
txtKodePenerbit = ""

cmdSimpan.Enabled = True
cmdTambah.Caption = "&Batal"
cmdEdit.Enabled = False
cmdHapus.Enabled = False

End Sub

Private Sub Command1_Click()
bukakoneksi

On Error GoTo Ern
Call bukakoneksi
MsgBox "Koneksi sukses"
Exit Sub
Ern:
MsgBox "Koneksi Gagal"
End Sub

Private Sub Form_Activate()
Call awal
End Sub

Private Sub Form_Load()
'bukakoneksi

On Error GoTo Ern
Call bukakoneksi
'MsgBox "Koneksi sukses"
Exit Sub
Ern:
MsgBox "Koneksi Ke Database Gagal"
Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
If Conn.State = adStateOpen Then Conn.Close
End Sub

Private Sub txtJudul_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub txtKode_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

10. Dan terakhir, program bisa langsung dijalankan dengan klik tombol Run atau dengan menekan tombol F5 di keyboard. Selamat mencoba.

2 komentar: