北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
请教一下:ADOX 对象包括Catalog、Column、Group、Index、Key、Procedure、Table、User、View等对象,既然Catalog与Table对象是并列关系,为什么又将Table的ParentCatalog设为新创建的Catalog呢?Jet OLEDB:Link Provider String包括数据源数据库类型,用户ID和密码三个部分.这句代码为什么这样写: tbl.Properties("Jet OLEDB:Link Provider String") = ";pwd=password",这是不是指源数据库类型与当前数据库相同,密码等于password又是什么意思呢?敬请老师们解答.谢谢!
下面是将当前路径中的Chap20Data.accdb数据库中的tblClients链接到当前数据库中的tblLinkedTable的代码:
Sub LinkToAccessTableProps()
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Set cat = New ADOX.Catalog
cat.ActiveConnection = CurrentProject.Connection
Set tbl = New ADOX.Table
tbl.Name = "tblLinkedTable"
Set tbl.ParentCatalog = cat
tbl.Properties("Jet OLEDB:Create Link") = True
tbl.Properties("Jet OLEDB:Link Datasource") = _
CurrentProject.Path & "\Chap20Data.accdb"
tbl.Properties("Jet OLEDB:Link Provider String") = ";pwd=password"
tbl.Properties("Jet OLEDB:Remote Table Name") = "tblClients"
cat.Tables.Append tbl
End Sub