Jawaban UAS

ini merupakan jawaban UAS, yang tidak jadi diukumpulkan dan jadi tugas take home. sebenarnya saya juga bingung itu datanya tadi kenapa ya kok error "ga bisa di restore"... tapi ya sudahlah kurang lebih begini jawaban dari soal UAS yang sudah saya kerjakan...

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

cukup jawaban diatas.. tidak ada lagi jawaban lainnya... mungkin juga salah atau juga benar... dan mungkin akan banyak jawaban dari blog teman-teman  kelas F yang sama, mirip, ataupun serupa... ya yang saya harapkan semoga lulus aja ga lebih... terima kasih...

Cara Koneksi Database SQL Server ke VB.net

nah... ini dia cara cara koneksi kan vb ke sql server

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.

nah 

nah sekian nih infonya thanks yo moga bermanfaat....