Private Sub cmd_search_join_Click(sender As Object, e As EventArgs) Handles cmd_search_join.Click
Call konek_sql_server()
If txtnik3.Text = "" Then
MsgBox("Nik Masih Kosong", vbCritical)
Else
query_sql_server = "select * from siswa where nik=@nik"
cmd_sql_server = New SqlCommand(query_sql_server, conn_sql_server)
cmd_sql_server.Parameters.AddWithValue("@nik", txtnik3.Text)
dr_sql_server = cmd_sql_server.ExecuteReader
If dr_sql_server.HasRows = 0 Then
MsgBox("Nik Is Not Found", vbCritical)
Call clear_panel_sql_server()
Response.Redirect(Request.Url.AbsoluteUri)
Else
query_sql_server = "select siswa.nama,siswa.jurusan,siswa.image,nilai.nilai1,nilai.nilai2,nilai.nilai3 from siswa inner join nilai on nilai.nik=siswa.nik where siswa.nik=@nik"
cmd_sql_server = New SqlCommand(query_sql_server, conn_sql_server)
cmd_sql_server.Parameters.AddWithValue("@nik", txtnik3.Text)
dr_sql_server = cmd_sql_server.ExecuteReader
If dr_sql_server.HasRows Then
While dr_sql_server.Read
txtnama3.Text = dr_sql_server("nama")
txtjurusan3.Text = dr_sql_server("jurusan")
txtnilai31.Text = dr_sql_server("nilai1")
txtnilai32.Text = dr_sql_server("nilai2")
txtnilai33.Text = dr_sql_server("nilai3")
txtnik3.Enabled = False
End While
End If
End If
End If
cmdupdate3.Enabled = True
cmddelete3.Enabled = True
Me.Dispose()
End Sub