如何动态链接数据库？

冬冬

有一电话计费数据库，每月1日自动产生新的数据库如：200509.mdb、200510.mdb、200511.mdb……。

本人想读取该数据库，请问该如何做到判断该新数据库是否产生，并自动链接到该新数据库中的表，（新数据库是每月1日，当出现第一个话费时产生的。）

请帮忙谢谢！

gaoqiwen

给你一个新建数据库的例子：Dim appAccess As Access.ApplicationSub NewAccessDatabase()

    Dim dbs As Object, tdf As Object, fld As Variant

    Dim strDB As String

    Const DB_Text As Long = 10

    Const FldLen As Integer = 40

    '新建数据库的名称（更换为你想要的名字）

    strDB = "C:\My Documents\Newdb.mdb"

    '建立Access程序对象

    Set appAccess = CreateObject("Access.Application")

    '新建数据库

    appAccess.NewCurrentDatabase strDB

    Set dbs = appAccess.CurrentDb

    '新建表格

    Set tdf = dbs.CreateTableDef("Contacts")

    Set fld = tdf.CreateField("CompanyName", DB_Text, FldLen)

    tdf.Fields.Append fld

    dbs.TableDefs.Append tdf

    Set appAccess = Nothing

End Sub动态链接数据库可搜索论坛中“链接”的例子；[em04]

冬冬

楼上的朋友搞错了,我不是要建库，是要动态的链接别人产生的数据库。电话计费数据库是电话交换机，每月自动产生。原系统查询贼差，本人每月手工将其数据库链接到本人做的数据库内进行查询，很麻烦，想做到自动链接。难点：①如何判断新数据库已产生。（这样才能对其进行链接）          ②如何链接新数据库内的表。说明：因新数据库是每月自动产生，数据库名称每月都不一样，本人系统没有新数据库内的链接表名，如何链接。注：新数据库名称按日期自动产生有规律。数据库内的表也已知为：user请高手帮忙