horoskop

RATE CINTA

TUGAS UAS DISTRIBUSI DATABASE

chekidot>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Tugas UAS Database Terdistribusi 11 oktober 2012 >>>>>>>>>>>>>>>>>>>>>>>>




4. View_DataPegawai : Nomor Pegawai, Nama, Sex, Nikah, Agama, Pendidikan, Jabatan, Kode Kontrak, tgl1


5. Create procedure HitungJumlahBayar @nomer char (10) as select nomer,nama,kodekontrak,sum(tgl1) from vie_DataPegawai where nomer=@nomer


6. create procedure TampilPendidikan @Pendidikan char (20) as select nama,pendidikan from view_DataPegawai where pendidikan = @pendidikan


7. create function PendidikanPegawai (@nomer char (10))
Returns char (20) as begin Return (select pendidikan from pendidikan where kodepd=(select pendidikan from DataPegawai where nomer=@nomer))
end

keterangan tambahan      >>>>>>>>>>


Datediff         : untuk mengembalikan selisih antara datetime1 dan datetime2 dalam interval yang diberikan

Dateadd            : Menambah nilai argumen datetime dengan interval yang diberikan

Getdate     : mengembalikan tanggal dan waktu saat ini dari mesin yang menjalankan SQL Server

koneksi database ke program(vb)

nah>>kali saya akan meshare cara koneksi database ke program vb>>>>>
Software yang dipakai :
-Sql Server Management Studio Express
-Microsoft Visual Studio 2005

Cara Buat database :
Buka Software Sql Server Management Studio Express :
Pilih Connect

Klik Subtree Database – Klik Kanan – pilih New Database

Pada Kotak dialog  New Database:
Isikan Nama Database pada Database Name – OK

Misal Database Name = CobaDB
Selanjutnya pada CobaDB klik subtree lalu pilih tables.
Di tables
– klik kanan
– new table (isikan table, type, dll (Alias tempat bikin table nih))

Beres Dah Bikin Database nya..
Koneksi dengan VB.Net Buka Microsoft Visual Studio 2005
-File
-New Project
-Isikan Nama Project
-OK

Di kiri atas Pilih Server Explorer

Pilih Connect to database
Pilih server name
Pilih select or enter a database name OK

Beres dah konekin database ke sql server
Tinggal coding deh, pake query-query buat input, save, del, update, seperti di bawah ini

1. Untuk General
Public cn As ADODB.Connection
Dim rsTblMhs As ADODB.Recordset
Dim strsql As String


2. Buat Sub Koneksi
Public Sub koneksi()
Set cn = New ADODB.Connection
'cn.Open "FILE NAME=koneksi_TblMhs.udl"
'untuk nampilin tabel di sql tadi,buka koneksi_TblMhs.udl dg notepad trus copy deh kesini
cn.Open "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=DatabaseMhs;Data Source=TOSHIBA-PC"
End Sub

Ini di buat untuk mengkoneksikan vibi dengan SQL, pada cn.Open "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=DatabaseMhs;Data Source=TOSHIBA-PC"
ganti sesuai dengan udl yang telah anda buat, klik kanan notepad koneksi anda, terus open with notepad, copy tulisan dari provider, terus paste di coding vibi anda.

3. Pada form Load
Private Sub Form_Load()
TxtNIM.Text = ""
txtNama.Text = ""
TxtAlamat.Text = ""

koneksi

Set rsTblMhs = New ADODB.Recordset
rsTblMhs.CursorLocation = adUseClient
strsql = "select*from TblMhs"
rsTblMhs.Open strsql, cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rsTblMhs

CmdAdd.Enabled = False
CmdUpdate.Enabled = True
'CmdNew.Enabled = True
CmdEdit.Enabled = True

CmdDelete.Enabled = True
TxtNIM.Locked = True
txtNama.Locked = True
TxtAlamat.Locked = True
End Sub

Koneksi: agar setiap kita menjalankan program, maka program akan langsung terkoneksi dengan database.
strsql = "select*from TblMhs", di gunakan untuk menampilkan semua isi dari tabel TblMhs,
Pada saat di load, kita tidak bisa langsung menulis nim, nama, alamat karena di locked (kunci) maka kita harus klik New dulu.

4. coding cmd new
Private Sub CmdNew_Click()
CmdAdd.Enabled = True
CmdNew.Enabled = False
TxtNIM.Locked = False
txtNama.Locked = False
TxtAlamat.Locked = False
End Sub

sekarang baru bisa tulis nim, nama, alamat dan tombol new di enable.

5. Coding Cmd Add
Private Sub CmdAdd_Click()
If TxtNIM.Text = "" Then
MsgBox "NIM belum diisi", vbInformation, "PESAN"
TxtNIM.SetFocus
ElseIf txtNama.Text = "" Then
MsgBox "NAMA belum diisi", vbInformation, "PESAN"
txtNama.SetFocus
ElseIf TxtAlamat.Text = "" Then
MsgBox "ALAMAT belum diisi", vbInformation, "PESAN"
TxtAlamat.SetFocus
Else
rsTblMhs.AddNew
rsTblMhs("NIM") = TxtNIM.Text
rsTblMhs("NAMA") = txtNama.Text
rsTblMhs("ALAMAT") = TxtAlamat.Text
rsTblMhs.Update
End If
Set DataGrid1.DataSource = rsTblMhs
TxtNIM.Text = ""
txtNama.Text = ""
TxtAlamat.Text = ""
CmdAdd.Enabled = False
CmdUpdate.Enabled = True
CmdNew.Enabled = True
CmdDelete.Enabled = True
End Sub

Ini di gunakan untuk menampilkan data yang kita input tampil di datagrid

6. coding cmd Delet
Private Sub CmdDelete_Click()
TxtNIM.Locked = False
txtNama.Locked = False
TxtAlamat.Locked = False
TxtNIM.Text = rsTblMhs("NIM")
txtNama.Text = rsTblMhs("NAMA")
TxtAlamat.Text = rsTblMhs("ALAMAT")
If MsgBox("apakah yakin ingin dihapus?", vbYesNo, "KONFIRMASI") = vbYes Then
Set rsTblMhs = cn.Execute("Delete from TblMhs where NIM='" & TxtNIM.Text & " ' ")
MsgBox "Data telah dihapus", vbInformation, "PESAN"
End If
'untuk me-refresh datagrid setelah delete data
If cn.State = adStateOpen Then
setrsTblMhs = New ADODB.Recordset
rsTblMhs.CursorLocation = adUseClient
strsql = "select * from TblMhs"
rsTblMhs.CursorLocation = adUseClient
rsTblMhs.Open strsql, cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rsTblMhs
End If
End Sub

Untuk mendelete data yang sudah kita inputkan.

7. Coding Refresh
Private Sub Refresh_Click()
Set DataGrid1.DataSource = Nothing
DataGrid1.Refresh
End Sub

di gunakan untuk mengosongkan isi datagrid, tapi data yang sudah di add tetap berada di database.

itulah sebagian penjelasannya>>>semoga bermanfaat<><><>...