PRB: 列の並べ替えをアルファベット順に ADOX を使用して Access のテーブルの列を取得するには

文書翻訳 文書翻訳
文書番号: 299484 - 対象製品
この資料は、アーカイブされました。これは "現状のまま" で提供され、更新されることはありません。
すべて展開する | すべて折りたたむ

目次

現象

ADOX カタログ コレクションと、Microsoft OLE DB プロバイダーの Jet を使用して、Microsoft Access テーブルの列を取得すると場合、は、列はアルファベット順に並べ替えられます。

原因

4. OLE DB プロバイダー 0 Jet の列列序数の順序ではなくアルファベット順で取得します。

解決方法

この問題を回避するするには、ODBC ドライバー Microsoft Access のと共に使用して OLE DB プロバイダー ODBC 用。 他 OLE DB プロバイダー、OLE DB プロバイダー、SQL Server 用などにはこの問題となるされません。

Jet の OLE DB プロバイダーを使用する必要があります、ADODB 接続 オブジェクトの OpenSchema メソッドを使用し、ORDINAL_POSITION フィールドに、結果のレコードセットを並べ替えます。

詳細

問題の再現手順

  1. Visual Basic での新しい標準 EXE プロジェクトを作成します。 デフォルトで Form1 が作成されます。
  2. [ プロジェクト ] メニューの [ 参照設定 ] をクリックし、 Microsoft ActiveX データ オブジェクトの 2. 1 および Microsoft ADO 外部 2. 1
  3. Form1 に 3 つの コマンド ボタン (CommandButton) コントロールを追加します。
  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. 有効な Microsoft Access データベース ファイルを指す cnn.Open ステートメントを変更します。
  6. プロジェクトを実行し、[ Command1 ] をクリックします。 フィールド名がソートされるアルファベット順に OLE DB プロバイダーを使用すると確認します。
  7. [ Command2 を] をクリックします。 ODBC ドライバーを使用するときに、フィールド名キー表示、序数の位置でことを確認します。
  8. [ Command3 を] をクリックします。 OpenSchema メソッドで OLE DB プロバイダーを使用するときに、フィールド名キー表示、序数の位置でことを確認します。

関連情報

詳細については、次の MSDN 記事を参照してください。
OpenSchema メソッド
http://msdn.microsoft.com/en-us/library/ms676705.aspx

ADOX オブジェクト
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 kbjet kbprb kbmt KB299484 KbMtja
機械翻訳の免責
重要: このサポート技術情報 (以下「KB」) は、翻訳者による翻訳の代わりに、マイクロソフト機械翻訳システムによって翻訳されたものです。マイクロソフトは、お客様に、マイクロソフトが提供している全ての KB を日本語でご利用いただけるように、翻訳者による翻訳 KB に加え機械翻訳 KB も提供しています。しかしながら、機械翻訳の品質は翻訳者による翻訳ほど十分ではありません。誤訳や、文法、言葉使い、その他、たとえば日本語を母国語としない方が日本語を話すときに間違えるようなミスを含んでいる可能性があります。マイクロソフトは、機械翻訳の品質、及び KB の内容の誤訳やお客様が KB を利用されたことによって生じた直接または間接的な問題や損害については、いかなる責任も負わないものとします。マイクロソフトは、機械翻訳システムの改善を継続的に行っています。
英語版 KB:299484
Microsoft Knowledge Base の免責: Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社 及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。(Microsoft Corporation、その関連会社 またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。

フィードバック

 

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