FrmEditmahasiswa.aspx

Imports System.Data.OleDb
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports System.Net

Public Class FrmEditmahasiswa
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        TxtNIM.Enabled = False

        If Not IsPostBack Then
            Dim PNim As String
            If Session("BrowseMahNIM") = "" Or Session("BrowseMahNIM") = Nothing Then
                PNim = ""
            Else
                PNim = Session("BrowseMahNIM")
            End If
            Dim conn As SqlConnection
            Dim cmd As SqlCommand
            Dim rd As SqlDataReader

            Dim strconn As String = "Data Source=DESKTOP-K7FC1E9;Initial Catalog=DB_ASPNET;Persist Security Info=True;User ID=sa; Password=12345678"

            conn = New SqlConnection(strconn)
            conn.Open()

            cmd = New SqlCommand("select * from mahasiswa where nim= '" & PNim & "'", conn)

            rd = cmd.ExecuteReader
            rd.Read()

            If rd.HasRows = 0 Or rd.HasRows = Nothing Then
            Else
                If rd("nim") Is DBNull.Value Or rd("nim") = "" Then
                    TxtNIM.Text = ""
                Else
                    TxtNIM.Text = rd("nim")
                End If

                If rd("nama") Is DBNull.Value Or rd("nama") = "" Then
                    TxtNama.Text = ""
                Else
                    TxtNama.Text = rd("nama")
                End If

                If rd("alamat") Is DBNull.Value Then
                    TxtAlamat.Text = ""
                Else
                    TxtAlamat.Text = rd("alamat")
                End If



                If rd("tanggallahir") Is DBNull.Value Then
                    TxtTanggalLahir.Text = ""
                Else

                    TxtTanggalLahir.Text = Format(rd("tanggallahir"), "dd/MM/yyyy")

                End If

                If TxtTanggalLahir.Text = "" Then
                Else
                    If TxtTanggalLahir.Text = "01/01/1900" Then
                        TxtTanggalLahir.Text = ""
                    Else
                        Dim TL1 As Date
                        Dim TLF1 As String
                        TxtTanggalLahir.Text = rd("tanggallahir")
                        TL1 = TxtTanggalLahir.Text
                        TLF1 = TL1.ToString("yyyy/MM/dd")
                        TxtTanggalLahir.Text = TLF1
                    End If
                End If
            End If
        End If
    End Sub

    Protected Sub BtnCariData_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnCariData.Click
        Response.Redirect("FrmBrowseMahasiswaCookies.aspx")
    End Sub

    Protected Sub BtnEdit_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnEdit.Click
        update("UPDATE mahasiswa SET nama = '" & TxtNama.Text & "', alamat = '" & TxtAlamat.Text & "', tanggallahir= '" & TxtTanggalLahir.Text & "' where nim = '" & TxtNIM.Text & "' ")

        TxtNama.Text = ""
        TxtAlamat.Text = ""
        TxtTanggalLahir.Text = ""

        Dim sMsg As String = " Data Sudah Di Ubah ... !!!"

        ScriptManager.RegisterStartupScript(Page, Page.GetType, Guid.NewGuid().ToString(), "alert('" & sMsg & "')", True)
    End Sub

    Protected Sub Delete_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Delete.Click
        deletes("delete from mahasiswa where nim = '" & TxtNIM.Text & "'")

        TxtNIM.Text = ""
        TxtNama.Text = ""
        TxtAlamat.Text = ""
        TxtTanggalLahir.Text = ""

        Dim sMsg As String = " Data Sudah Di Hapus ... !!!"

        ScriptManager.RegisterStartupScript(Page, Page.GetType, Guid.NewGuid().ToString(), "alert('" & sMsg & "')", True)
    End Sub
End Class