はADODB接続

Question

を含めるこんにちは、私は問題の聖霊降臨祭は、私はthis link description

Sub tbl() 

Dim myCn As MyServer 
Set myCn = New MyServer 

Dim rs As ADODB.Recordset 
Set rs = New ADODB.Recordset 

rs.Open "Select * from mytbl1", myCn.GetConnection 

Range("A3").CopyFromRecordset rs 

rs.Close 
myCn.Shutdown 

Set rs = Nothing 
Set myCn = Nothing 
End Sub 

とvbaprojectからのコードの下に使用し、ローカルネットワーク内& adodbe接続をexcelvba持っています。 ローカルネットワーク内の他のPCで動作しない理由は、私のシステムで正常に動作しているのですが、ここで質問してください

Answer 1

あなたが必要とするのはLate Bindingです。ここでは、 "ADODB.Recordset"でそれを行う方法です。後半に明示的にライブラリを参照する必要はありません、それは任意のPC上で実行することができますバインディングで、かなり多くの https://msdn.microsoft.com/en-us/library/0tcf61s1.aspx

：ここ

Sub tbl() 

Dim rs As Object 
Set rs = CreateObject("ADODB.Recordset") 

End Sub 

そして

はそれについていくつかの詳細情報です。早い縛りではあなたはそれをしなくてはなりません。初期バインディングでは、IntelliSenseも取得します。