複数のコンボボックスを処理するには？ (ID:101937)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

vb6.0初心者です。
いつも拝見しております。

ただいま、フォーム上には３つのコンボボックス「cmb_1」「cmb_2」「cmb_3」
1つのボタン「cmd_save」があるフォームを作成しており、
各コンボボックスで値を選択した後、保存ボタンをクリックすると
サーバへ保存されるシステムを作成中です。

今現在、コンボボックスで値を選択した後、保存ボタンを押すと
MySQLサーバへ値が保存されるところまではできたのですが、
３つのコンボボックスすべてに値を入れないと、エラーが返ってきます。
つまり、ひとつ、ふたつのコンボボックスのみの値の選択ができません。

コードは以下のとおりになります。

Private Sub cmd_save_Click()
  Dim cn As ADODB.Connection
  Dim rs As ADODB.Recordset
     
  Set cn = New ADODB.Connection
  Set rs = New ADODB.Recordset

Dim strTBL As Variant
  
  strTBL = "test"  'テーブル名
  
   'Mysqlへ接続
cn.Open "Driver={MySQL ODBC 3.51 Driver};SERVER = testserv;DATABASE=testdb;UID=aaaa;PWD=1234;"

'テーブルを開く
   rs.Open strTBL, cn, adOpenForwardOnly, adLockOptimistic, adCmdTable

rs.AddNew                       '新規レコードを追加
  rs!job1 = cmb_job1.Text           '「ジョブ1」をセット
  rs!job2 = cmb_job2.Text           '「ジョブ2」をセット
  rs!job3 = cmb_job2.Text           '「ジョブ3」をセット  
  
  rs.Update                         '更新(保存)
  rs!job1 = cmb_job1.Text           '「ジョブ1」をセット
  rs!job2 = cmb_job2.Text           '「ジョブ2」をセット
  rs!job3 = cmb_job2.Text           '「ジョブ3」をセット
  
 cn.Close

Set cn = Nothing
   Set rs = Nothing

MsgBox "保存完了", vbOKOnly, "保存"

End Sub

なぜ注意されているのかは検討できましたが、なにぶん初心者なので
どのように追加コーディングをしていいのかわかりません。

3つのコンボボックス中、１つ、または２つのコンボボックスの
選択のみでもサーバへ保存させるにはどのようにすればよいでしょうか？

わかりにくい質問ですみませんが、
ご教示のほど、よろしくお願いいたします。

←解決時は質問者本人がここをチェックしてください。

戻る