Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,038

HOME > .NET Framework > Forum > แจกโค้ดทำ AutoNumber ทำเลขที่เอกสาร VB.NET/VB2008 กับ Access2007


 

[.NET] แจกโค้ดทำ AutoNumber ทำเลขที่เอกสาร VB.NET/VB2008 กับ Access2007

 
Topic : 078009



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



สถานะออฟไลน์
Facebook


ทำได้แล้วโค้ด เอาของเพื่อนมาแก้ๆ พอได้ก็เอามาแชร์ซะหน่อยเผื่อมีประโยชน์กับคนอื่นๆ ดัดแปลงเอาเองน่ะ

Code (VB.NET)
01.Dim Cmd As OleDbCommand
02. Dim Dr As OleDbDataReader
03. 
04.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
05.        GenOrderID()
06.    End Sub
07. 
08.    Sub GenOrderID()
09.        Dim sql As String = "Select Max(Right(id_staff,5)) as oid from tb_staff"
10.        Cmd = New OleDbCommand(sql, conn)
11.        ConnectDB()
12.        'MsgBox(Cmd.ExecuteScalar)
13.        'Dim newOid As Integer = CInt(Cmd.ExecuteScalar)
14.        Dr = Cmd.ExecuteReader
15.        Dr.Read()
16.        If Not Dr.HasRows Then
17.            'ถ้าค่าที่ได้รับเป็นค่า Null
18.            '   MsgBox("ok")
19.            'MsgBox(Now.ToString("yy"))
20.            t_id.Text = "S" & Now.ToString("yy") & "0000000001"
21.        Else
22.            Dim newID As Integer = CInt(Dr.Item("oid"))
23.            newID += 1
24.            t_id.Text = "S" & Now.ToString("yy") & newID.ToString("0000000000")
25.        End If
26. 
27.        'newOid = newOid + 1
28.        'txtOrderId.Text = newOid.ToString
29.        'Conn.Close()
30.    End Sub




Tag : .NET, Ms Access, VS 2008 (.NET 3.x)

Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2012-05-04 23:28:32 By : sanooker_123 View : 15780 Reply : 19
 

 

No. 1



โพสกระทู้ ( 74,059 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

เยี่ยมครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-05-05 07:30:02 By : mr.win
 

 

No. 2



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



สถานะออฟไลน์


ขอความกรุณาช่วยแปลง Code ด้านบนเป็น C# ให้หน่อยครับ ผมแปลงไม่เป็นอะครับ
ขอบคุณครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-08-02 21:26:23 By : peteyothin
 

 

No. 3



โพสกระทู้ ( 74,059 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

Code (C#)
01.OleDbCommand Cmd;
02. 
03.OleDbDataReader Dr;
04.private void Button1_Click(System.Object sender, System.EventArgs e)
05.{
06.    GenOrderID();
07.}
08. 
09.public void GenOrderID()
10.{
11.    string sql = "Select Max(Right(id_staff,5)) as oid from tb_staff";
12.    Cmd = new OleDbCommand(sql, conn);
13.    ConnectDB();
14.    //MsgBox(Cmd.ExecuteScalar)
15.    //Dim newOid As Integer = CInt(Cmd.ExecuteScalar)
16.    Dr = Cmd.ExecuteReader;
17.    Dr.Read();
18.    if (!Dr.HasRows) {
19.        //ถ้าค่าที่ได้รับเป็นค่า Null
20.        //   MsgBox("ok")
21.        //MsgBox(Now.ToString("yy"))
22.        t_id.Text = "S" + DateAndTime.Now.ToString("yy") + "0000000001";
23.    } else {
24.        int newID = Convert.ToInt32(Dr.Item("oid"));
25.        newID += 1;
26.        t_id.Text = "S" + DateAndTime.Now.ToString("yy") + newID.ToString("0000000000");
27.    }
28. 
29.    //newOid = newOid + 1
30.    //txtOrderId.Text = newOid.ToString
31.    //Conn.Close()
32.}

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-08-03 08:47:05 By : mr.win
 

 

No. 4



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



สถานะออฟไลน์


พี่ค่ะ น้องลองดัดแปลงโค้ด ที่พี่ได้โพสให้ แต่ทำไม มันขึ้น S001 ตลอกเลยค่ะ ไม่แน่ใจว่าโค้ด ของน้องผิดส่วนไหน พี่ๆช่วยดูให้หน่อยน่ะค่ะ

Code (VB.NET)
01.Protected Sub GenOrderID()
02.        Dim dv As DataView
03. 
04.        Dim sql As String = "Select Max(Right(staff_id,4)) as staff_id from tb_staff"
05.        dv = ObjDb.GetDataSet(sql).Tables(0).DefaultView
06.        'dv.Table(tb_staff)
07.        If Not dv.Count > 0 Then
08.            'ถ้าค่าที่ได้รับเป็นค่า Null
09.            '   MsgBox("ok")
10.            'MsgBox(Now.ToString("yy"))
11.            txtstaff_id.Text = "S" & "001"
12.        Else
13.            Dim newID As Integer = CInt(dv.Equals("staff_id"))
14.            newID = newID + 1
15.            '  MsgBox(newID)
16.            txtstaff_id.Text = "S" & newID.ToString("000")
17.        End If
18. 
19.    End Sub

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-01-12 01:20:11 By : keem
 

 

No. 5



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



สถานะออฟไลน์


พี่ช่วยดูให้หน่อยน่ะค่ะ

S001 ตลอด เลยค่ะ อยากให้ต่อเนื่องกัน S001,S002,S003................ไปเรื่อยๆ เมื่อต้องการป้อนข้อมูลผู้ใช้ใหม่
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-01-12 11:26:54 By : keem
 

 

No. 6



โพสกระทู้ ( 74,059 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

ตอบความคิดเห็นที่ : 5 เขียนโดย : keem เมื่อวันที่ 2013-01-12 11:26:54
รายละเอียดของการตอบ ::
คุณจะต้องทำการ Insert ข้อมูล S001 ลงใน table ก่อนครับ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-01-13 07:22:25 By : mr.win
 

 

No. 7

Guest


แปลงเป็น VB ให้หน่อยนะคะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-02-23 14:53:55 By : พู่
 

 

No. 8



โพสกระทู้ ( 74,059 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

VB อันแรกสุดครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-02-23 18:31:44 By : mr.win
 

 

No. 9

Guest


เมื่อไหร่จะเลิกใช้ autonumber แบบบวก 1 กันซะทีนะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-02-26 08:28:59 By : ห้ามตอบเกินวันละ 2 กระทู้
 

 

No. 10



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



สถานะออฟไลน์


ตอบความคิดเห็นที่ : 9 เขียนโดย : ห้ามตอบเกินวันละ 2 กระทู้ เมื่อวันที่ 2013-02-26 08:28:59
รายละเอียดของการตอบ ::
ถ้าไม่ใช้ +1 ต้องทำยังไงหรอคะช่วยสอนหน่อยค่ะต้องการรันแบบมีตัวอักษรผสมวันที่เดือน และปี เข้ามาด้วยอะค่ะ กำลังต้องการด่วนเลยค่ะ แนะนำหน่อยนะคะ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-05-19 11:08:03 By : borobirt
 

 

No. 11

Guest


Code (SQL)
1.CREATE TABLE [MyTable](
2.    [ID] [int] IDENTITY(1,1) Primary Key Clustered,
3.        [MyCode] [nvarchar](50) NULL,
4.    [MyName] [nvarchar](50) NULL
5.)


Code (SQL)
1.INSERT INTO MyTable
2.(MyCode, MyName)
3.VALUES        ('CR' + SUBSTRING(CONVERT(NVARCHAR(4), YEAR(GETDATE()) + 543), 3, 2) + SUBSTRING(REPLACE(CONVERT(NVARCHAR(8), GETDATE(), 103), '/', ''), 3, 2)
4.                         + REPLICATE('0', 6 - LEN(IDENT_CURRENT('MyTable'))) + CONVERT(NVARCHAR(6), IDENT_CURRENT('MyTable')), 'Thaicreate')


รันแล้วจะได้แบบนี้
1.// --> CR5605000001

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-05-20 08:42:21 By : ห้ามตอบเกินวันละ 2 กระทู้
 

 

No. 12

Guest


ConnectDB() คืออะไรหรอครับๆ


dv = ObjDb.GetDataSet(sql).Tables(0).DefaultView คืออะไรหรอครับ ^^



string sql = "Select Max(Right(id_staff,5)) as oid from tb_staff"; อันนี้ ด้วย นะครับ ^^.
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-08 20:28:11 By : sonaja
 

 

No. 13

Guest


ใจก็ไม่ค่อยได้อยากใช้อะไรหรอก บวก 1 อ่ะ ..............อาจารย์ให้ทำ รมเสีย
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-03-20 13:31:54 By : kung
 

 

No. 14

Guest


Code (SQL)
01.DECLARE @CAPTURE  INT;
02.SELECT @CAPTURE=RequestNumber   FROM [config] ;
03.IF (@CAPTURE IS NULL
04.BEGIN
05.    INSERT INTO [CONFIG]
06.    (
07.        RequestNumber      
08.    )
09.    VALUES
10.    (
11.        0
12.    )
13.END ;
14.UPDATE [CONFIG] SET RequestNumber= RequestNumber+1 ;
15.SELECT RequestNumber FROM [config] ;

ตัวอย่างแบบง่าย
table ชื่อ config มี field ชื่อ RequestNumber เพื่อเก็บ autonumber อะไรก็ตามแต่
ชุดนี้จะอ่านค่า RequestNumber ขึ้นมาและถ้ามันยังไม่มี ( มีแต่ตารางเปล่าๆ )
มันก็จะ auto insert ให้ก่อน จากนั้นจะทำการ update ด้วยค่า+1
เพื่อให้ค่าเพิ่มขึ้นสำหรับการเรียกใช้รอบถัดไป
ไม่ใช่วิธีที่ดีอะไรมากมายแต่ก็น่าจะใช้ได้


ก็เปลียนชื่อ ตารางและชื่อฟิลด์ตามที่ต้องการ
แล้วจับทั้งชุดยัดลงไปใน executescalar
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-03-21 17:43:50 By : DOG{B}
 

 

No. 15



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



สถานะออฟไลน์


แถมให้อีกนิดครับ ผมก็ดัดแปลงจาก Code ที่ได้จาก thaicreate.com นี่และครับ

ผมทำแบบ "ปีเดือนจำนวน" > 25580300001 ประมาณว่าหากเปลี่ยนปีหรือเปลี่ยนเดือนก็เริ่ม 1 ใหม่ ผมใช้กับ Table ที่เป็น Transaction


Code (VB.NET)
01.Public Sub AutoID()
02.    Call OpenDB()
03.    gStrSql = ""
04.    'gStrSql = "select max(ID) as AutoID from Tbl_Event"
05.    gStrSql = "select top 1 ID from Tbl_Event order by ID desc"
06.    Dim daID = New OleDbDataAdapter(gStrSql, Conn)
07.    Dim dsID = New DataSet
08.    daID.Fill(dsID, "Tbl_Event")
09.    yy = CStr(Now.Year + 543)
10.    mm = Now.Month.ToString("00")
11.    With dsID.Tables("Tbl_Event")
12.        If .Rows.Count <> 0 Then
13.            Dim eid, Lid, Mid, Rid As String
14.            eid = .Rows(0).Item("ID").ToString
15.            Lid = eid.Substring(0, 4)
16.            Mid = eid.Substring(4, 2)
17.            Rid = eid.Substring(6, 5)
18.            If Lid = yy Then
19.                If Mid = mm Then
20.                    StrIDAcc = Lid & Mid & (CInt(Rid) + 1).ToString("00000")
21.                Else
22.                    StrIDAcc = Lid & mm & "00001"
23.                End If
24.            Else
25.                StrIDAcc = yy & mm & "00001"
26.            End If
27.        Else
28.            StrIDAcc = yy & mm & "00001"
29.        End If
30.    End With
31.End Sub



ขอเพิ่ม PHP ด้วยเลยละกัน ไหน ๆ ก็เกี่ยวกับ AutoID (นอก Forum หน่อยนะครับ หากผิดกฎระเบียบก็ขออภัยด้วยครับ)

Code (PHP)
01.$sql="select * from TblServices where ID like 'SERV"."%' order by ID desc";
02.$re=mssql_query($sql) or die(error());
03.$row=mssql_fetch_array($re);
04.$id=$row["ID"];
05.$date1=date("Y-m-d");
06.$dd=substr($date1,8,2);
07.$mm=substr($date1,5,2);
08.$yy=substr($date1,0,4);
09. if($id==""){
10.         $serv_id="SERV".$yy.$mm."0001";
11. }else{
12.          $chk_id=substr($id,0,10);
13.          $chk_date="SERV".$yy.$mm;
14.          if($chk_id==$chk_date){
15.              $id=substr($id,10,4);
16.              $id=$id+1;
17.              if(strlen($id)==1)$id="000".$id;
18.              if(strlen($id)==2)$id="00".$id;
19.              if(strlen($id)==3)$id="0".$id;
20.             $serv_id="SERV".$yy.$mm.$id;
21.          }else{
22.              $serv_id="SERV".$yy.$mm."0001";
23.          }
24. }




เอาไปประยุกต์ ดัดแปลง ต่อยอดเอานะครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-03-23 15:41:43 By : jornsolo
 

 

No. 16

Guest


No.15 K.jornsolo รบกวนแปลงเป็น c# ให้หน่อยครับ ขอบคุณมากครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-06-27 22:21:10 By : keaw
 

 

No. 17



โพสกระทู้ ( 74,059 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

ตอบความคิดเห็นที่ : 16 เขียนโดย : keaw เมื่อวันที่ 2015-06-27 22:21:10
รายละเอียดของการตอบ ::
01.public void AutoID()
02.{
03.    OpenDB();
04.    gStrSql = "";
05.    //gStrSql = "select max(ID) as AutoID from Tbl_Event"
06.    gStrSql = "select top 1 ID from Tbl_Event order by ID desc";
07.    dynamic daID = new OleDbDataAdapter(gStrSql, Conn);
08.    dynamic dsID = new DataSet();
09.    daID.Fill(dsID, "Tbl_Event");
10.    yy = Convert.ToString(Now.Year + 543);
11.    mm = Now.Month.ToString("00");
12.    var _with1 = dsID.Tables("Tbl_Event");
13.    if (_with1.Rows.Count != 0) {
14.        string eid = null;
15.        string Lid = null;
16.        string Mid = null;
17.        string Rid = null;
18.        eid = _with1.Rows(0).Item("ID").ToString;
19.        Lid = eid.Substring(0, 4);
20.        Mid = eid.Substring(4, 2);
21.        Rid = eid.Substring(6, 5);
22.        if (Lid == yy) {
23.            if (Mid == mm) {
24.                StrIDAcc = Lid + Mid + (Convert.ToInt32(Rid) + 1).ToString("00000");
25.            } else {
26.                StrIDAcc = Lid + mm + "00001";
27.            }
28.        } else {
29.            StrIDAcc = yy + mm + "00001";
30.        }
31.    } else {
32.        StrIDAcc = yy + mm + "00001";
33.    }
34.}


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-06-28 11:20:29 By : mr.win
 

 

No. 18



โพสกระทู้ ( 4,440 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

มาด้วยคนครับ
Code (C#)
001.namespace TORServices
002.
003.public enum EnumConnstring
004.        public enum EnumConnectionType
005.        { ODBC, OLEDB, SqlClient }
006.     public class _DatabaseSetting
007.    {
008.        public string FileDatabase;
009.        public EnumConnectionType enumConnectionType;
010.        public EnumConnstring enumConnstring;
011.        public string PASS = "";
012.    }
013.public static class clsDatabaseServices
014.    {
015.        public static ArrayList DatagridToArray(DataGridView dgv, int column)
016.        {
017.            ArrayList r = new ArrayList();
018.            if (dgv.RowCount - 1 > 0)
019.            {
020.                for (int i = 0; i < dgv.RowCount - 1; i++)
021.                {
022.                    r.Add(dgv[i, column].Value);
023.                }
024.            }
025.            return r;
026.        }
027. 
028.        public static void TextIndexAndValue(TextBox txtIndex, TextBox txtValue, string _SQL, string _ConnectionString)
029.        {
030.            List<TORServices._DabaseSelected> lst = new List<TORServices._DabaseSelected>();
031.            lst = clsDatabaseServices.ReturnListIndex(_SQL, _ConnectionString, TORServices.EnumConnectionType.SqlClient);
032.            if (lst.Count > 0)
033.            {
034.                txtIndex.Text = lst[0]._Key.ToString();
035.                txtValue.Text = lst[0]._Value;
036. 
037.            }
038. 
039.        }
040.        public static System.Windows.Forms.ComboBox DatabaseInCombobox(string _SQL, string strConn, EnumConnectionType ConnectionType)
041.        {
042.            ComboBox cmb = new ComboBox();
043.            cmb.DataSource = GetTableForm(_SQL, strConn, ConnectionType);
044.            return cmb;
045.        }
046.        public static void GetValueBindingSource(BindingSource bs, string column, string index)
047.        {
048. 
049.            if (index.Length > 0)
050.            {
051.                bs.Position = bs.Find(column, index);
052.            }
053.        }
054.        public static string Connstring(string _file,EnumConnstring contype ,string pass = "4410210091")
055.        {
056.            return "Dsn=MS Access Database;dbq=" + _file + ";defaultdir=" + System.IO.Path.GetDirectoryName(_file) + ";driverid=25;fil=MS Access;maxbuffersize=2048;pagetimeout=5;pwd=" + pass + ";uid=admin";
057.             
058.        }
059.        public static System.Data.DataTable GetTableForm(string _SQL, string strConn, EnumConnectionType ConnectionType )
060. 
061.        {
062.             
063.            System.Data.DataSet ds = new System.Data.DataSet();
064.            switch (ConnectionType)
065.            {
066.                case EnumConnectionType.ODBC:
067.                    System.Data.Odbc.OdbcConnection conn1 = new System.Data.Odbc.OdbcConnection(strConn);
068.                    conn1.Open();
069.                    System.Data.Odbc.OdbcDataAdapter adapter1 = new System.Data.Odbc.OdbcDataAdapter(_SQL, conn1);
070.                    adapter1.Fill(ds);
071.                    break;
072.                case EnumConnectionType.OLEDB:
073.                    System.Data.OleDb.OleDbConnection conn2 = new  System.Data.OleDb.OleDbConnection(strConn);
074.                    conn2.Open();
075.                    System.Data.OleDb.OleDbDataAdapter adapter2 = new  System.Data.OleDb.OleDbDataAdapter(_SQL, conn2);
076.                    adapter2.Fill(ds);
077.                    break;
078.                case EnumConnectionType.SqlClient:
079.                    System.Data.SqlClient.SqlConnection conn3 = new  System.Data.SqlClient.SqlConnection(strConn);
080.                    conn3.Open();
081.                    System.Data.SqlClient.SqlDataAdapter adapter3 = new  System.Data.SqlClient.SqlDataAdapter(_SQL, conn3);
082.                    adapter3.Fill(ds);
083. 
084.                    break;
085.            }
086. 
087.            return ds.Tables[0];
088. 
089.        }
090.        public static string[] GetData(string field, string table, string strConn, EnumConnectionType ConnectionType )
091.        {
092.            DataTable dt = GetTableForm("Select " + field + " FROM " + table, strConn, ConnectionType);
093.            string[] str= new string[dt.Rows.Count];
094.            for (int i = 0;i<dt.Rows.Count;i++)
095.            {
096.            str[i] = dt.Rows[i][field].ToString();
097.            }
098.            return str;
099. 
100.        }
101.        public static DataRow GetDataRow(string sql ,string strConn, EnumConnectionType ConnectionType)
102.        {
103.            DataTable dt = GetTableForm(sql, strConn, ConnectionType);
104.             
105.            return dt.Rows[0];
106. 
107.        }
108. 
109.        public static System.Data.DataTable GetTableFormExcel(string _SQL, string FileExcel)
110.        {
111.            string _ConnectionString = @"Data Source=" + FileExcel + "; Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;";
112.            try
113.            {
114.                System.Data.OleDb.OleDbConnection conn = new System.Data.OleDb.OleDbConnection(_ConnectionString);
115.                conn.Open();
116.                string strQuery = _SQL;
117.                System.Data.OleDb.OleDbDataAdapter adapter = new System.Data.OleDb.OleDbDataAdapter(strQuery, conn);
118.                System.Data.DataSet ds = new System.Data.DataSet();
119.                adapter.Fill(ds);
120.                return ds.Tables[0];
121.            }
122.            catch { return null; }
123.             
124.        }
125. 
126.        public static void DataGridViewOpenEditFile(System.Windows.Forms.DataGridView DGV, System.Windows.Forms.DataGridViewCellEventArgs e, int clnOpen, int clnEdit, string PathOpen, bool EditFile = false)
127.        {
128. 
129.             
130.                if (e.ColumnIndex == clnEdit)
131.                {
132.                    string s = TORServices.clsFile_Path.SelectAndSaveFile(PathOpen);
133. 
134.                    if (System.IO.File.Exists(PathOpen + "\\" + s))
135.                    {
136.                        DGV[clnOpen, e.RowIndex].Value = s;
137.                    }
138.                }
139.                else if (e.ColumnIndex == clnOpen)
140.                {
141.                    if (System.IO.File.Exists(PathOpen + "\\" + DGV[clnOpen, e.RowIndex].Value.ToString()))
142.                    {
143.                        TORServices.clsFile_Path.OpenFile(PathOpen + "\\" + DGV[clnOpen, e.RowIndex].Value.ToString(), EditFile);
144.                    }
145.                    else { System.Windows.Forms.MessageBox.Show("เกิดข้อผิดพลาด ไฟล์เสียหาย" + Environment.NewLine + "กรุณาตรวจสอบ"); }
146.                }
147.             
148.             
149.        }
150.    }
151.}


Code (C#)
1.public static string NewCus()
2.       {
3.           string cus = TORServices.clsDatabaseServices.GetDataRow("SELECT MAX(cusID) AS maxcusID FROM tblCustomer", POS_byTOR.Properties.Settings.Default.DATA_POSConnectionString, TORServices.EnumConnectionType.OLEDB)[0].ToString();
4.               cus = (cus.Length == 0)?"CUS00001":string.Format("{0:CUS00000}", int.Parse(cus.Replace("CUS", "")) +1);
5.           return cus;
6.       }

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-06-29 09:19:06 By : lamaka.tor
 

 

No. 19

Guest


ขอบคุณมากครับ สำหรับความรู้ที่มอบให้จากทุกท่านครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-07-02 08:45:02 By : keaw
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : แจกโค้ดทำ AutoNumber ทำเลขที่เอกสาร VB.NET/VB2008 กับ Access2007
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)





ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2025 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่