标题: 各位版主大人帮帮小弟啊! [打印本页] 作者: zxp 时间: 2003-5-14 00:32 标题: 各位版主大人帮帮小弟啊! 如何能获得图中ODBC链接表后面的括号里的“DATEBASE”的值?
[attach]422[/attach]作者: zxp 时间: 2003-5-14 00:41
[attach]423[/attach]作者: eio 时间: 2003-5-14 02:29
zxp可以的话将图片转换为JPG或者GIF,几百KB的BMP你都传上来?作者: 李寻欢 时间: 2003-5-14 07:52
我试过可以的了,放在模块里,引用ADOX
Function LinkPath(tabName As String) As String
Dim catDB As ADOX.Catalog
Dim tblLink As ADOX.Table
Dim i As Integer
Set catDB = New ADOX.Catalog
catDB.ActiveConnection = CurrentProject.Connection
Set tblLink = catDB.Tables(tabName)
'LinkPath = tblLink.Properties("Jet OLEDBink Datasource")
LinkPath = tblLink.Properties(5)
Set tblLink = Nothing
Set catDB = Nothing
End Function