投稿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"のいずれかが返されることになります。

定義が悪いのか？それとも、受け取る変数・タイプが間違っているのでしょうか？　
それとも他に・・・
すみません。どなたかご指導いただけないでしょうか？

またこの後、
�A検索結果表示後に、コンボよりで指定した値にてDB表へ
UPDATEしたいと考えております。
コンボボックスにて選択した値を、受け取るのに何か特別なコーディングが
必要となりますか？

　実現したいイメージを少し具体的に書きますと、
　　・DB検索結果　『kigou』コンボボックスに　”N”と表示させたい。
　　　（DB項目上、”N”がセットされている）
　　・検索結果表示後、コンボボックスにて”G”と選択し、DBへUPDATEする。

2点あわせてご指導いただきたく、不明な点が多いかと思いますが、よろしく
お願いいたします

こんにちは。

> CSComboBoxを使用。

当方、CSComboBoxというものを使った事がないのと、
VB5を知らない(VB6)のを前提で参考までに。

> (1)DBで対象表よりSelectした結果をコンボボックスに表示させたいのですが、
> 　DB検索後に画面へのデータ項目の移送させるべく、以下のコードを記述すると、
> kigou.Text = Format(OraDynA06.Fields("A036").Value, "@")
> 　"実行時エラー383：このプロパティは値のみ取得可能です"
> とエラーが返されてしまいます。

VB標準のコンボボックスでこれと同様のエラーを出現させることはできました。
（Oracle周りはとりあえず考慮しておりません）

　(1)コンボボックスのStyleプロパティが「ドロップダウンリスト」になっている
　(2)kigou.Text に値を代入する、その値がコンボボックスのリストには無いものである

仕様をよくのみこめていないのですが、
Oracleの結果によってコンボの選択値を変更させる
ということだとおもうのですが、
Oracleの取得結果とコンボ値がイコールでないならば、
結果値をSELECTなりIFなりで分岐させる必要があるかと思います。

2点目の件については、コンボとDBを連結なりしていない限りは、
UPDATEするロジックが必要かと思います。

返信ありがとうございます。
また、お礼を申し上げるのが遅くなり申し訳ございませんでした。
１W出張に出ていた為、手がつけれておりませんでした。
いただいた意見を参考にもう少し自分でも悩み考えさせていただきます。
本当にありがとうございました