سلام وقت بخير
براي ارتباط از اكسل به ساير پايگاه هاي داده ماندد اكسس و SQL دستورات زيادي را مطالعه و در نهايت دستور زير و يا فايل پيوست را براي ارتباط اكسل با يك Table اكسس بنام course و فايل اكسس به نام Database11 كه در دستكتاپ سيستم موجود است نوشته ام.
اما هر بار با خطاي Run time error مواجه ميشوم.
لطفا از دوستان اگر كسي اطلاعات داره دستور بنده را ويرايش و ارجاع كنه
همچنين توضيح بده كه كجاي كار من ايراد داشت
کد PHP:
[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:
[PHP][CODE][CODE][QUOTE][/QUOTE][/CODE][/CODE]
[/PHP]
با تشكر
کد 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
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)