プログラミングの部屋  ▲前 へ ▼次 へ 一覧へ戻る  プログラミングの部屋 メニューへ  WebBoard総合メニューへ
この投稿に対し、フォローを投稿する
日 時'98年 5月25日 22:39:26
タイトルRe(3):ACCESS95のテーブル変換の件 (閲覧回数:918回)
投稿者@よしのさん yosino@be.mbn.or.jp

>[5月25日 16:19 anzaiさんの投稿]
>>[5月24日 16:01 @よしのさんの投稿]
>>>[5月22日 15:49 anzaiさんの投稿]
>>
こんにちは、@よしのです。
>>
>>>たびたび質問して申し訳ございません。
>>>下記の様にテーブルを変換させるプログラムを教えて下さい。
>>>moto_tbl...元のテーブル
>>>jno name 95s 95f 96s 96f 97s 97f
>>>111 安西  0500 100 0530 30 0520 100
>>>111 安西   0510 70
>>>222 石橋  0503 70 0530 50 0530 50
>>>222  石橋 0520 30 0500 50 0500 50
>>>333 北古賀 0500 100 0500 100 0500 100
>>>
>>>saki_tbl...先のテーブル
>>>jno name 職種 95 95-96 96 96-97 97
>>>111 安西 0500 100 100
>>>111 安西  0530 -30 30
>>>111 安西 0520 -100 100
>>>111 安西 0510 -70 70
>>>222 石橋 0503 70 70
>>>222 石橋 0530 -50 50 -50 50
>>>222 石橋 0520 30 30
>>>222 石橋 0500 -50 50 -50 50
>>>333 北古賀 0500 100 0 100 0 100
>>>
>>>上記のようにテーブルを変換させるプログラムを下記に記載しましたが
>>>空白も書き込まれます。
>>>どのようにすれば良いか教えて下さい。
>>
>>長いので後略させて頂きましたm(u_u)m (By@よしの)
>>後、上記のデータ例ですが、表示レイアウトが崩れていてソースを見ないと
>>不明でした。半角スペースのご利用にはご注意下さい。
>>(悪いですけど、面倒だったので直してません)
>>
(中略)
>>
>>if IsEmpty(moto_tbl![95s]) then  'moto_tbl![95s]がEmptyの場合
>>  :
>>else                 'moto_tbl![95s]がEmptyじゃない場合
>>  :
>>end if
>>
>>や
>>
>>if IsEmpty(moto_tbl![95s]) = False then 'moto_tbl![95s]がEmptyじゃない場合
>>  :
>>else                     'moto_tbl![95s]がEmptyの場合
>>  :
>>end if
>>
(中略)
>>
>とりあえず一行一行if IsNull...を付けてどうにかしていますが、すっきりした文に
>する方法のアドバイス(ヒント)を下さい。

一行一行の意味がよく解らないんですけど、要するにsaki_tblで「職種」
がNullやEmptyじゃないレコードだけ書ければ良いんでしょうか?
そうしたら各年度の処理をまとめて上記の「:」に入れてしまえばそれで
済むと思うのですが。([95s]は適宜[96s]、[97s]にします)
複数行に渡る処理も、If分のネスト(If分の中にIf分を書くこと)も可能
です。文が長くなりますが、If条件をAndやorで複数指定する事も出来ます。
.....私、何かカンチガイしてますか?

>又変換後のテーブル(saki_tbl)をjnoで昇順にソートしたいので
>下記の文を追加しましたがうまく行かなくて困っています。
>どなたかご教授下さい。宜しくお願いします。
><追加の文>
>Dim strselect As String
>strselect ="SELECT * FROM saki ORDER BY jno;"
>Set saki_tbl=db_name.OpenRecordset("saki",dbOpenDynaset,strselect)

簡単なのは、sakiテーブルと同じレイアウトのテーブルを用意しておいて、
それをsaki_tblにセットして一連の処理をさせたあと、ソートしている追加
クエリーでsakiテーブルに流し込んじゃうやり方でしょう。
上記の処理だと、データが保存されてません。一時レコードセット作ってる
イメージ....かな?

ではでは。
勘違い・間違い等ありましたらご指摘ください。


フォロー元の投稿
 ◆[ 5/22 15:49] ACCESS95のテーブル変換の件 // anzaiさん
  >[ 5/24 16:01] Re(1):ACCESS95のテーブル変換の件 // @よしのさん
  >>[ 5/25 16:19] Re(2):ACCESS95のテーブル変換の件 // anzaiさん
<この投稿に対するフォローはありません>