- 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.
- Buka Visual Basic 6 dan pilih Standard EXE lalu klik Open.
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
bos di jalanin ko masih error ya?
BalasHapusErornya apa ya..
Hapus