MDBのフィールド名を順番どおりに取得するには？ (ID:81386)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > NOT NULLが取れないのでADOXと繋げる作業が必要そうですが・・・ あれ? こちらで試した限りでは、NOT NULLも取得出来ましたが…。 バージョンの違いでしょうかね。 Private Sub Form_Load() Dim Cn As ADODB.Connection Dim Fld As ADODB.Field Dim RS As ADODB.Recordset Dim TableName As String TableName = "Customers" Set Cn = New ADODB.Connection Cn.Provider = "Microsoft.Jet.OLEDB.4.0" Cn.Open "C:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB" Cn.CursorLocation = adUseClient Set RS = Cn.OpenSchema(adSchemaColumns, Array(Empty, Empty, TableName)) RS.Sort = "ORDINAL_POSITION" Debug.Print "列名"; Tab(20); "NULL許可"; Tab(30); "説明" Do Until RS.EOF Debug.Print RS.Fields("COLUMN_NAME").Value; Tab(20); Debug.Print RS.Fields("IS_NULLABLE").Value; Tab(30); Debug.Print RS.Fields("DESCRIPTION").Value & "" RS.MoveNext Loop RS.Close Set RS = Nothing Cn.Close Set Cn = Nothing End Sub