Jawaban UAS Database Terdistribusi

Jawaban ne mungkin agak mirip dengan jawaban teman" yg lain. Yaaa,, mau gimana lagi emang gitu rumusnya. kalu di kasih nilai jelek ya udah.. yg beda dari jawaban UAS ini cuma nama dan NIM saja. Gak ada manusia yg sempurna. mencontek itu hal yg sering di lakukan Mahasiswa apa lagi jawabanx di posting di BLOG. Sampai ketemu lagi di Mata Kuliah Berikutnya.. :*


Jawaban UAS Database Terdistribusi

2.Pelajari hasil Fungsi DATEIFF dan GETDATE, dan DATEADD. Jelaskan Sintax dan perbedaan dari ketiga fungsi waktu tersebut.

Jawab:

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


Contoh Penggunaan
select DATEDIFF (datepart,tanggal_awal,tanggal_akhir)
select DATEDIFF("dd", '01-01-2011','02-01-2011'
select DATEDIFF("dd", '03/01/2011','02/01/2011')



Dateadd : Menambah nilai argumen datetime dengan interval yang diberikan


Contoh Penggunaan :
SELECT DATEADD(day,10,getdate())
SELECT DATEADD(Month,10,getdate())
SELECT DATEADD(year,10,getdate())


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


Contoh Pengunaan:
SELECT GATEDATE()



4.Buat View DataPegawai dengan kolom Nomor Pegawai, Nama, Sex, Nikah, Agama, Pendidikan, Jabatan, Kode Kontrak

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


5. Buat Procedure HitungJumlahBayar untuk menghitung Total Pembayaran yang sudah dilakukan oleh Pegawai tertentu.

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


6.  Buat Procedure TampilPendidikan untuk menampilkan data pegawai yang berpendidikan tertentu dari View DataPegawai

Jawab:

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


7.  Buat Function PendidikanPegawai dari NomerPegawai. Penggunaan function ini bisa sebagai berikut : Select PendidikanPegawai(Nomer) from DataPegawai

Jawab:
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

Cara Koneksi Database SQL Server ke VB.net

Cara Koneksi Database SQL Server ke VB.net

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

Sory kalu liat di link sebelah tapi ne penjelasan yg paling lengkap soalnya emang beginilah caranya karena saya tak pandai mengarang. salam manis dari yg punya blog.