อยากทราบโค้ดการรันตัวเลขอัตโนมัติ อยากทราบโค้ดการรันตัวเลขอัติโนมัติ คือว่าเมื่อเรากดที่ปุ่มเพิ่มข้

protected function _runnumber($sql1){
	$sql=mysql_query($sql1);   
	$num=mysql_fetch_array($sql);
	if($num==null){
	return 0;
	}// return 0 กรณี ที่ไม่มีข้อมูลในฐานข้อมูลจะสร้างออกมาเป็นรหัส QC09VK0001
	else{
	return $num[0];
	}
}// end Function runnumber

public function runnumberMaster(){        
	return $this->_runnumber("SELECT max(substr(qc_id,7)) FROM master");    
}

public function getQcid(){
$Tb = new DbTable($db_conn);
	$num = ($Tb->runnumberMaster()+1);
	if(($num / 10)<1){
	$num="000".$num;
	}
	elseif(($num / 10)<10){
	$num="00".$num;
	}
	elseif(($num / 10)<100){
	$num="0".$num;
	}
	$qcid_1="QC".date("y").Master::getCs().$num;
	 $this->qcid=$qcid_1;
	return $this->qcid;
}// ใช้สร้างรหัส

'ซับรูทีน AutoGenerateMember_id() ทำหน้าที่สร้างรหัสสมาชิกโดยอัตโนมัติ
    Sub AutoGenearteMember_id()
        Dim sqlTmp As String = ""                     'ตัวแปรเก็บชุดคำสั่ง sql
        Dim comTmp As OleDbCommand = New OleDbCommand 'ตัวแปรออบเจ็กต์ OleDbCommmand ที่ชื่อว่า comTmp
        Dim drTmp As OleDbDataReader                  'ตัวแปรออบเจ็กต์ OleDbDataReader ที่ชื่อว่า drTmp
        Dim tmpMember_id As Integer = 0               'ตัวแปรเก็บรหัสสมาชิกที่ได้

        'สร้างชุดคำสั่ง SQl เพื่อเลือกข้อมูล 1 เร็คคอร์ดล่าสุด จากตาราง Member
        sqlTmp = "SELECT TOP 1 Member_id FROM Member ORDER BY Member_id DESC"

        Try                                                'ให้ทำ
            With comTmp
                .CommandType = CommandType.Text
                .CommandText = sqlTmp                      'ใช้ชุดคำสั่ง sql ที่เก็บอยู่ในตัวแปร sqlTmp
                .Connection = Connection                   'ใช้การเชื่อมต่อของออบเจ็กต์ Connection

                drTmp = .ExecuteReader                     'รันชุดคำสั่ง SQl เก็บผลการทำงานไว้ที่ drTmp

                drTmp.Read()                               'อ่านข้อมูลในออบเจ็กต์ drTmp

                'อ่านข้อมูลจากฟิลต์ Member_id เก็บไว้ในตัวแปร tmpMember_id 
                tmpMember_id = CInt(drTmp.Item("Member_id"))
                drTmp.Close()                              'ปิดออบเจ็กต์ drTmp
                tmpMember_id = tmpMember_id + 1            'เพิ่มค่าอีก 1

                'แสดงรหัสสมาชิกการที่สร้างได้
                txtmember_id.Text = tmpMember_id.ToString("0000")
            End With

        Catch ex As Exception                              'ในกรณีที่ไม่มีจำนวนเร็คคอร์ดอยู่เลย
            txtmember_id.Text = "0001"                     'กำหนดรหัสสมาชิกเท่ากับ 0001

        End Try


    End Sub

Imports System.Data.SqlClient
Imports System.Data
Partial Class Admin_frmAddCustomerCM
    Inherits System.Web.UI.Page
    Dim connectdb As New ConnectDB
    Dim objConn As New SqlConnection
    Dim dtReader As SqlDataReader

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack() Then
            Call AutoCM_id()
        End If
    End Sub

    Sub AutoCM_id()
        Dim strsql As String = ""
        Dim cmd As SqlCommand = connectdb.CreateCommand(strsql)
        Dim CumID As Integer = 0
        strsql = "SELECT TOP 1 CumCM_id FROM CustomerCM ORDER BY Member_id DESC"
        Try
            With cmd
                .CommandType = CommandType.Text
                .CommandText = strsql
                .Connection = objConn
                dtReader = .ExecuteReader
                dtReader.Read()
                CumID = CInt(dtReader.Item("CumCM_id"))
                dtReader.Close()

                CumID = CumID + 1
                txtCusID.Text = CumID.ToString("0000")
            End With
        Catch ex As Exception
            txtCusID.Text = "0001"
        End Try
    End Sub

For i As Integer = 1 To 100
    Code As String = String.Format("C{0}", i.ToString("0000"))
Next

insert into test
SELECT top 1
	CONCAT( SUBSTRING('ABCDEFGHIJKLMNOPQRSTUVWXYZ', c + (idx=9999) - 64,1), SUBSTRING(idx + 10001,2) ),
	'valuefield1', 'valuefield2','......'
FROM (
	select ASCII('A') as c, 0 as idx union all
	select ASCII(LEFT(max(id),1)), RIGHT(max(id),4)*1 FROM test
) as tmp 
order by tmp.c desc, tmp.idx desc