| 投稿日 | ： 2004/03/24(Wed) 14:53 |
| 投稿者 | ： 茸 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: コンボボックスを使用したデータ表示及び選択後のDB・UPdate |
こんにちは。
> 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するロジックが必要かと思います。