ตอบเจ้าของกระทู้ field แบบ int identity แค่นั้นไม่ได้หรอกครับ
Date :
2011-02-23 23:24:58
By :
PlaKriM
No. 3
Guest
Private Sub autoEmployee_ID() 'เพิ่มidอัตโนมัติ
Dim sqlcmd As SqlCommand = New SqlCommand
Dim dr As SqlDataReader
Dim tempSql As String = "select Max(Emp_ID) as Emp_ID from Employee" 'คำสั่งsql ในตาราง
Dim tempId As String
openConn()
Try
sqlcmd.CommandType = CommandType.Text
sqlcmd.CommandText = tempSql
sqlcmd.Connection = SqlConnection1
dr = sqlcmd.ExecuteReader
Catch ex As Exception
MessageBox.Show(ex.Message)
Exit Sub
End Try
dr.Read()
If IsDBNull(dr.Item("Emp_ID")) = True Then 'ไอดี
tbEmpID.Text = "Emp" & "001" 'ขึ้นต้น emp
Else
tempId = dr.Item("Emp_ID")
tbEmpID.Text = "Emp" & (tempId.Substring(3) + 1).ToString("000")
End If
closeConn()
End Sub