'VB引用项目如下:
'Microsoft ADO Ext. 2.8 for DDL and Security
'Microsoft ActiveX Data Objects 2.8 Library
'COM+ Services Type Library
'Microsoft DAO 3.6 Object Library
Sub CreateDatabase(mdbPath, mdbPassword)
Dim cat As New ADOX.Catalog
If mdbPassword = "" Then
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source" & mdbPath & ";"
Else
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Password=" & mdbPassword & ";Data Source=" & mdbPath & ";"
'cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbPath & ";"
End If
MsgBox "数据库" & mdbPath & "建立成功", vbOKOnly
'Set wspDefault = DBEngine.Workspaces(0)
'Set dbs = wspDefault.CreateDatabase("Newdb.mdb", _
'dbLangGeneral & ";pwd=NewPassword", dbEncrypt)
End Sub
Sub CreateTable(mdbPath, mdbTableName, mdbSqlColumns, mdbPrimaryKey)
'建立列的sql语句
'mdbPath="c:/test.mdb"
'mdbTableName="User"
'mdbSqlColumns="ID,adInteger;UserName,adVarWChar,20;Password,adVarWChar,20"
'mdbPrimaryKey="ID"
Dim tbl As New Table
Dim cat As New ADOX.Catalog
Dim con As ADODB.Connection
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=" & mdbPath & ";"
Dim ArrayColumn As String
tbl.Name = mdbTableName
'添加数据表字段(字段格式:字段名 字段类别,字段长度;最末字段没有分号)
ArrayTotalColumn = Split(mdbSqlColumns, ";", -1, 1)
For i = 0 To UBound(ArrayTotalColumn)
ArraySingleColumn = Split(ArrayTotalColumn(i), ",", -1, 1)
If UBound(ArraySingleColumn) = 1 Then
'tbl.Columns.Append ArraySingleColumn(0), ArraySingleColumn(1)
tbl.Columns.Append ArraySingleColumn(0), adInteger
Else
'tbl.Columns.Append ArraySingleColumn(0), ArraySingleColumn(1), ArraySingleColumn(2)
tbl.Columns.Append ArraySingleColumn(0), adVarWChar, CInt(ArraySingleColumn(2))
End If
Next
'设置数据表主键
'tbl.Columns(mdbPrimaryKey).Properties("AutoIncrement") = True
cat.Tables.Append tbl
'设置列的必填属性为“否”
'tbl.Columns("Weight").Attributes = adColNullable
'设置列的允许空字符串为“是”
'tbl.Columns("FirstName").Properties("Jet OLEDB:Allow Zero Length") = True
Set tbl = Nothing
Set cat = Nothing
MsgBox "数据表" & mdbPath & "-" & mdbTableName & "建立成功", vbOKOnly
End Sub
'这个准备编写成一个类。
'其实作用跟我上次编写的ASP操作ACCESS数据库大全性质和功能基本相似
'数据库--新建,删除,压缩,修复,设置密码,数据库文件存在判断,读取'
'数据表--新建,删除,数据表名称读取,判断,删除,更新
'数据字段--新建,修改,主键,允许为空,长度,外键,索引,字段名列表,判断,属性设置
分享到:
相关推荐
几个vb+access数据库操作实例源代码,供数据库开发的人员参考使用!!!
VB Access数据库创建代码 VB Access数据库创建代码
【程序老媛出品,必属精品,亲测校正,质量保证】 资源名:vb操作ACCESS数据库示例源码 资源类型:程序源代码 源码说明:ACCESS数据库的使用示例,非常适合初学者学习使用 适合人群:新手及有一定经验的开发人员
看到很好的一Vb数据库操作完整代码,可以实现基本的链接,查询和删除等操作,对初学者有很大的帮助
vb6.0 读取access(mdb)数据库的代码,代码很简单,很适合学习vb6.0操作数据库的菜鸟学习
vb access数据库与excel数据互相导入的源代码,很经典的啊
vb与access数据库的操作实例所有VB6.0源代码,有很好的参考价值
读取Access数据库结构(VB6.0源代码编写) 读取Access数据库结构
自己用vb做的向access数据库中添加照片的源代码,经过本人测试,成功运行
VB 远程访问Access数据库源代码,通过Asp vb脚本,远程访问,读写数据库
该程序是用VB连接据库的最简单程序,内含一个access数据库,经常有初学者在查了网上的VB连接access数据库的代码后,自己运行还是不通,我也曾经这样过,为了让初学者避免走万路,特上传了该程序。
VB 动态创建ACCESS数据库
图书管理系统vb+access源代码 在本系统中我们将建立图书管理查询启动封面功能模块,系统总控模块,普通用户登入模块,管理员登入模块,图书查询,修改,添加,更新,删除模块
基于VB动态创建ACCESS数据库源码 新手学习老鸟借鉴
用VB压缩ACCESS数据库的代码 使数据库占用的空间变小!
很不错的vb,access数据库实例.这是一个很实用的仓库管理系统,不要错过.
基于VB的Access数据库存储图片实例代码
VB+access成绩分析统计系统(论文+源代码).rar VB+access成绩分析统计系统(论文+源代码).rar VB+access成绩分析统计系统(论文+源代码).rar VB+access成绩分析统计系统(论文+源代码).rar VB+access成绩分析统计系统...
VB将图片存入Access数据库并实现导入、导出、删除、预览管理操作,并可对存入的图片进行分类管理、分类检索,程序用纯VB代码实现,没有用到任何控件,因此很适合学**用。
Vb 操作微软access数据库 简要说明源代码,入门知识,仅供vb小白参考使用,第一次上传内容,慢慢学习中