Ｐａｇｅ 18 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼初めての投稿ですが。。 よ-たん 02/9/8(日) 15:36 ┗Re:初めての投稿ですが。。 こうちゃん 02/9/8(日) 16:44 ─────────────────────────────────────── ■題名 ： 初めての投稿ですが。。 ■名前 ： よ-たん <ks_yokana@ybb.ne.jp> ■日付 ： 02/9/8(日) 15:36 -------------------------------------------------------------------------
| みなさん、こんにちは。 Access XP（2002）なんですが。 ADOXでフィ−ルドの一覧（columnのname）を取得し、配列にして。 レコ−ドを読みたいのですが？ そういうことはできるのでしょうか？ recordset！配列 見たいな感じで。。使用したいのですが できるのならばその方法を教えて頂けないでしょうか？ PS または、テ−ブル作成時に、フィ−ルドを配列にするとかでもいいんで？ |
| よ-たん さん、こんにちは >みなさん、こんにちは。 >Access XP（2002）なんですが。 >ADOXでフィ−ルドの一覧（columnのname）を取得し、配列にして。 >レコ−ドを読みたいのですが？ > >そういうことはできるのでしょうか？ > > recordset！配列 > >見たいな感じで。。使用したいのですが > >できるのならばその方法を教えて頂けないでしょうか？ > >PS または、テ−ブル作成時に、フィ−ルドを配列にするとかでもいいんで？ わざわざsystable見に行かなくともFieldsコレクションで配列でデータ取得できると思いますが・・ こんな感じです・・ ＃ADOでレコードセットを開いて、インデックスを使ってデータを表示します。 Sub test() Dim dataconn As ADODB.Connection Dim rs As ADODB.Recordset Dim strSql As String Set dataconn = CurrentProject.Connection Set rs = New ADODB.Recordset strSql = "SELECT * FROM T1" rs.Open strSql, dataconn, adOpenStatic Do Until rs.EOF MsgBox rs.Fields(1) & ":" & rs.Fields(2) & ":" & rs.Fields(3) rs.MoveNext Loop rs.Close Set rs = Nothing Set dataconn = Nothing End Sub なお、フィード名が必要なら rs.Fields(1).Name で取得できますね。 その他詳細はHELP見てみてくださいね。 |