没有合适的资源?快使用搜索试试~ 我知道了~
资源推荐
资源详情
资源评论
利用file system object (fso)建立文件和文件夹。
1.菜单 工程――〉引用,添加microsoft scripting runtime
2.在module中声明 Public FSO As New FileSystemObject (其中fso可以任意起名字,这句是定义一个全局的类实例))
3.在主界面form_load时注意检查数据库所在的文件夹是否存在,不存在则重建,
4.然后检查数据库文件是否存在,不存在就重建(这一步需要DAO技术,又要添加组件 菜单 工程――〉引用,添加microsoft DAO3.6 OBJECT library),具体程序见后面介绍。
5.数据库操作完全依赖于exeSQL函数,见后,使用此函数只需传递相应的SQL语句即可完成各类数据库操作。必须添加组建工程――〉引用,添加microsoft activex data objects 2.8 library \microsoft activex data objects recordset 2.8 library
Dim MdbDatabase As Database '声明一个数据库类实例
Dim rs As New ADODB.Recordset '声明一个ADO数据记录集实例
Dim sqltext As String ‘声明SQL语句字符串
Dim msgtext As String ’声明exeSQL函数返回错误信息
Folderpath = App.Path & "\data" '寻找当前文件夹里的data文件夹
If Not (FSO.FolderExists(Folderpath)) Then '若没有
MsgBox "初次使用或者数据文件被破坏,现在建立相关文件!", 48, "建立相关文件!" '弹出提示框
FSO.CreateFolder (Folderpath) '建立该文件夹
End If
If Not (FSO.FileExists(Folderpath & "\data.mdb")) Then '检查数据库是否存在,若不存在
Set MdbDatabase = CreateDatabase((Folderpath & "\data.mdb"), dbLangGeneral) '建立数据库《使用的是DAO》
MdbDatabase.Close '关闭刚刚建立的数据库
sqltext = "CREATE TABLE Wave([WaveStyle] int,[peaktopeak] single,[samthick] single,[saminfo] TEXT,[flag] text,[Corder] AUTOINCREMENT,PRIMARY KEY ([flag]));"
' 上面两行是一句,写了一条创建数据表的SQL语句。 其中Wave是表格名,中括号里的是表格里的字段名,中括号后的是各字段的数据类型,注意和vb有不同。表格名和字段名可以根据需要而起名字。每一次只能创建一个表格,而其中的字段可以有很多个。
Set rs = exeSQL(ConnectString, sqltext, msgtext)
'执行ezeSQL函数,并把结果传给rs,注意rs在前面声明的什么类型、注意该条语句的特殊格式。
参数connectstring 由另一个同名函数(见后面)直接给出,不需定义,sqltext在上一条语句写出,msgtext是exeSQL传递回来的错误信息,基本不用。
sqltext = "CREATE TABLE ResultData([highvol] single,[samvol] single);"
Set rs = exeSQL(ConnectString, sqltext, msgtext)
1.菜单 工程――〉引用,添加microsoft scripting runtime
2.在module中声明 Public FSO As New FileSystemObject (其中fso可以任意起名字,这句是定义一个全局的类实例))
3.在主界面form_load时注意检查数据库所在的文件夹是否存在,不存在则重建,
4.然后检查数据库文件是否存在,不存在就重建(这一步需要DAO技术,又要添加组件 菜单 工程――〉引用,添加microsoft DAO3.6 OBJECT library),具体程序见后面介绍。
5.数据库操作完全依赖于exeSQL函数,见后,使用此函数只需传递相应的SQL语句即可完成各类数据库操作。必须添加组建工程――〉引用,添加microsoft activex data objects 2.8 library \microsoft activex data objects recordset 2.8 library
Dim MdbDatabase As Database '声明一个数据库类实例
Dim rs As New ADODB.Recordset '声明一个ADO数据记录集实例
Dim sqltext As String ‘声明SQL语句字符串
Dim msgtext As String ’声明exeSQL函数返回错误信息
Folderpath = App.Path & "\data" '寻找当前文件夹里的data文件夹
If Not (FSO.FolderExists(Folderpath)) Then '若没有
MsgBox "初次使用或者数据文件被破坏,现在建立相关文件!", 48, "建立相关文件!" '弹出提示框
FSO.CreateFolder (Folderpath) '建立该文件夹
End If
If Not (FSO.FileExists(Folderpath & "\data.mdb")) Then '检查数据库是否存在,若不存在
Set MdbDatabase = CreateDatabase((Folderpath & "\data.mdb"), dbLangGeneral) '建立数据库《使用的是DAO》
MdbDatabase.Close '关闭刚刚建立的数据库
sqltext = "CREATE TABLE Wave([WaveStyle] int,[peaktopeak] single,[samthick] single,[saminfo] TEXT,[flag] text,[Corder] AUTOINCREMENT,PRIMARY KEY ([flag]));"
' 上面两行是一句,写了一条创建数据表的SQL语句。 其中Wave是表格名,中括号里的是表格里的字段名,中括号后的是各字段的数据类型,注意和vb有不同。表格名和字段名可以根据需要而起名字。每一次只能创建一个表格,而其中的字段可以有很多个。
Set rs = exeSQL(ConnectString, sqltext, msgtext)
'执行ezeSQL函数,并把结果传给rs,注意rs在前面声明的什么类型、注意该条语句的特殊格式。
参数connectstring 由另一个同名函数(见后面)直接给出,不需定义,sqltext在上一条语句写出,msgtext是exeSQL传递回来的错误信息,基本不用。
sqltext = "CREATE TABLE ResultData([highvol] single,[samvol] single);"
Set rs = exeSQL(ConnectString, sqltext, msgtext)
资源评论
- 卡布基诺CK2014-03-25简单的读取,谢谢分享
taoyuezh
- 粉丝: 0
- 资源: 1
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功