Office中国论坛/Access中国论坛

标题: 如何动态链接数据库？ [打印本页]

作者: 冬冬 时间: 2005-11-11 07:49
标题: 如何动态链接数据库？
有一电话计费数据库，每月1日自动产生新的数据库如：200509.mdb、200510.mdb、200511.mdb……。

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

请帮忙谢谢！

作者: gaoqiwen 时间: 2005-11-11 17:32
给你一个新建数据库的例子：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]

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

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