01.
Private
Sub
btnSubmit_Click(sender
As
Object
, e
As
EventArgs)
Handles
btnSubmit.Click
02.
Try
03.
Using objConn
As
New
SqlConnection(strConn)
04.
objConn.Open()
05.
Using objtransaction
As
SqlTransaction = objConn.BeginTransaction(IsolationLevel.ReadCommitted)
06.
Using objcmd
As
New
SqlCommand(
"P_Emp"
, objConn)
07.
With
objcmd
08.
.CommandType = CommandType.StoredProcedure
09.
.Transaction = trans
10.
.Parameters.AddWithValue(
"@Action"
,
"Insert"
)
11.
.Parameters.AddWithValue(
"@Emp_ID"
, SqlDbType.NVarChar).Value = lblAutoId.Text
12.
.Parameters.AddWithValue(
"@Emp_User"
, SqlDbType.NVarChar).Value = txtUser.Text
13.
.Parameters.AddWithValue(
"@Emp_Pass"
, SqlDbType.NVarChar).Value = txtPass.Text
14.
.Parameters.AddWithValue(
" @Emp_Name"
, SqlDbType.NVarChar).Value = txtFirstname.Text
15.
.Parameters.AddWithValue(
"@Emp_Surname"
, SqlDbType.NVarChar).Value = txtSurname.Text
16.
.Parameters.AddWithValue(
" @Emp_Phone"
, SqlDbType.NVarChar).Value = txtPhone.Text
17.
.Parameters.AddWithValue(
"@Emp_Email"
, SqlDbType.NVarChar).Value = txtEmail.Text
18.
.Parameters.AddWithValue(
"@Emp_Address"
, SqlDbType.NVarChar).Value = txtAddress.Text
19.
.Parameters.AddWithValue(
" @Emp_PostCode"
, SqlDbType.NVarChar).Value = txtPostcode.Text
20.
.Parameters.AddWithValue(
"@Emp_ID"
, SqlDbType.Int).Value = lblAutoId.Text
21.
.Parameters.AddWithValue(
"@Role_ID"
, SqlDbType.Int).Value = ddlRole.SelectedValue.ToString
22.
.Parameters.AddWithValue(
"@P_ID"
, SqlDbType.Int).Value = ddlPosition.SelectedValue.ToString
23.
.Parameters.AddWithValue(
"@Dept_ID"
, SqlDbType.Int).Value = ddlDept.SelectedValue.ToString
24.
.Parameters.AddWithValue(
"@PROVINCE_ID"
, SqlDbType.Int).Value = ddlProvince.SelectedValue.ToString
25.
.Parameters.AddWithValue(
"@DisTrict_ID"
, SqlDbType.Int).Value = ddlDistrict.SelectedValue.ToString
26.
.Parameters.AddWithValue(
"@Amphur_ID"
, SqlDbType.Int).Value = ddlAumphur.SelectedValue.ToString
27.
.Parameters.AddWithValue(
"@M_DateRegis"
, SqlDbType.DateTime).Value = DateTime.Now.ToString(CultureInfo.CreateSpecificCulture(
"en-US"
))
28.
.CommandText =
"P_Emp"
29.
.ExecuteNonQuery()
30.
End
With
31.
32.
End
Using
33.
gentAutoId()
34.
End
Using
35.
End
Using
36.
Catch
ex
As
Exception
37.
38.
End
Try
39.
End
Sub