Office中国论坛/Access中国论坛

标题: 新手求教,请帮忙: SELECT INTO问题 [打印本页]

作者: guom32 时间: 2005-12-14 23:54
标题: 新手求教,请帮忙: SELECT INTO问题
偶要每天从新下传的数据中抽取一定数据形成新的表文件,新表文件名希望为下传日期

代码如下:

Function 生成日期文件()
Dim filname, sql As String
Dim dbs As Database
Dim rst As Recordset

Set dbs = OpenDatabase("D:\access 数据库\数据处理.mdb")
Set rst = dbs.OpenRecordset("清分客户信息表", dbOpenDynaset)
Set rst = dbs.OpenRecordset("select DISTINCT 客户信息表.下传日期 from 客户信息表 WHERE 客户信息表.新机构号='8001'", dbOpenDynaset)

rst.MoveFirst
filname = rst.Fields("下传日期")
MsgBox (filname)
sql = "SELECT 客户信息表.下传日期, 客户信息表.新机构号, 客户信息表.部门号, 客户信息表.客户号 INTO filname FROM 清分客户信息表"
dbs.Execute (sql)

运行结果是生成了一个叫FILNAME的新表,而偶的希望是生成诸如20051213 这样的新表名称,偶该怎么做?谢谢![em06][em06][em06]

[此贴子已经被作者于2005-12-14 15:55:59编辑过]

作者: wwwwa 时间: 2005-12-15 00:08
sql = "SELECT 客户信息表.下传日期, 客户信息表.新机构号, 客户信息表.部门号, 客户信息表.客户号 INTO " & filname &"FROM 清分客户信息表"

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