Kali ini saya akan memposting tugas LAB SMBD saya tentang Stored Procedure dan Trigger.
Saya menggunakan contoh kasus rumah sakit untuk kali ini.
1. Table
2. Design
3. Coding
Imports System.Data
Imports System.Data.OleDb
Public Class datapasien
Inherits System.Web.UI.Page
Public constring As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
Public oConn As New OleDbConnection(constring)
Public oTbl As New DataTable
Public xReader As OleDbDataReader
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
'Insert
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim sql As String = "INSERT INTO TablePasien VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"
Dim oCmd As New OleDbCommand
oConn.Open()
oCmd.Connection = oConn
oCmd.CommandText = sql
oCmd.ExecuteNonQuery()
End Sub
Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Response.Redirect("View.aspx")
End Sub
'Search
Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
oConn.Close()
oConn.Open()
Dim Cmd As New OleDbCommand("SELECT * FROM TablePasien where IDPasien =" + TextBox1.Text + "", oConn)
xReader = Cmd.ExecuteReader
If xReader.HasRows Then
xReader.Read()
TextBox2.Text = xReader("Waktu Kunjungan")
TextBox3.Text = xReader("Keluhan")
TextBox4.Text = xReader("Dokter yang menangani")
TextBox5.Text = xReader("Tindakan")
Else
MsgBox("ID Pasien Tidak Ada")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
Exit Sub
End If
xReader.Close()
End Sub
'Update
Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim sql As String = " UPDATE TablePasien set Waktu Kunjungan ='" & TextBox2.Text & "', Keluhan = '" & TextBox3.Text & "', Dokter yang menangani = '" & TextBox4.Text & "', Tindakan = '" & TextBox5.Text & "' where IDPasien = " & TextBox1.Text & ""
Dim oCmd As New OleDbCommand
oConn.Close()
oConn.Open()
oCmd.Connection = oConn
oCmd.CommandText = sql
oCmd.ExecuteNonQuery()
End Sub
End Class
Demikian Tugas UAS LAB SMBD saya, terima kasih!
Elizabeth Clara Sukma
1506761141
