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
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi8nTrxB_yCkpwWbOuvXaJieUEgrsr1He_eMKRkrWCq3GRSyvQ7m1y02oUOXGRDhXPwL6_WGzrO1cFspcM6_N9u-5lPkF1BjDZ0dDZEc0SuRlxfM04aifpELiYZeJsXxxCxEblPVavkgtVU/s320/table.jpg)
2. Design
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiii0bvR-4UpN-eRa5s0i32roGBdcDkBtSdKu3xtM10gpGefM8-T_0xxasnDLSXvjc6xB1x3tzM9JxuUMK6JPoLb9CJ8lhGodXjTVOixpLt-2PAtIKCwOBH30QiiZ4r1ykhR-5huOtkmpUO/s320/tampilan.jpg)
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEimzKUb3HxVHy-tI2E_V7NU3bIvw2YeFkUz90lPYLqfgANb_FVYFrYHFUySai5IwAaEJzESfEesrU9nvO_zYGguF9_xDPylRjK07GJarWeexTFLNXAwt_gkVkGg2UCqUfrWkxhPSnGVsGZh/s320/view.jpg)
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
Tidak ada komentar:
Posting Komentar