Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset

すでに変数宣言で"ユーザ定義型は定義されていません"
のコンパイルエラーが発生します。
どうしたら回避できるでしょうか。
初心者のため原因すらもわかりません。

よろしくお願いします。

> Dim Cn As New ADODB.Connection
> Dim Rs As New ADODB.Recordset
>
> すでに変数宣言で"ユーザ定義型は定義されていません"
> のコンパイルエラーが発生します。

おそらく参照設定されていないためでしょう。
「メニューバー」の「プロジェクト」から「参照設定」を選び、
「Microsoft ActiveX Data Objects 2.x Library」にチェックを入れてみてください。

互換性の問題がありますので複数の端末で使用するプログラムならば
「2.x」は最古にしたほうが無難かもしれません。

ありがとうございました。
チェックしたら無事回避できました。

しかし次に進んだらまた別のエラーが発生してしまいました。
原因はDB接続だと思われます。
書き方がさっぱり分かりませんので教えていただけませんでしょうか。

connect.Open "Provider=？？;Data Source=IP？;Initial Catalog=DB名？;", "ID？", "PASSWORD？"

よろしくおねがいします。

> おそらく参照設定されていないためでしょう。
> 「メニューバー」の「プロジェクト」から「参照設定」を選び、
> 「Microsoft ActiveX Data Objects 2.x Library」にチェックを入れてみてください。
>
> 互換性の問題がありますので複数の端末で使用するプログラムならば
> 「2.x」は最古にしたほうが無難かもしれません。

> 書き方がさっぱり分かりませんので教えていただけませんでしょうか。
> connect.Open "Provider=？？;Data Source=IP？;Initial Catalog=DB名？;", "ID？", "PASSWORD？"

下記はSQLServerの場合の一例。
"Provider=SQLOLEDB.1;Password=パスワード;Persist Security Info=True;
User ID=ユーザー名;Initial Catalog=データベース名;Data Source=PCの名前もしくはIP"

下記はAccessのmdbに接続する一例です。
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Db1.mdb;Persist Security Info=False"

詳細はConnectionStringをヘルプで引いてみてください。
＃SQLServerへの接続ならば手元にAccessがあれば、既存DBに接続するadpを作ることによっても
＃ConnectionStringを拾えます。

勉強になります。ありがとうございました。
でも"実行時エラー91 オブジェクト変数またはWithブロック変数が設定されていません"
エラーが発生してしまいます。。。。。。

connect.Openは正しく書いてるのに〜(>ε<)

> > 書き方がさっぱり分かりませんので教えていただけませんでしょうか。
> > connect.Open "Provider=？？;Data Source=IP？;Initial Catalog=DB名？;", "ID？", "PASSWORD？"
>
> 下記はSQLServerの場合の一例。
> "Provider=SQLOLEDB.1;Password=パスワード;Persist Security Info=True;
> User ID=ユーザー名;Initial Catalog=データベース名;Data Source=PCの名前もしくはIP"
>
> 下記はAccessのmdbに接続する一例です。
> "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Db1.mdb;Persist Security Info=False"
>
> 詳細はConnectionStringをヘルプで引いてみてください。
> ＃SQLServerへの接続ならば手元にAccessがあれば、既存DBに接続するadpを作ることによっても
> ＃ConnectionStringを拾えます。

> 勉強になります。ありがとうございました。
> でも"実行時エラー91 オブジェクト変数またはWithブロック変数が設定されていません"
> エラーが発生してしまいます。。。。。。

ここに書いてある通りにやれば、できるはずです。
今はどのようにしているのですか？
ADODB.Connection の変数の宣言部分と、
その変数を使用している部分を載せて下さい。

変数宣言が間違ってたのかも。。。。。
Dim connect As ADODB.Connection
　　　　　　　　↓
Dim connect As New ADODB.Connection
にしたら何とか接続しにいきました。

> ここに書いてある通りにやれば、できるはずです。
> 今はどのようにしているのですか？
> ADODB.Connection の変数の宣言部分と、
> その変数を使用している部分を載せて下さい。

> connect.Openは正しく書いてるのに〜(>ε<)
connectではなく、cnで宣言していませんでした？

With cn
    .ConnectionString="接続文字"
    .CursorLocation=adUseClient
    .Open
End With

Dim connect As New ADODB.Connection

With connection
    .ConnectionString="接続文字"
    .CursorLocation=adUseClient
    .Open
End With

こうすると何とかDBに接続しにいくようになりました。
色々ありがとうございました。
まだまだエラーがあるので何とか正常に接続するようにがんばります。

ようやくDB接続！！！！データ取得！！！！
に成功しました☆
たくさん教えていただいてありがとうございました☆