您的位置：程序门 -> vb -> 基础类

请教！！！

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

请教！！！[已结贴,结贴人:lpzwm]

发表于：2007-04-28 09:52:07 楼主

vb 开发，每天零点自动创建一个access数据库，为什么有时候创建不了，出错。系统提示“未指定的错误”，然后好像软件都不好用了。得需要重启电脑

发表于：2007-04-28 10:00:281楼得分:0

有没有人帮帮忙啊

发表于：2007-04-28 10:01:052楼得分:5

要贴代码

发表于：2007-04-28 10:08:193楼得分:0

'************** 函数功能：建立动态数据库
'************** 修改日期：2006－11－14
public function createdyndatabase（)
dim cat as new adox.catalog
dim tb1 as new table
dim con as new adodb.connection
dim idx1 as new adox.index
dim key1 as new adox.key
on error goto err1

if dir（ "mdb\sssj ", vbdirectory) = " " then '创建文件夹
call createfolder（ "mdb\sssj ")
end if
temp = ctemp（date)

if dir（ "mdb\sssj\ " & temp & ".mdb ", vbnormal) <> " " then exit function
cat.create "provider=microsoft.jet.oledb.4.0;data source=mdb\sssj\ " & temp & ".mdb " '创建数据库
con.connectionstring = "provider=microsoft.jet.oledb.4.0;data source=mdb\sssj\ " & temp & ".mdb; "
'con.commandtimeout = 30
con.open
set cat.activeconnection = con

tb1.name = "tbltemp " ' temp '创建数据表
tb1.columns.append "时间 ", addate
tb1.columns.append "编号 ", adinteger
cat.tables.append tb1 '添加目录
con.close
set con = nothing
exit function
err1:
msgbox "createdyndatabase函数出错！ "
end function

发表于：2007-04-28 10:48:024楼得分:5

程序没有错误.

发表于：2007-04-28 10:49:215楼得分:10

估计是创建的数据库已经存在.

下一篇：求教把sql表转换成dbf格式
上一篇：vc atl dll如何向vb程序返回字符串结果？

其他资讯