如何链接改了后缀名的数据库？

xulanghui

我用的预算软件本身是用的ACCESS2000格式数据库，但软件把后缀名改成了LIB，改回MDB软件就不能用，如何链接这样的数据库呢？

gdfsslec

是手工连接还是用代码？
手工指定用ACCESS打开啊
用代码把数据库的名字的后缀改了就可以了啊！ 比如db1.LIB

5988143

重新连接一次,手工也可以,
连接-db1.lib即可呀

andymark

程序采用代码连接后端，更改后缀，也就无法识后端名称，从而使程序无法正常打开
不要更改后缀，新建一个数据库，按楼上方法重新连接db1.lib文件

hauting

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

不错,这个是可行的

xulanghui

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

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

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

gdfsslec

如果是用代码链接的话——把数据库的名字后缀改了就可以了

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 OLEDBatabase 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