ارتباط اكسل با پايگاه داده اكسس از طريق ado

[zxcvbn]

سلام وقت بخير
براي ارتباط از اكسل به ساير پايگاه هاي داده ماندد اكسس و SQL دستورات زيادي را مطالعه و در نهايت دستور زير و يا فايل پيوست را براي ارتباط اكسل با يك Table اكسس بنام course و فايل اكسس به نام Database11 كه در دستكتاپ سيستم موجود است نوشته ام.
اما هر بار با خطاي Run time error مواجه ميشوم.
لطفا از دوستان اگر كسي اطلاعات داره دستور بنده را ويرايش و ارجاع كنه
همچنين توضيح بده كه كجاي كار من ايراد داشت

[PHP][CODE][CODE][QUOTE][/QUOTE][/CODE][/CODE] 

[/PHP]
با تشكر

Private Sub MyProject()


Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConnection As String




Dim strServer, strDatabase, strUsername, strPassword As String




strServer = "local"
strDatabase = "C:\Users\h_gholami\Desktop\Database11.accdb"
strUsername = "Admin"
strPassword = """"



strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=strServer ;Initial Catalog=strDatabase;User ID= strUsername;Password= strPassword;"




Set cn = New ADODB.Connection
cn.ConnectionString = strConnection
cn.CommandTimeout = 30
cn.Open
Set rs = New ADODB.Recordset


With rs
.ActiveConnection = cn


.Open "SELECT * FROM Course"


Sheet1.Range("A1").CopyFromRecordset rs
.Close
End With
cn.Close




End Sub

- - - Updated - - -

سلام وقت بخير
براي ارتباط از اكسل به ساير پايگاه هاي داده ماندد اكسس و SQL دستورات زيادي را مطالعه و در نهايت دستور زير و يا فايل پيوست را براي ارتباط اكسل با يك Table اكسس بنام course و فايل اكسس به نام Database11 كه در دستكتاپ سيستم موجود است نوشته ام.
اما هر بار با خطاي Run time error مواجه ميشوم.
لطفا از دوستان اگر كسي اطلاعات داره دستور بنده را ويرايش و ارجاع كنه
همچنين توضيح بده كه كجاي كار من ايراد داشت

[PHP][CODE][CODE][QUOTE][/QUOTE][/CODE][/CODE] 

[/PHP]
با تشكر

Private Sub MyProject()
Dim cn As ADODB.ConnectionDim rs  As ADODB.RecordsetDim strConnection As String

Dim strServer, strDatabase, strUsername, strPassword As String

strServer = "local"strDatabase = "C:\Users\h_gholami\Desktop\Database11.accdb"strUsername = "Admin"strPassword = """" 
strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=strServer ;Initial Catalog=strDatabase;User ID= strUsername;Password= strPassword;"

Set cn = New ADODB.Connectioncn.ConnectionString = strConnectioncn.CommandTimeout = 30cn.OpenSet rs = New ADODB.Recordset
With rs.ActiveConnection = cn
.Open "SELECT * FROM Course"
Sheet1.Range("A1").CopyFromRecordset rs.CloseEnd Withcn.Close

End Sub 

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.