PRB: 列排序按字母顺序使用 ADOX 检索访问表格的列时

文章翻译 文章翻译
文章编号: 299484 - 查看本文应用于的产品
本文已归档。它按“原样”提供,并且不再更新。
展开全部 | 关闭全部

本文内容

症状

如果您使用 ADOX 目录 集合和在 Microsoft OLE DB 提供程序为 Jet 检索 Microsoft Access 表的列,列的字母顺序排序。

原因

OLE DB 提供程序 4.0 为 Jet 检索的列按字母顺序排列,而不是列的序号位置顺序。

解决方案

要变通解决此问题,ODBC 驱动程序的 Microsoft Access 结合使用 OLE DB 提供程序的 ODBC。其他 OLE DB 提供程序,如为 SQL Server,OLE DB 提供程序不会造成此问题。

如果必须使用 jet 的 OLE DB 提供程序,使用 OpenSchema ADODB 连接 对象的方法和结果的记录集上 ORDINAL_POSITION 字段排序。

更多信息

重现行为的步骤

  1. 在 Visual Basic 中创建一个新的标准 EXE 项目。默认情况下创建 Form1。
  2. 项目 菜单中单击 引用,然后单击 Microsoft ActiveX 数据对象 2.1Microsoft ADO 分机 2.1 DDL 和安全
  3. 向 Form1 中添加三个 命令按钮 控件。
  4. 将以下代码粘贴到 Form1 的声明部分:
    Option Explicit
    
    Dim cnn As ADODB.Connection
    Dim cat As ADOX.Catalog
    Dim tbl As ADOX.Table
    Dim col As ADOX.Column
    
    
    Private Sub Command1_Click()
       Set cnn = New ADODB.Connection
       With cnn
          .Provider = "Microsoft.Jet.OLEDB.4.0;"
          .Open "Data Source=D:\Nwind.mdb;"
       End With
       Set cat = New ADOX.Catalog
       cat.ActiveConnection = cnn
       Set tbl = cat.Tables("Products")
       Debug.Print "Results using the OLEDB Provider and ADOX"
       For Each col In tbl.Columns
          Debug.Print col.Name
       Next
    End Sub
    
    Private Sub Command2_Click()
       Set cnn = New ADODB.Connection
       With cnn
          .Provider = "MSDASQL.1;"
          .Open "Driver={Microsoft Access Driver (*.mdb)};" & _
           "DBQ=D:\Nwind.mdb;"
       End With
       Set cat = New ADOX.Catalog
       cat.ActiveConnection = cnn
       Set tbl = cat.Tables("Products")
       Debug.Print "Results using the ODBC Driver and ADOX"
       For Each col In tbl.Columns
          Debug.Print col.Name
       Next
    End Sub
    
    
    Private Sub Command3_Click()
       Dim rsSchema As ADODB.Recordset
       Dim fld As ADODB.Field
       Dim rCriteria As Variant
    
       Set cnn = New ADODB.Connection
       With cnn
          .CursorLocation = adUseClient
          .Provider = "Microsoft.Jet.OLEDB.4.0;"
          .Open "Data Source=D:\Nwind.mdb;"
       
       End With
    
       Set rsSchema = cnn.OpenSchema(adSchemaColumns, _
            Array(Empty, Empty, "Products"))
       rsSchema.Sort = "ORDINAL_POSITION"
       Debug.Print "Results using the OpenSchema method"
       While Not rsSchema.EOF
          Debug.Print rsSchema!COLUMN_NAME
          rsSchema.MoveNext
       Wend
    End Sub
    					
  5. 修改 cnn.Open 语句,以指向有效的 Microsoft Access 数据库文件。
  6. 运行在的项目,然后单击 Command1。注意当您使用 OLE DB 提供程序按字母顺序排序的字段名。
  7. 单击 Command2。请注意使用 ODBC 驱动程序时,将字段名称显示在他们的序号位置。
  8. 单击 Command3。请注意 OpenSchema 方法使用 OLE DB 提供程序时,将字段名称显示在他们的序号位置。

参考

有关详细的信息,请参阅下面的 MSDN 文章:
OpenSchema 方法
http://msdn.microsoft.com/en-us/library/ms676705.aspx

ADOX Table 对象
http://msdn.microsoft.com/en-us/library/ms677529.aspx

属性

文章编号: 299484 - 最后修改: 2014年2月24日 - 修订: 3.2
这篇文章中的信息适用于:
  • Microsoft Data Access Components 2.0
  • Microsoft Data Access Components 2.1
  • Microsoft Data Access Components 2.1 Service Pack 2
  • Microsoft Data Access Components 2.1 Service Pack 1
  • Microsoft Data Access Components 2.1 Service Pack 2
  • Microsoft Data Access Components 2.5
  • Microsoft Data Access Components 2.5 Service Pack 1
  • Microsoft Data Access Components 2.6
关键字:?
kbnosurvey kbarchive kbmt kbjet kbprb KB299484 KbMtzh
机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 299484
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com