โค๊ดตรงปุ่ม save ค่ะ ต้องเพิ่มยังไงบ้าง ช่วยทีนะคะ ขอร้อง
Code (VB.NET)
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
If txtid.Text = "" Then ' กรณีไม่มีสิ่งใดระบุจะไม่สามารถลบได้
MessageBox.Show("ยังไม่ได้ระบุพนักงาน")
Exit Sub
End If
Dim emp_id As Integer = Val(txtid.Text)
Dim firstname As String = txtfirstname.Text
Dim lastname As String = txtlastname.Text
Dim gender As String = txtgender.Text
Dim emp_pass As String = txtpass.Text
Dim address As String = txtaddress.Text
Dim email As String = txtemail.Text
Dim tel As String = txttel.Text
Dim salary As Double = Val(txtsalary.Text)
If flag = "Insert" Then
cmd = New SqlClient.SqlCommand("insert into employee (emp_id, firstname, lastname, gender, emp_pass, address, email, tel, salary, image) values ('" & emp_id & "', '" & firstname & "', '" & lastname & "', '" & gender & "', '" & emp_pass & "', '" & address & "', '" & email & "', '" & tel & "', '" & salary & "', '" & imagename & "')", conn)
cmd.ExecuteNonQuery()
If imagename <> "" Then 'copy รูปภาพไปเก็บไว้ในโฟล์เดอร์
System.IO.File.Copy(OpenFileDialog1.FileName, Pathstr & imagename, True)
End If
MessageBox.Show("เพิ่มข้อมูลเรียบร้อยแล้ว")
ClearText()
ElseIf flag = "Update" Then
MessageBox.Show("แก้ไขข้อมูลเรียบร้อยแล้ว")
'เขียนคำสั่ง Update เข้าแฟ้มพนักงาน
cmd = New SqlClient.SqlCommand("Update employee set firstname ='" & firstname & "',lastname='" & lastname & "',gender ='" & gender & "',emp_pass = '" & emp_pass & "',address = '" & address & "',email = '" & email & "',tel = '" & tel & "',salary = '" & salary & "',image='" & imagename & "' where emp_id=" & emp_id, conn)
cmd.ExecuteNonQuery()
'กรณีเปลี่ยนรูป ต้องกอปปี้ รูปไปเก็บในโฟล์เดอร์ด้วย
If OpenFileDialog1.FileName <> "" Then
System.IO.File.Copy(OpenFileDialog1.FileName, Pathstr & imagename, True)
End If
ClearText()
End If
End Sub