|
分類:[VB6 以前]
今VB6.0とデータベースでシステムを作っています。 そこでわからなくなりここをお借りして質問させて頂きます。 VBのComboBoxのソースで Private Sub Combo1_Change() '2008/09/17 追加[FROM] Dim ComIdx As Long On Error GoTo EXCEPTION ComIdx = Combo1.Text Combo1.AddItem ComIdx SQL_STMT = "SELECT MAS_SHOZOKU," SQL_STMT = "FROM OFFICE_NAME" Combo1.AddItem ComIdx Set MyRs(0) = cn.OpenResultset(SQL_STMT, _ rdOpenForwardOnly, _ rdConcurReadOnly) 'SQL実行
If MyRs(0).EOF Then '検索結果有無判定 GoTo OPERATION_END End If End If '2008/09/17 追加[TO] End Sub
↑これではデータベースから値を持ってこれませんよね? ほかにどんなソースを組めばいいかわかりますか? どなたか教えてください。
|