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

leewon · 发表于 2010-7-10 21:11

看看是怎么回事

中原一布衣 · 发表于 2011-1-23 09:43

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

kanhazi · 发表于 2011-2-13 20:23

学习啦，楼主v5

netwanboy · 发表于 2011-4-17 23:58

Elliott_love · 发表于 2011-5-3 15:39

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

klmyyq · 发表于 2013-6-12 23:41

收藏，备用

mutiantong · 发表于 2013-9-6 13:26

慢慢理解大神的意思。

hkgoodwill · 发表于 2013-7-28 20:29

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

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

謝謝

hkgoodwill · 发表于 2013-7-28 22:33

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

平平淡淡的天使 · 发表于 2013-9-13 13:47

Sub 宏1()
'
' 宏1 宏
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
"OLEDB;Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Data Source=IDEA-PC\SQLEXPRESS;Use Procedure for Prepare=1;Auto Transl" _
, _
"ate=True;Packet Size=4096;Workstation ID=IDEA-PC;Use Encryption for Data=False;Tag with column collation when possible=False;Ini" _
, "tial Catalog=alesdata"), Destination:=Range("$A$1")).QueryTable
.CommandType = xlCmdTable
.CommandText = Array("""alesdata"".""dbo"".""全年数据""")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceConnectionFile = _
"C:\Users\data\Documents\我的数据源\IDEA-PC_SQLEXPRESS alesdata 全年数据.odc"
.ListObject.DisplayName = "表_IDEA_PC_SQLEXPRESS_alesdata_全年数据"
.Refresh BackgroundQuery:=False
End With
Range("D5").Select
End Sub

复制代码

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

		自动登录	找回密码
密码			免费注册

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

回复 1楼向東的帖子

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

回复 1楼 向東 的帖子

回复 1楼向東的帖子