目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
48 / 107 ツリー ←次へ | 前へ→

【196】activeX エラー ヨッシー 07/5/10(木) 13:25 Excel[未読]

【196】activeX エラー
Excel  ヨッシー  - 07/5/10(木) 13:25 -

引用なし
パスワード
   activeXがエラーをします。
rdoの参照設定はできてますが、オブジェクトが構成できてません。

Sub GetPlan()

  Dim db As New odbc_db
  Dim db1 As New odbc_db
  Dim RPD As New odbc_sql
  Dim strSQL As String
  Dim y As Long
      
  'データベース接続
  With db         *******←ここでエラーとなります**********
    .Init_ODBC
    .rUsr_ID = "hanb"
    .rPwd_ID = "hanb"
    .rDns = "hanb"
    .rNoTran = False
    If Not .Open_ODBC(False) Then
      .Err_MsgOut
      Exit Sub
    End If
  End With

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
48 / 107 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:   
0
(SS)C-BOARD v3.8 is Free