OLE DB Provider for ODBC、SQL Server、Oracle、Microsoft Jet 连接字符串

leewon

看看是怎么回事

中原一布衣

值得收藏！好好研究一番。

kanhazi

学习啦，楼主v5

netwanboy

收藏

Elliott_love

做個記號  以後查的時候方便

klmyyq

收藏，备用

mutiantong

慢慢理解大神的意思。

hkgoodwill

請問樓主：假設我有一的Visual Foxpro檔名稱為vf_1.DBF在F:/，我想將vf_1.DBF內的數據每次重新灌入在D:/裡的file.xls，請問我在file.xls裡的VBA應該怎樣寫，請指教。

我現時每次都要經EXCEL裡的"輸入外部數據"(藉Miscroft OLE DB Provider for Visual Foxpro 的程序)方法每次人工做一次的。


謝謝

hkgoodwill

跪求各大大支招，讓小弟啟蒙。

平平淡淡的天使

1. Sub 宏1()
   
2. '
   
3. ' 宏1 宏
   
4.     With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
   
5.         "OLEDB;Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Data Source=IDEA-PC\SQLEXPRESS;Use Procedure for Prepare=1;Auto Transl" _
   
6.         , _
   
7.         "ate=True;Packet Size=4096;Workstation ID=IDEA-PC;Use Encryption for Data=False;Tag with column collation when possible=False;Ini" _
   
8.         , "tial Catalog=alesdata"), Destination:=Range("$A$1")).QueryTable
   
9.         .CommandType = xlCmdTable
   
10.         .CommandText = Array("""alesdata"".""dbo"".""全年数据""")
    
11.         .RowNumbers = False
    
12.         .FillAdjacentFormulas = False
    
13.         .PreserveFormatting = True
    
14.         .RefreshOnFileOpen = False
    
15.         .BackgroundQuery = True
    
16.         .RefreshStyle = xlInsertDeleteCells
    
17.         .SavePassword = False
    
18.         .SaveData = True
    
19.         .AdjustColumnWidth = True
    
20.         .RefreshPeriod = 0
    
21.         .PreserveColumnInfo = True
    
22.         .SourceConnectionFile = _
    
23.         "C:\Users\data\Documents\我的数据源\IDEA-PC_SQLEXPRESS alesdata 全年数据.odc"
    
24.         .ListObject.DisplayName = "表_IDEA_PC_SQLEXPRESS_alesdata_全年数据"
    
25.         .Refresh BackgroundQuery:=False
    
26.     End With
    
27.     Range("D5").Select
    
28. End Sub
    

复制代码

大师，，这是我用宏录制的，，大师能否帮忙用Vba Ado 简化下，，谢谢大师。