01.Imports System.Data.SqlClient
02.
03.Public Class Manage_RawMaterial_New
04. Inherits System.Web.UI.Page
05.
06. Dim objConn As SqlConnection
07. Dim objCmd As SqlCommand
08. Dim strConnString, strSQL As String
09.
10. Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
11.
12. End Sub
13.
14. Public Sub ConnectDB()
15.
16. strConnString = ConfigurationManager.ConnectionStrings("con").ConnectionString
17. objConn = New SqlConnection(strConnString)
18.
19. End Sub
20.
21. Private Sub AddAutoID()
22. Try
23. Dim intNum As String = Nothing
24. Dim Count As Integer
25.
26. ConnectDB()
27.
28. strSQL = "SELECT ISNULL(MAX(RIGHT(RM_ID,4)),0) AS RM_ID FROM RawMaterial_New"
29. objCmd = New SqlCommand(strSQL, objConn)
30.
31. objConn.Open()
32. Count = objCmd.ExecuteScalar()
33. objConn.Close()
34.
35. Dim iMAX As Integer = IIf(Count <= 0, 1, Count + 1)
36. If iMAX < 10000 Then
37. strSQL = "INSERT INTO RawMaterial_New (RM_ID) VALUES ('" & iMAX.ToString("RM0000") & "')"
38. objCmd = New SqlCommand(strSQL, objConn)
39.
40. objConn.Open()
41. objCmd.ExecuteNonQuery()
42. objConn.Close()
43.
44. MsgBox("บันทึกสำเร็จ")
45. Else
46. MsgBox("ข้อมูลเต็ม")
47. End If
48. Catch ex As Exception
49. Response.Write("Error : " + ex.Message)
50. End Try
51.
52. End Sub
53.
54. Protected Sub btnRM_Add_Click(sender As Object, e As EventArgs) Handles btnRM_Add.Click
55.
56. AddAutoID()
57.
58. End Sub
59.
60.End Class
Load balance : Server 03
