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 SQLで取得できる特殊レジスター

備忘録です。 CURRENT_DATAとかそういうやつ。SQLで取得できたら便利なので調べてみる。   IBMのサイトを見ればこういうのを、特殊レジスターと言うみたい。 データベースマネージ …

AS400/IBMi RDi 入力や削除ができないおかしい

LPEXエディタを使っていてRPGIVやフリーフォームを使っている中で、いつからか入力がおかしくなったことについて直し方。   その症状は入力ができなかったり削除ができなかったり。 しかも1 …

AS400/IBMi 作ったトリガーの一覧を取得する

トリガーを作ったのはいいけど、どんなトリガーを作ったのか解らなくなり管理できなくなっては困るので、その見方。 ちなみに、作ったトリガーはファイルを消す(DROP)すると消えます。実際に消えました。 & …

AS400/IBMi 無料で Web化 GUI化 オープン化 PHP/Laravel設定編 1/2

注意 これは私の環境下における私の備忘録です。お使いの環境によっては内容が異なる場合があります。私は何も責任を負いませんのでご了承のうえご覧ください。   内容 Laravel設定編1/2と …

Docuworks7でドキュワークスビューワーが開かない

ドキュワークス7で急になのか何なのか忘れたけど開けなくなったというお話し。 いちおう直ったので備忘録です。   ①下記サイトにアクセスする https://www.fujixerox.co. …

Adsense広告




文字で検索

人気記事

なぜだか人気記事

読んでほしい順に