چگونه میتوان رکورد های یک بانک اطلاعاتی را بر اساس فیلدی مرتب کرد ( معلومه که آشخورم )

چگونه میتوان رکورد های یک بانک اطلاعاتی را بر اساس فیلدی مرتب کرد ( معلومه که آشخورم ) :laugh:santa: ing:

کد:

---

DAO
Sub DAOSortRecordset()

  Dim db As DAO.Database
  Dim rst As DAO.Recordset
  Dim rstSort As DAO.Recordset

  ' Open the database
  Set db = DBEngine.OpenDatabase(".\NorthWind.mdb")

  ' Open the Recordset
  Set rst = db.OpenRecordset("Customers", dbOpenDynaset)

  ' Sort the recordset based on Country and Region both in
  ' ascending order
  rst.Sort = "Country, Region"

  ' Open the sorted recordset
  Set rstSort = rst.OpenRecordset()
  Debug.Print rstSort.Fields("CustomerId").Value

  ' Close the recordsets
  rst.Close
  rstSort.Close

End Sub

ADO
Sub ADOSortRecordset()

  Dim cnn As New ADODB.Connection
  Dim rst As New ADODB.Recordset

  ' Open the connection
  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=.\NorthWind.mdb;"

  ' Open the recordset
  rst.CursorLocation = adUseClient
  rst.Open "Customers", cnn, adOpenKeyset, adLockOptimistic

  ' Sort the recordset based on Country and Region both in
  ' ascending order
  rst.Sort = "Country, Region"
  Debug.Print rst.Fields("CustomerId").Value

  ' Close the recordset
  rst.Close

End Sub

---

با سلام
با دستور زير هم ميشه مرتب كرد
form1.Adodc1.Recordset.sort="?"
به جاي علامت سوال نا م فيلدي كه ميخواي بر اساس اون مرتب بشه مينويسي

با data هیچی سراغ ندارید
اقلاّ adodc چطور با بانک اکسس مچ میشه منون
:blush: :blush: :blush: :blush: :blush: :blush: :blush: :blush: :blush: :blush: :blush: :blush: :blush: :blush:

به اين آدرس مراجعه كن توش بحث Adodc هست با يك نمونه

an = App.Path & "\anbar_db.mdb"
form1.Data1.DatabaseName = an
form1.Data1.RecordSource = "Select * from Table name"
اينم يه مثال از Data

شما موقعیکه داری بانک رو با اسکوئل تعریف می کنی از order by استفاده کن
مثل
strDBName = "fileshoma.mdb"
Set dbf = DBEngine.OpenDatabase(strDBName, False, False)
Set tbl= dbs.OpenRecordset("SELECT * FROM tabelshoma order by esme_fieldi_ke_mikhahid_morattab_konid")

مثل
strDBName = "fileshoma.mdb"
Set dbf = DBEngine.OpenDatabase(strDBName, False, False)
Set tbl= dbs.OpenRecordset("SELECT * FROM tabelshoma order by esme_fieldi_ke_mikhahid_morattab_konid")