Vb.net 我是VB（VisualStudio）新手，我正在尝试从数据表“ClientInfo”中按升序获取列（2）“LastName”

下面是我所写的，我很难弄清楚如何以升序将它发送到Access中的数据库，以及如何以升序检索它。 我将尝试向您展示我的代码，以便更容易帮助我。 有人能帮我吗

Public Class Form1

    Dim inc As Integer
    Dim MaxRows As Integer
    Dim IdNum As Integer
    Dim con As New OleDb.OleDbConnection            'THE CONNECTION OBJECT

    Dim dbProvider As String                        'HOLDS THE PROVIDER
    Dim dbSource As String                          'HOLDS THE DATA SOURCE
    Dim MyDocumentsFolder As String                 'HOLDS THE DOCUMENTS FOLDER
    Dim TheDatabase As String                       'HOLDS THE DATABASE NAME
    Dim FullDatabasePath As String                  'HOLDS THE DATABASE PATH

    Dim ds As New DataSet                           'HOLDS A DATASET OBJECT
    Dim da As OleDb.OleDbDataAdapter                'HOLDS A DATA_ADAPTER OBJECT
    Dim sql As String                               'HOLDS AN SQL STRING

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        'SET UP THE PROVIDER
        dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"

        'SET THE DATABASE AND WHERE THE DATABASE IS
        TheDatabase = "/ClientInfo.mdb"
        MyDocumentsFolder = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        FullDatabasePath = MyDocumentsFolder & TheDatabase

        'SET THE DATA SOURCE
        dbSource = "Data Source = " & FullDatabasePath

        'SET THE CONNECTION STRING
        con.ConnectionString = dbProvider & dbSource

        'OPEN THE DATABASE
        con.Open()

        'STORE THE SQL STRING
        sql = "SELECT * FROM tblContacts"

        'PASS THE SQL STRING AND CONNECTION OBJECT TO THE DATA_ADAPTER
        da = New OleDb.OleDbDataAdapter(sql, con)

        'FILL THE DATASET WITH RECORDS FROM THE DATABASE TABLE
        da.Fill(ds, "ClientInfo")

        'CLOSE THE DATABASE
        con.Close()

        'GET HOW MANY ROWS ARE IN THE DATABASE TABLE
        MaxRows = ds.Tables("ClientInfo").Rows.Count

        'SET A VALUE FOR THE INC VARIABLE
        inc = -1

        'SET A VALUE FOR THE ID NUM VARIABLE
        IdNum = inc + 1001

    End Sub

    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click

       Dim cb As New OleDb.OleDbCommandBuilder(da)
       Dim dsNewRow As DataRow

        dsNewRow = ds.Tables("ClientInfo").NewRow()

        dsNewRow.Item("FirstName") = txtFirstName.Text
        dsNewRow.Item("LastName") = txtLastName.Text
        dsNewRow.Item("CompanyName") = txtBusName.Text
        dsNewRow.Item("Address") = txtAddress.Text
        dsNewRow.Item("City") = txtCity.Text
        dsNewRow.Item("State") = txtState.Text
        dsNewRow.Item("Zip") = txtZip.Text
        dsNewRow.Item("HomePh") = txtHomePh.Text
        dsNewRow.Item("Mobile") = txtMobile.Text
        dsNewRow.Item("BusinessPh") = txtBusPh.Text
        dsNewRow.Item("Ext") = txtExt.Text
        dsNewRow.Item("Email") = txtEmail.Text

        ds.Tables("ClientInfo").Rows.Add(dsNewRow)

        da.Update(ds, "ClientInfo")

        MessageBox.Show("New Record added to the Database")

        Clear()

    End Sub

End Class

---

ORDERBY子句将对所示列返回的记录进行排序。默认值为升序，但如果希望颠倒顺序，则可以根据数据库添加DESC或Descending

sql = "SELECT * FROM tblContacts Order By LastName;"

---

我不确定您的问题是否与查询有关，或者我不明白您的意思，但是如果您想用LastName列填充数据适配器，请将其用作sql查询：

SELECT LastName FROM tblContacts ORDER BY LastName ASC

---

@拉姆加迪亚拉姆完成了。