Access_TB_Karyawan

Imports System.Data.SqlClient

Namespace DataAcces

Public Class Access_TB_Karyawan

Public Function Karyawan_Insert(ByVal nik As String, ByVal nama As String, ByVal grade As String, ByVal siteCard As String, ByVal posisi As String, ByVal lokasi As String, ByVal department As String, ByVal upNik As String, ByVal UpDate As String) As SqlDataReader

Dim MyConnection As DataAcces.DatabaseConnection = New DataAcces.DatabaseConnection

' MsgBox("Debug 0 ")

'Nama Store Prosedur''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Dim myCommand As SqlCommand = New SqlCommand("Karyawan_Insert", MyConnection.open)

myCommand.CommandType = CommandType.StoredProcedure

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'nik

Dim parameter_nik As SqlParameter = New SqlParameter("@nik", SqlDbType.VarChar, 50)

parameter_nik.Value = nik

'nama

Dim parameter_nama As SqlParameter = New SqlParameter("@nama", SqlDbType.VarChar, 100)

parameter_nama.Value = nama

'grade

Dim parameter_grade As SqlParameter = New SqlParameter("@grade", SqlDbType.VarChar, 50)

parameter_grade.Value = grade

'siteCard

Dim parameter_siteCard As SqlParameter = New SqlParameter("@siteCard", SqlDbType.VarChar, 100)

parameter_siteCard.Value = siteCard

'posisi

Dim parameter_posisi As SqlParameter = New SqlParameter("@posisi", SqlDbType.VarChar, 50)

parameter_posisi.Value = posisi

'lokasi

Dim parameter_lokasi As SqlParameter = New SqlParameter("@lokasi", SqlDbType.VarChar, 50)

parameter_lokasi.Value = lokasi

'department

Dim parameter_department As SqlParameter = New SqlParameter("@department", SqlDbType.VarChar, 50)

parameter_department.Value = department

'upNik

Dim parameter_upNik As SqlParameter = New SqlParameter("@upNik", SqlDbType.VarChar, 50)

parameter_upNik.Value = upNik

'UploadDate

Dim parameter_UpDate As SqlParameter = New SqlParameter("@UpDate", SqlDbType.VarChar, 50)

parameter_UpDate.Value = UpDate

With myCommand.Parameters

.Add(parameter_nik)

.Add(parameter_nama)

.Add(parameter_grade)

.Add(parameter_siteCard)

.Add(parameter_posisi)

.Add(parameter_lokasi)

.Add(parameter_department)

.Add(parameter_upNik)

.Add(parameter_UpDate)

End With

Dim result As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)

'MsgBox("Debug 1 " & CStr(result))

Return result

End Function

Public Function Karyawan_Update_Nik(ByVal nik As String, ByVal upNik As String)

Dim MyConnection As DataAcces.DatabaseConnection = New DataAcces.DatabaseConnection

' MsgBox("Debug 0 ")

'Nama Store Prosedur''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Dim myCommand As SqlCommand = New SqlCommand("Karyawan_IdMaster_Update", MyConnection.open)

myCommand.CommandType = CommandType.StoredProcedure

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'nik

Dim parameter_nik As SqlParameter = New SqlParameter("@nik", SqlDbType.VarChar, 50)

parameter_nik.Value = nik

'upNik

Dim parameter_upNik As SqlParameter = New SqlParameter("@upNik", SqlDbType.VarChar, 50)

parameter_upNik.Value = upNik

With myCommand.Parameters

.Add(parameter_nik)

.Add(parameter_upNik)

End With

Dim result As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)

'MsgBox("Debug 1 " & CStr(result))

Return result

End Function

End Class

End Namespace