数据库路径获取写法

yangguangyi

Public Sub 技巧12_018()
    Dim mydata As String, mytable As String, SQL As String
    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim i As Integer
    ActiveSheet.Cells.Clear
    mydata = ThisWorkbook.Path & "\成绩管理.mdb"    '指定数据库     数据库和EXCEL表在同一文件夹下
如果数据库在其他文件夹下，该如何写

数据库在D盘FY13文件夹\office\access\第12章下，下面路径如何写？ mydata = "D:\FY13\office\ACCESS\第12章".path & "\成绩管理.mdb" '指定数据库

    mytable = "考试成绩"      '指定数据表
    '建立与数据库的连接
    Set cnn = New ADODB.Connection
    With cnn
        .Provider = "microsoft.jet.oledb.4.0"
        .Open mydata
    End With
   

todaynew

"D:\FY13\office\ACCESS\第12章\成绩管理.mdb" 这种写法叫做绝对路径。

ThisWorkbook.Path & "\成绩管理.mdb" 或者Me.Application.CurrentProject.Path  & "\成绩管理.mdb" 这类写法叫做相对路径。

一般来说作为系统的后台一般都采用相对路径写法，这样有利于部署。

绝对路径通常在临时性连接时使用，不如查找到一个文件，然后连接它。

yangguangyi

todaynew 发表于 2013-1-26 22:09
"D:\FY13\office\ACCESS\第12章\成绩管理.mdb" 这种写法叫做绝对路径。

ThisWorkbook.Path & "\成绩管理 ...

我这样写为什么有错误，在目标F13 Database中字段F47不存在
Sub 导入数据库()
    Dim mydata As String, myFile As String, myTable
    Dim myaccess As Access.Application
    Dim myCmd As ADODB.Command
    mydata = ThisWorkbook.Path & "\FY13.mdb"    '指定数据库名称（包括完整路径）
    myFile = ThisWorkbook.FullName    '指定工作簿名称
    myTable = "FY13 Database"    '指定数据表名称
    On Error Resume Next
    Kill mydata    '删除原有的同名文件
    On Error GoTo 0
    '创建数据库文件
    Set myaccess = CreateObject("Access.Application")
    myaccess.NewCurrentDatabase mydata
    '将搜索到的工作簿数据导入Access数据库
    DoCmd.TransferSpreadsheet acImport, 8, myTable, myFile, True, ""
    MsgBox "工作簿数据导入数据库成功！", vbInformation + vbOKOnly
    myaccess.CloseCurrentDatabase
    Set myaccess = Nothing
    Application.StatusBar = False
End Sub

yangguangyi

todaynew 发表于 2013-1-26 22:09
"D:\FY13\office\ACCESS\第12章\成绩管理.mdb" 这种写法叫做绝对路径。

ThisWorkbook.Path & "\成绩管理 ...

谢谢版主
有这样一个问题请教
我的电脑里有ACCESS数据库，但是另一台电脑没有安装ACCESS。 两台电脑是在局域网
我想让没有安装ACCESS电脑通过类似以下代码获取数据到EXCEL
我的数据库路径 43.98.57.13/ D盘 /FY13文件夹/ 数据库/FY13
Dim mydata As String, mytable As String, SQL As String
    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim i As Integer
    ActiveSheet.Cells.Clear

竹笛

用Me.Application.CurrentProject.Path好一点,This.workpathhaoxiangyao 引入什么东西

yangguangyi

竹笛 发表于 2013-5-23 15:38
用Me.Application.CurrentProject.Path好一点,This.workpathhaoxiangyao 引入什么东西

初学者，还请帮忙写的详细点，谢谢！

竹笛

yangguangyi 发表于 2013-5-28 07:39
初学者，还请帮忙写的详细点，谢谢！

你就用Me.Application.CurrentProject.Path吧