Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5797 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【48815】activeX　エラー ヨッシー 07/5/10(木) 13:27 質問[未読]
【48823】Re:activeX　エラー inoue 07/5/10(木) 16:21 発言[未読]
【48824】Re:activeX　エラー Kein 07/5/10(木) 16:48 発言[未読]
【48815】activeX　エラー
質問  ヨッシー  - 07/5/10(木) 13:27 -
引用なし
パスワード
   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
【48823】Re:activeX　エラー
発言  inoue  - 07/5/10(木) 16:21 -
引用なし
パスワード
   ▼ヨッシー さん：
>activeXがエラーをします。
>rdoの参照設定はできてますが、オブジェクトが構成できてません。
「rdo」って、正確には何ですか？

「Microsoft Remote Data Object 2.0」なのでしたら、
>　　Dim db As New odbc_db
>　　Dim db1 As New odbc_db
>　　Dim RPD As New odbc_sql
このような型のメンバは見つかりません。
「ユーザー定義型が見つからない」とコンパイルエラーになります。
【48824】Re:activeX　エラー
発言  Kein  - 07/5/10(木) 16:48 -
引用なし
パスワード
   内容がすこし古いようですが、以下のサイトが参考になりませんか ?
ｈｔｔｐ://www.int21.co.jp/pcdn/vb/noriolib/vbmag/9803/excel/
ｈｔｔｐ://support.microsoft.com/kb/411943/ja
*↑URLの先頭四文字を半角に変換して下さい。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5797 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free