IT関連

AS400/IBMi からデータを取得 ExcelVBA カラム名COLHDG取得編

投稿日:2018年9月10日 更新日:

注意

これは私の環境下における私の備忘録です。お使いの環境によっては内容が異なる場合があります。システム管理者でない方は絶対にやらないでください。システムにはログが残るものなので、万が一があればクビになるかもしれません。私は何も責任を負いませんのでご了承のうえご覧ください。

 

内容

前回の記事で載せた続きです。テーブルの内容を全件引っ張るだけではつまらないので、カラム名やCOLHDG(注記)も引っ張る方法を載せます。

 

下記が前回のコードです。

 

CopyFromRecordsetという命令でテーブルのレコードを全件バチコーンと張り付けましたが、今回もそれを使います。

1行目にカラム名、2行目にCOLHDGを挿入しようと思いますので、CopyFromRecordsetは3行目を指定して、3行目にレコードを張り付けるようにします。

 

name age birth
名前 年齢 生年月日
田中 29 2018/09/10
渡辺 44 1956/09/10

こんな感じですね。1行目にカラム名、2行目にCOLHDG、3行目以降にレコードです。

 

サンプルコードは、

 

概要は、まずCopyFromRecordsetで3行目の1列目に全レコードの値を張り付けた後に、各カラムの情報を1つ1つ取得して、1行目と2行目に代入していきます。

ただそれだけです。

 

 

変数のネーミングセンスとか気にしないでください。私もネットで得た知識の備忘録なので。

大事なことは

  1. oRstがテーブルのオブジェクト。
  2. oRst.Fields(カラム名もしくは列番号)で、カラムのデータにアクセスできる。
  3. Properties(7)でカラム名、Properties(3)でCOLHDGの値を取得できる

です。Fieldsとか略せるみたいですが、一応正式に書いておきます。

 

oRstがテーブルのデータですが、1行1行取り出す場合は、こんな感じです。

 

Do~Loopをぐるぐる回る間にテーブルのレコードを読んでいくわけですが、MoveNextが行送りの命令です。これを忘れると無限ループしますのでご注意を。

スポンサーリンク




スポンサーリンク




-IT関連
-, , ,

執筆者:


comment

Your email address will not be published. Required fields are marked *

関連記事

AS400/IBMi ファイルの簡単編集 UPDDTA

STRDFUなど使って事細かく設定DFUファイルを作らなくても、深く考えずに編集するだけなら UPDDTA ライブラリ名/ファイル名 を使えば、すぐ編集画面に飛ぶ。編集方法はDFUと同じ。

Windows10 複合機からのスキャンができない

スキャンとは、複合機のガラス面に紙を載せるか、シュイーンと紙を吸い込ませると、紙のデータをPCに取り込める機能のこと。   最近Windows10の関係でその複合機のスキャンがうまくいかない …

さくらVPS kusanagiでLet’s Encrypt手動更新ができなくて焦った

今日は土曜日だったが、いつものように朝起きて、iPhoneを開きツイッターや株価やダウ平均のチェックをする。   そしてGoogleAnalyticsを開き、私の拙いブログへ訪問してくださる …

Laravel DBクラスのSQLで1件だけ取り出したい場合

Laravelを使いだして、はや数ヶ月たらず。   青本を勉強して、MVCモデルにのっとり、モデルでテーブルを定義して、コントローラーでモデルを呼び出し、そのテーブル情報をビューに受け渡しつ …

Windows NASの接続を解除したいときやってみること

NAS(ネットワークアタッチドストレージ)の、とあるフォルダに、とあるIDで一旦アクセスすると、別の権限が必要なフォルダにアクセスしなおそうとしたときに、アクセスできません!と怒られる。   …

Adsense広告




文字で検索

人気記事

なぜだか人気記事

読んでほしい順に