Office中国论坛/Access中国论坛

标题: 如何链接改了后缀名的数据库？ [打印本页]

作者: xulanghui 时间: 2007-12-2 21:05
标题: 如何链接改了后缀名的数据库？
我用的预算软件本身是用的ACCESS2000格式数据库，但软件把后缀名改成了LIB，改回MDB软件就不能用，如何链接这样的数据库呢？

作者: gdfsslec 时间: 2007-12-2 21:29
是手工连接还是用代码？
手工指定用ACCESS打开啊

用代码把数据库的名字的后缀改了就可以了啊！比如db1.LIB

作者: 5988143 时间: 2007-12-2 21:43
重新连接一次,手工也可以,
连接-db1.lib即可呀

作者: andymark 时间: 2007-12-2 22:06
程序采用代码连接后端，更改后缀，也就无法识后端名称，从而使程序无法正常打开
不要更改后缀，新建一个数据库，按楼上方法重新连接db1.lib文件

作者: hauting 时间: 2007-12-4 19:09

原帖由 5988143 于 2007-12-2 21:43 发表
重新连接一次,手工也可以,
连接-db1.lib即可呀

不错,这个是可行的

作者: xulanghui 时间: 2007-12-5 23:26
标题: 谢谢
用代码把数据库的名字的后缀改了就可以了啊！比如db1.LIB

能不能给个示例呀，还是不明白？

如软件的是db1.LIB，而我要既不改后缀，又能用ACCESS链接出数据用来分析的方法？

作者: gdfsslec 时间: 2007-12-6 18:39
如果是用代码链接的话——把数据库的名字后缀改了就可以了

Dim cnn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim tbl As Table
cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & CurrentProject.Path & "\db1.LIB;Jet OLEDB

atabase Password=" & mima & ";"
cat.ActiveConnection = cnn
For Each tbl In cat.Tables
GetTblName = tbl.Name
If Left(tbl.Name, 4) <> "msys" Then
IsLink = LinkTbl(CurrentProject.Path & "\db1.LIB", "", GetTblName, GetTblName)
End If
Next
Set tbl = Nothing
Set cat = Nothing
cnn.Close
Set cnn = Nothing

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)