主题：[求助]数据库压缩

我用动态连接数据库用以下代码：

 

BeforeConnectOuterDataSource

 

If e.Name = "AA" Then

    If Connections.TryConnect(e.ConnectionString) = False Then

        Dim strConn As String = ""

        Dim flag As Boolean = False

        If FileSys.FileExists(e.ProjectPath & "ip.txt") Then

            strC & FileSys.ReadAllText(e.ProjectPath & "ip.txt",Encoding.Default) & ";Persist Security Info=False;Jet OLEDB:Database Password=0856474"

            If Connections.TryConnect(strConn) = False Then

                flag = False

            Else

                e.ConnectionString = strConn

                flag = True

            End If

        End If

        If flag = False Then

            Dim dlg As New OpenFileDialog

            dlg.Filter= "Access文件|*.mdb"

            If dlg.ShowDialog = DialogResult.Ok Then

                e.C & dlg.FileName & ";Persist Security Info=False;Jet OLEDB:Database Password=0856474"

                FileSys.WriteAllText(e.ProjectPath & "ip.txt", dlg.FileName, False, Encoding.Default)

            End If

        End If

    End If

End If

 

我想怎样获取项目所连接数据库文件的目录，与压缩代码怎样结合起来？

CompactAccessFile("C:\Data\订单.mdb","123")

老师，还是不明，能不能详细点。

或者用什么代码读取ip.txt所保存的文件名

 

用这个代码：

Dim ipfile As String = projectpath & "ip.txt"   '定义Ipfile为配置文件
Dim dbfile As String = filesys.ReadAllText(ipfile)  '将dbfile定义为配置文件的内容,即数据库的路径
CompactAccessFile(dbfile,"856474")

 

此主题相关图片如下：398.jpg

真的是不支持中文路径及中文文件名，有什么方法解决？

Dim dbfile As String = filesys.ReadAllText(ipfile)  '将dbfile定义为配置文件的内容,即数据库的路径
不是把ip.txt的路径读出来吗？