目安箱 IV

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

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
59 / 118 ﾂﾘｰ ←次へ　｜　前へ→
【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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
59 / 118 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：   
0
(SS)C-BOARD v3.8 is Free