neptune様・daive様

お世話になります。
回答していただき、まことにありがとうございます！！

 

'countryテーブルをオープン 

myrec.Open "select * from country", myADOcon



myrec.MoveFirst



Do Until myrec.EOF

Comb1.AddItem myrec.Fields("country_name").Value

Comb2.AddItem myrec.Fields("country_name").Value

Comb3.AddItem myrec.Fields("country_name").Value

Comb4.AddItem myrec.Fields("country_name").Value

Comb5.AddItem myrec.Fields("country_name").Value 　　　　　



myrec.MoveNext

Loop



End Sub

でやってみたのですが、nullが不正です、というエラーが返ってきたため、
テーブルの設定を確認したところ、country_nameのNOTNULLにチェックが入っていました。
チェックをはずすと、５つのコンボボックスに同じ値を表示することが出来ました。

テーブル設計は明確ではないといけませんね･･･。



daive様

アドバイスありがとうございます！
なるほど、そういうことも出来るんですね。
いま各コンボボックスのプロパティを確認したところ、
DataSource
DataMenber
DataFiled
がありました。
少し余裕があるとき、また同じシステムのプログラムを組み直し、
こちらの方法でデータリンクしてみたいと思います。