Cara Pembuatan Data Base dengan SQL Server 2000

 Tak terasa kuliah sudah semester 4,dan tak terasa Berapa banyak uang yang terbuang untuk biaya kuliah,heeeeee,nama nya juga kuliah,masa mau gratisan..^_^
Walau pun begitu,saya tetap semangat dalam berbagi Ilmu dan berbagi pengetahuan yang saya dapat kan baik itu Di kampus atau pun di luar kampus Terutam HTC  khusnya Mang Ojel Ganteng,yang selalu membuat saya semangat dalam menimba ilmu..,
wah,panjang juga nih kata pembuka nya..He2..

Baik kita mulai saja Tutorial nya,tutorial saya kali ini mungkin agax sedikit berbeda dengan tutorial sebelum nya,bila sebelum nya saya menerang kan Tutorial Blog atau pun Komputer,namun Tutorial saya kali ini akan menjelas kan Tentang Cara Membuat Data Base Dengan SQL 2000,.

Bila anda belum mempunyai Software nya,anda bisa Download sofware nya di sini.http://www.download3000.com/sql-2000-downloads.html Pertama-tama pastikan Service Manager SQL anda sudah di jalankan, Buka Enterpise Manager yang terdapat di menu group Microsoft SQL Server 2000








1.      Tampilan Service Manager






2.      Tampilan Enterpise Manager





Klik Kanan di menu Database kemudian pilih New database akan muncul tampilan seperti ini



3.      Tampilan New Database Propertis




Pada text name berarti nama dari database kita, kita misalkan saja db_kuliah, Kemudian di tab menu Data Files dan Transaction Log berfungsi untuk menyimpan alamat database kita, kemudian klik OK




1.      Pembuatan Tabel

Pilih menu database yang telah kita buat yaitu db_kuliah, kemudian pilih tab menu tables klik kanan pilih new table kemudian desain table seperti ini



4.      Tampilan Desain Table Mhs





1.      Koneksi Visual basic dan database SQL Server

Jalankan Microsoft Visual Basic 6.0 Kemudian Pilih Standar EXE klik Open, Untuk Objek koneksi ya kita membutuhkan ADODC dan Untuk menampilkan data ya kita menggunakan Data Grid , 2 Komponen tersebut dapat ditampilkan dengan cara klik kanan di tool box general pilih komponen maka akan muncul tampilan seperti ini :


5.      Tampilan Untuk Menambah Komponen


 
Cek List komponen Microsoft ADO Data Control 6.0(OLEDB) dan Microsoft DataGrid Control 6.0(OLEDB). Kemudian Desain Form Seperti Berikut :


6.      Tampilan Desain Form Mahasiswa


 
Setelah didesain klik menu project kemudian pilih Add Module, Fungsi module adalah untuk memberikan baris perintah agar disetiap form dapat digunakan. Salah satunya kita buat koneksi database menggunakan module. Setelah ditambahkan module ya input kan syntax dibawah ini :

Public konek As New ADODB.Connection
Public data_mhs As New ADODB.Recordset
Public sql As String

Public Sub buka_database()
Set konek = New ADODB.Connection
konek.CursorLocation = adUseClient
konek.Open "Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=db_kuliah"
End Sub

Keterangan :
Untuk syntax "Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=db_kuliah" kita dapatkan dari objek ADODC, caranya masukan ADODC kedalam form kemudian klik kanan pilih ADODC Propertis kemudian pilih Build akan tampil Data Link Propertis pada Tab menu Provider pilih Microsoft OLE DB Provider for SQL Server kemudian pilih next dan pilih option Use Windows NT Integerated Scurity karena kita masih menggunakan koneksi local tapi jika kita ingin berbasis Client/Server maka pilih options nomor 2, Setelah itu klik OK kemudian Copy kan semua syntax yang ada di text connection string.



1.      Pembuatan Aplikasi

Masukan Syntax berikut di form Mahasiswa untuk mendeklarasikan variable :

Sub atur_grid()
DataGrid1.Columns.Item(0).Width = 1500
DataGrid1.Columns.Item(1).Width = 3200
DataGrid1.Columns.Item(2).Width = 1500
End Sub

Sub bersih()
TxtNpm.Text = ""
txtNama.Text = ""
txtKelas.Text = ""
End Sub

Sub siapisi()
TxtNpm.Enabled = True
txtNama.Enabled = True
txtKelas.Enabled = True
TxtNpm.BackColor = &HFFFFFF
txtNama.BackColor = &HFFFFFF
txtKelas.BackColor = &HFFFFFF
End Sub

Sub tdk_siapisi()
TxtNpm.Enabled = False
txtNama.Enabled = False
txtKelas.Enabled = False
TxtNpm.BackColor = &HE0E0E0
txtNama.BackColor = &HE0E0E0
txtKelas.BackColor = &HE0E0E0
End Sub

Setelah itu masukan syntax berikut di form Load :

Call buka_database
sql = "select * from tb_mhs"
Set data_mhs = konek.Execute(sql)
Set DataGrid1.DataSource = data_mhs
atur_grid
bersih
tdk_siapisi
cmdSimpan.Enabled = False
cmdHapus.Enabled = False
cmdEdit.Enabled = False
cmdTambah.Enabled = True
cmdKeluar.Enabled = True



kemudian Masukan syntax dibawah ini untuk Tombol-tombol opresasinya :

1.      Untuk tombol Tambah
Private Sub cmdTambah_Click()
If cmdTambah.Caption = "&Tambah" Then
siapisi
TxtNpm.SetFocus
cmdTambah.Caption = "&Cancel"
cmdSimpan.Enabled = True
cmdEdit.Enabled = False
cmdHapus.Enabled = False
Else
tdk_siapisi
bersih
cmdSimpan.Enabled = False
cmdTambah.Caption = "&Tambah"
End If
End Sub

2.      Untuk tombol Simpan

Private Sub cmdSimpan_Click()
If TxtNpm.Text = "" Or txtNama.Text = "" Or txtKelas.Text = "" Then
MsgBox "Maaf, Data yang anda inputkan masih kosong", vbInformation, "Pesan Program"
Exit Sub

End If
If cmdTambah.Caption = "&Cancel" Then
sql = "insert into tb_mhs values('" & TxtNpm.Text & _
"','" & txtNama.Text & "','" & txtKelas.Text & "')"
Set data_mhs = konek.Execute(sql)
MsgBox "Simpan Data Sukses !", vbInformation, "Pesan Program"
cmdTambah.Caption = "&Tambah"
End If
If cmdEdit.Caption = "&Cancel" Then
sql = "update tb_mhs set nm_mahasiswa='" & txtNama.Text & _
"',kelas='" & txtKelas.Text & "' where npm='" & TxtNpm.Text & "'"
Set data_mhs = konek.Execute(sql)
MsgBox "Data telah dirubah !", vbInformation, "Pesan Program"
cmdEdit.Caption = "&Edit"
End If
Form_Load
End Sub


3.      Untuk tombol Hapus

Private Sub cmdHapus_Click()
pertanyaan = MsgBox("Yakin data akan dihapus ?", vbQuestion + vbYesNo, "Pesan Program")
If pertanyaan = vbYes Then
sql = "delete tb_mhs where npm='" & TxtNpm.Text & "'"
Set data_mhs = konek.Execute(sql)
Form_Load
End If
End Sub
2.      Untuk tombol Edit
Private Sub cmdEdit_Click()
If cmdEdit.Caption = "&Edit" Then
siapisi
TxtNpm.Enabled = False
txtNama.SetFocus
cmdEdit.Caption = "&Cancel"
cmdSimpan.Enabled = True
cmdTambah.Enabled = False
cmdHapus.Enabled = False
Else
tdk_siapisi
cmdSimpan.Enabled = False
cmdTambah.Enabled = True
cmdHapus.Enabled = True
cmdEdit.Caption = "&Edit"
End If
End Sub



4.      Untuk Pencarian

Private Sub txtCari_Change()
'jika option npm dipilih
If optNpm.Value = True Then
sql = "select * from tb_mhs where npm like '%" & txtCari.Text & "%'"
Set data_mhs = konek.Execute(sql)
Set DataGrid1.DataSource = data_mhs
End If
'jika option nama mahasiswa dipilih
If optNama.Value = True Then
sql = "select * from tb_mhs where nm_mahasiswa like '%" & txtCari.Text & "%'"
Set data_mhs = konek.Execute(sql)
Set DataGrid1.DataSource = data_mhs
End If
atur_grid
End Sub

Private Sub txtCari_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNpm.Text = data_mhs.Fields(0)
txtNama.Text = data_mhs.Fields(1)
txtKelas.Text = data_mhs.Fields(2)
cmdHapus.Enabled = True
cmdEdit.Enabled = True
cmdSimpan.Enabled = False
End If
End Sub



Setelah selesai Jalankan Program dari menu Run Pilih Star atau tekan F5 di keyboard, maka hasilnya akan seperti ini jika penulisan syntax ya benar :





 Semoga Bermanfaat Tutorial Cara Membuat data Base Deengan SQL 2000 Ini,dan Tunggu Tutorial Selanjut nya..



0 Response to "Cara Pembuatan Data Base dengan SQL Server 2000"