Modul Pemrograman Berorentiasi Objek
Microsoft SQL Server
- Service Manager
- Enterprise Manager
- Query Analyzer
1. Service manager
Digunakan untuk mengaktifkan Service SQL Server pada Windows
2. Enterprise Manager
l Merupakan alat administrasi utama database pada SQL Server 2000
l Memungkinkan pengguna untuk:
l Mengkonfigurasi semua opsi SQL Server, Object, Login, User, dll
l Membuat dan menjalankan perintah-perintah SQL
l Dan lain sebagainya.
Layar Enterprise Manager
l Untuk membuat database baru masuk ke root database, dengan cara mengklik pada Tree View Database disebelah kanan
l Klik kanan pada list view dan pilih new database
l Misalnya barang
l Click Ok untuk membuat database
Membuat Table Baru
- Buat Table barang dengan nama tbbarang
- Set Primary Key pada kode
· Simpan dengan nama tbbarang
· Menambahkan login
4. Sql Query Analizer
Mengunakan vb enterprise edition control
Nama project
· Nama project:= project inventori
· Nama form =form tbbarang
Tambahkan ADODC ke dalam form tbbarang
Property ADODC
- Simpan connection stringnya
Listing program
Dim constring As String
Private Sub bersih()
TXTKODE.Text = ""
TXTNAMA.Text = ""
TXTSATUAN.Text = ""
TXTHARGA.Text = ""
TXTSTOK.Text = ""
End Sub
Private Sub CMDBERSIH_Click()
bersih
End Sub
Private Sub CMDHAPUS_Click()
Dim dbinventori As New ADODB.Connection
Dim rsinventori As ADODB.Recordset
dbinventori.Open constring, "nurafni", "afni"
dbinventori.Execute "Delete from tbbarang where kodebrg ='" & TXTKODE.Text & "'"
bersih
End Sub
Private Sub CMDSIMPAN_Click()
Dim dbinventori As New ADODB.Connection
Dim rsinventori As ADODB.Recordset
dbinventori.Open constring, "nurafni", "afni"
Set rsinventori = dbinventori.Execute("select * from tbbarang where kodebrg ='" & TXTKODE.Text & "'")
If rsinventori.EOF Then
dbinventori.Execute "insert into tbbarang(kodebrg,nama,satuan,harga,stok) values ('" & TXTKODE.Text & "','" & TXTNAMA.Text & "','" & TXTSATUAN.Text & "','" & TXTHARGA.Text & "', '" & TXTSTOK.Text & "')"
Else
If MsgBox("data ini sudah ada dalam database," & " perbaiki?", vbQuestion + vbYesNo, "konfirmasi") Then
dbinventori.Execute "update barang set nama ='" & TXTNAMA.Text & ""
End If
End If
End Sub
Private Sub CMDTUTUP_Click()
Unload Me
End Sub
Private Sub Form_Load()
bersih
constring = "Provider=SQLOLEDB.1;Password=afni;Persist Security Info=True;User ID=nurafni;Initial Catalog=INVENTORI;Data Source=IBM-FA741BA59D5"
End Sub
Private Sub TXTKODE_Change()
Dim dbinventori As New ADODB.Connection
Dim rsinventori As ADODB.Recordset
dbinventori.Open "Provider=SQLOLEDB.1;Password=afni;Persist Security Info=True;User ID=nurafni;Initial Catalog=INVENTORI;Data Source=IBM-FA741BA59D5", "nurafni", "afni"
Set rsinventori = dbinventori.Execute("select *from tbbarang where kodebrg = '" & TXTKODE.Text & "'")
If Not rsinventori.EOF Then
TXTKODE.Text = rsinventori!kodebrg
TXTNAMA.Text = rsinventori!nama
TXTSATUAN.Text = rsinventori!satuan
TXTHARGA.Text = rsinventori!harga
TXTSTOK.Text = rsinventori!stok
End If
If TXTKODE.Text = "" Then
bersih
End If
End Sub
