Forgot Password ??

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

	Registered : 109,027

HOME > .NET Framework > Forum > ตอนแรกกำลังให้เลขอัตโนมัติเป็น 55-001 ตอนแรกก็บันทึกได้อ่ะครับ แต่พอมาครั้งที่2 ก็ยังเป็น 55-001 เหมือนเดิมเลย ตอนนี้อยากได้แบบรันไปเรื่อยๆๆอ่ะครับ 55-002,55-003 อ่ะครับ

ตอนแรกกำลังให้เลขอัตโนมัติเป็น 55-001 ตอนแรกก็บันทึกได้อ่ะครับ แต่พอมาครั้งที่2 ก็ยังเป็น 55-001 เหมือนเดิมเลย ตอนนี้อยากได้แบบรันไปเรื่อยๆๆอ่ะครับ 55-002,55-003 อ่ะครับ

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

Guest

Code (VB.NET)

Dim s As String = ""
        s = "Select  Top 1 id_sup From suppliers  Order  By  id_sup DESC"

        Dim da As New SqlDataAdapter(s, cn)
        Dim ds As New DataSet
        da.Fill(ds, "id_sup")

        Dim ny As String = Now.Year + 543
        Dim y As String = ny.Substring(2, 2)
        Dim m As String = Now.Month.ToString("-")
        Dim newid As String = ""

        With ds.Tables("id_sup")
            If .Rows.Count = 0 Then
                newid = y & m & "001"
                TextBox2.Text = newid
                Exit Sub
            End If
            Dim oldid, Lid, mid, Rid As String
            oldid = .Rows(0).Item(0).ToString
            Lid = oldid.Substring(0, 2)
            mid = oldid.Substring(2, 2)
            Rid = oldid.Substring(3, 3)
            If y = Lid Then
                If m = mid Then
                    newid = y & m & (CInt(Rid) + 1).ToString("000")
                Else
                    newid = y & m & "001"
                End If
            Else
                newid = y & m & "001"
            End If
            TextBox2.Text = newid
        End With

        TextBox3.ReadOnly = False
        TextBox3.Focus()

Tag : .NET, Ms SQL Server 2008, Win (Windows App), VB.NET, VS 2008 (.NET 3.x), Windows

Date : 2012-11-26 14:32:24

By : บี

View : 954

Reply : 3

No. 1

Guest

ช่วยหน่อยนะครับ

Date : 2012-11-26 14:56:40

By : บี

No. 2

บิ๊กกี้กรรมกรไซเบอร์

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

Code (VB.NET)

Sub autoid()
        Dim tmpautoid As Integer = 0
        Dim sqlauto As String
        sqlauto = "SELECT Field From Table "
        DC.CommandType = CommandType.Text
        DC.CommandText = sqlauto
        DC.Connection = CONN
        DA = New OleDbDataAdapter(DC)
        DS1.Clear()
        DA.Fill(DS1, "number")
        tmpautoid = (DS1.Tables("number").Rows.Count) + 1
        txt_Depart_id.Text = Format("55-" + tmpautoid.ToString("000"))
    End Sub

ผมสร้าง Sub แล้วเรียกใช้เอาครับ แบบนี้ ลองดูครับ

Date : 2012-11-26 16:22:03

By : Littlefatboyz

No. 3

tee

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

อันนี้เป็น โค้ด C# นะครับ ลองเอาไปประยุกต์ใช้งาน

Code (C#)

 private string GetRunningId()
        {
            string _RunId = "";
            string _GetDate = "";

            if (con.State == ConnectionState.Open) con.Close();
            con.ConnectionString = @"Data Source=172.0.0.1\sql2008;Initial Catalog=ThaiCreateDB;User ID=sa;Password=sa;";
            con.Open();

            sb.Remove(0, sb.Length);
            sb.Append(" select GETDATE() as GetDate ");
            DataSet dsGetDate = new DataSet();
            da = new SqlDataAdapter(sb.ToString(), con);
            da.Fill(dsGetDate, "GetDate");

            _GetDate = Convert.ToDateTime(dsGetDate.Tables["GetDate"].Rows[0]["GetDate"].ToString()).Year.ToString();


            sb.Remove(0, sb.Length);
            sb.Append(" select max(customerid) as customerid from customer ");

            DataSet dsRunning = new DataSet();
            da = new SqlDataAdapter(sb.ToString(), con);
            da.Fill(dsRunning, "Running");

            if (dsRunning.Tables["Running"].Rows.Count != 0)
            {
                string _RunIdOld = dsRunning.Tables["Running"].Rows[0]["customerid"].ToString();
                string[] _arrayRun = _RunIdOld.Split('-');
                int _RunningNew = int.Parse(_arrayRun[1].ToString()) + 1;


                _RunId = _GetDate.Substring(2, 2) + "-" + _RunningNew.ToString("0000");
            }
            else
            {
                _RunId = _GetDate.Substring(2, 2) + "-" + "0001";
            }

            return _RunId;
        }

Date : 2012-11-27 13:34:38

By : tee

ค้นหาข้อมูล

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

Re : ตอนแรกกำลังให้เลขอัตโนมัติเป็น 55-001 ตอนแรกก็บันทึกได้อ่ะครับ แต่พอมาครั้งที่2 ก็ยังเป็น 55-001 เหมือนเดิมเลย ตอนนี้อยากได้แบบรันไปเรื่อยๆๆอ่ะครับ 55-002,55-003 อ่ะครับ

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

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

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ