จะทำปุ่ม Auto ให้เอาเลขถัดไปจาก SQL มาโชว์ไว้ใน TextBox ผู้รู้ช่วยทีคับ

SELECT MAX( id ) as max_id FROM table_name

Private Sub Runnumber()

        Dim MaxID As Double
        Dim Num1 As String

        conn.Open()
        cm = New SqlCommand()
        With cm
            .Connection = conn
            .CommandText = "SELECT MAX (Right(goodsID,3)) FROM GoodsReceive"
            If IsDBNull(.ExecuteScalar()) = True Then
                MaxID = 1
            Else
                MaxID = .ExecuteScalar() + 1
            End If

            Num1 = MaxID.ToString("000")

        End With
        conn.Close()


    End Sub 

SELECT auto_increment FROM INFORMATION_SCHEMA.TABLES
WHERE TABLE_NAME = 'tbllog' and TABLE_SCHEMA='tmncustomer'

    Function NextNumber()
        Dim da As New MySqlDataAdapter
        Dim ds As New DataSet
        Dim bs As New BindingSource
        da.SelectCommand = New MySqlCommand("SELECT auto_increment FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = 'tbllog' and TABLE_SCHEMA='tmncustomer'", MyCon)
        da.Fill(ds, "tbllog")
        bs.DataSource = ds.Tables("tbllog")
        NextNumber = bs(0)("auto_increment")
        Return NextNumber
    End Function

Textbox1.Text = NextNumber()

Function autoID()
        Dim ds As New DataSet
        Dim da As New MySqlDataAdapter
        Dim bs As New BindingSource
        Dim sql As String

        sql = "select MAX(MemberID) as MemberID from tbllog"
        da.SelectCommand = New MySqlCommand(sql, MyCon)
        da.Fill(ds, "tbllog")
        bs.DataSource = ds.Tables("Bill")
        If Val(bs(bs.Position)("BillNumber").ToString) + 1 < 10 Then
            autoID = "0000" & Val(bs(bs.Position)("MemberID").ToString) + 1
        ElseIf Val(bs(bs.Position)("BillNumber").ToString) + 1 < 100 Then
            autoID = "000" & Val(bs(bs.Position)("MemberID").ToString) + 1
        ElseIf Val(bs(bs.Position)("BillNumber").ToString) + 1 < 1000 Then
            autoID = "00" & Val(bs(bs.Position)("MemberID").ToString) + 1
        ElseIf Val(bs(bs.Position)("BillNumber").ToString) + 1 < 10000 Then
            autoID = "0" & Val(bs(bs.Position)("MemberID").ToString) + 1
        Else
            autoID = "" & Val(bs(bs.Position)("MemberID").ToString) + 1
        End If
        Return autoID
    End Function

public static System.Data.DataTable GetTableForm(string _SQL, string strConn, EnumConnectionType ConnectionType )

        {
            
            System.Data.DataSet ds = new System.Data.DataSet();
            switch (ConnectionType)
            {
                case EnumConnectionType.ODBC:
                    System.Data.Odbc.OdbcConnection conn1 = new System.Data.Odbc.OdbcConnection(strConn);
                    conn1.Open();
                    System.Data.Odbc.OdbcDataAdapter adapter1 = new System.Data.Odbc.OdbcDataAdapter(_SQL, conn1);
                    adapter1.Fill(ds);
                    break;
                case EnumConnectionType.OLEDB:
                    System.Data.OleDb.OleDbConnection conn2 = new  System.Data.OleDb.OleDbConnection(strConn);
                    conn2.Open();
                    System.Data.OleDb.OleDbDataAdapter adapter2 = new  System.Data.OleDb.OleDbDataAdapter(_SQL, conn2);
                    adapter2.Fill(ds);
                    break;
                case EnumConnectionType.SqlClient:
                    System.Data.SqlClient.SqlConnection conn3 = new  System.Data.SqlClient.SqlConnection(strConn);
                    conn3.Open();
                    System.Data.SqlClient.SqlDataAdapter adapter3 = new  System.Data.SqlClient.SqlDataAdapter(_SQL, conn3);
                    adapter3.Fill(ds);

                    break;
            }

            return ds.Tables[0];

        }