Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > .NET Framework > Forum > สอบถามเรื่องการทำเลข running ในข้อมูลครับ เมื่อจะ insert ให้บวกหนึ่ง

สอบถามเรื่องการทำเลข running ในข้อมูลครับ เมื่อจะ insert ให้บวกหนึ่ง

เริ่มหัวข้อใหม่

bankguszo

โพสกระทู้ ( 156 )
บทความ ( 0 )

สอบถามเรื่องการทำเลข running ในข้อมูลครับ สมมุติว่า ผมมีตัวแปรหนึ่งที่ได้ค่ามาแล้ว แต่ผมต้องการให้ ข้อมูลตัวนี้ +1 ก่อนที่จะทำการ insert โดยที่จะ +1 แค่เฉพาะตอน insert เท่านั้น รบกวนช่วยแนะนำด้วยครับ ผมจะส่งค่าที่ผมได้เข้าไปใน query ตามด้านล่างอย่างไรครับ

ตัวอย่าง A1803XX คือข้อมูลที่ได้จากการเก็บข้อมูลมาแล้วเมื่อจะ insert จะต้อง +1 ก่อน จะได้เลข A1804XX แบบนี้ครับ (เลข 18 ข้างหน้าจะเป็น 2 ตัวสุดท้ายของปีครับ จะไม่นำมาบวก)

Dim strRevision As String = "A1803XX"

Code (VB.NET)

Public Shared Function GetPeriodrun(ByVal strRevision As String) As DataTable
        Dim dt As New DataTable
        Using db As New Oracle(BaseModel.GetConnectionString("AVO"))
            db.OpenConnection()
            Dim strSql As New System.Text.StringBuilder
            strSql.AppendLine(" SELECT SUBSTR(MAX(TPC_REVISION),1,3)||SUBSTR(MAX(TPC_REVISION),4,2)+1||'XX' ")
            strSql.AppendLine(" FROM TAXC_PERIOD_CTRL T")
            strSql.AppendLine(" WHERE TPC_REVISION ='" & strRevision & "'")
            strSql.AppendLine(" GROUP BY TPC_REVISION")
            db.CreateCommand(strSql.ToString, CommandType.Text)
            dt = db.ExecuteReader()
            db.CloseConnection()
        End Using
        Return dt
    End Function

Tag : .NET, Oracle, VS 2010 (.NET 4.x)

ประวัติการแก้ไข
2018-02-13 11:54:55
2018-02-13 11:56:34
2018-02-13 11:56:56
2018-02-13 11:57:19
2018-02-13 11:58:05

Date : 2018-02-13 11:53:49

By : bankguszo

View : 946

Reply : 2

No. 1

bankguszo

โพสกระทู้ ( 156 )
บทความ ( 0 )

Date : 2018-02-14 07:40:42

By : bankguszo

No. 2

Two

โพสกระทู้ ( 77 )
บทความ ( 0 )

Code (VBScript)

    Function PlusIntStr(ByVal S As String, Start As Integer, ChrLen As Integer, Number As Integer) As String
        With S
            Return .Insert(3, Format(Int(.Substring(Start - 1, ChrLen)) + Number, StrDup(ChrLen, "0"))).Remove((Start - 1) + ChrLen, ChrLen)
        End With
    End Function

    MsgBox(PlusIntStr("A1803XX", 4, 2, 1))

เขียน command text ไม่เป็น เลยเขียนฟังค์ชั่น
ฟังชั่นจะ error เมื่อเลขเกิน 99 นะ

Date : 2018-02-14 11:02:22

By : nk4ever

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : สอบถามเรื่องการทำเลข running ในข้อมูลครับ เมื่อจะ insert ให้บวกหนึ่ง

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)