掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
複数のコンボボックスを処理するには？ (ID:101938)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
すみません、コーディングを間違えました。 また、それぞれの値は、test1,test2,test3に保存 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!test1 = cmb_1.Text '「1」をセット rs!test2 = cmb_2.Text '「2」をセット rs!test3 = cmb_3.Text '「3」をセット rs.Update '更新(保存) rs!test1 = cmb_1.Text '「1」をセット rs!test2 = cmb_2.Text '「2」をセット rs!test3 = cmb_3.Text '「3」をセット cn.Close Set cn = Nothing Set rs = Nothing MsgBox "保存完了", vbOKOnly, "保存" End Sub たびたびすみません。よろしくお願いします。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.