ต้องการให้เวลาบันทึก ให้บันทึก id ในฟิว ProfileID โดยอัตโนมัตอ่คะ แล้วก็ฟิว PID ดึงรหัสหรือ PK จากตาราง history ที่บันทึกล่าสุด มาบันทึกในฟิว PID ของตาราง Profile โดยอัตโนมัติทำไงคะ
นี่เป็นโค๊ดที่ลองทำ ก็บันทึกไม่ได้ค่ะ มันขึ้นว่า Canot insert explicit value for identity culumn in table'PROFILES' when identity_insert is set to off.
If rdoNew_t2.Checked = False And rdoMove_t2.Checked = False Or _
ComboPrison_t2.Text.Trim() = "" Or txtBlame_t2.Text.Trim() = "" Or txtTall_t2.Text.Trim() = "" Or _
txtWeight_t2.Text.Trim() = "" Or _
ComboDepartment_t2.Text.Trim() = "" Or _
ComboPart_t2.Text.Trim() = "" Or _
ComboArea_t2.Text.Trim() = "" Then
MessageBox.Show("กรุณาป้อนข้อมูลให้ครบก่อน !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
txtBlame_t2.Focus()
Exit Sub
End If
com = New SqlCommand
Try
If rdoNew_t2.Checked = True Then
sqlProfile &= "'รับตัวใหม่')"
ElseIf rdoMove_t2.Checked = True Then
sqlProfile &= "'ย้ายมาจากเรือนจำอื่น')"
End If
With Conn 'เริ่มต้นเชื่อมต่อกับฐานข้อมูล
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strConn
.Open() 'เชื่อมต่อกับฐานข้อมูล
End With
com = New SqlCommand
With com
.CommandType = CommandType.Text
.CommandText = sqlProfile
.Connection = Conn
.ExecuteNonQuery() 'รันชุดคำสั่ง SQL
End With
MessageBox.Show("เพิ่มข้อมูล เรียบร้อยแล้ว !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
tmpMemberID = tmpMemberID + 1
FormRelation.ShowDialog()
Catch ex As Exception
MessageBox.Show("เกิดข้อผิดพลาดเนื่องจาก " & ex.Message, "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
Load balance : Server 03
