| 投稿日 | ： 2004/03/21(Sun) 15:36 |
| 投稿者 | ： ゆづき |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： コンボボックスを使用したデータ表示及び選択後のDB・UPdate |
投稿2回目となります。VBを初めて2週間ですが、よろしく御願いいたします。
下記環境にて実行しております。
VB5.0
0040にてOracleよりDBを検索・更新
CSComboBoxを使用。
コンボボックスでの選択値を下記に定義しております。
With kigou
.AddItem "N"
.AddItem "G"
End With
①DBで対象表よりSelectした結果をコンボボックスに表示させたいのですが、
DB検索後に画面へのデータ項目の移送させるべく、以下のコードを記述すると、
kigou.Text = Format(OraDynA06.Fields("A036").Value, "@")
"実行時エラー383：このプロパティは値のみ取得可能です"
とエラーが返されてしまいます。
DBの定義上、表示する項目には、上記コンボボックスの定義で記載している
"N"・"G"のいずれかが返されることになります。
定義が悪いのか？それとも、受け取る変数・タイプが間違っているのでしょうか？
それとも他に・・・
すみません。どなたかご指導いただけないでしょうか？
またこの後、
②検索結果表示後に、コンボよりで指定した値にてDB表へ
UPDATEしたいと考えております。
コンボボックスにて選択した値を、受け取るのに何か特別なコーディングが
必要となりますか？
実現したいイメージを少し具体的に書きますと、
・DB検索結果 『kigou』コンボボックスに ”N”と表示させたい。
（DB項目上、”N”がセットされている）
・検索結果表示後、コンボボックスにて”G”と選択し、DBへUPDATEする。
2点あわせてご指導いただきたく、不明な点が多いかと思いますが、よろしく
お願いいたします