VB操作ACCESS数据库代码

原创 2006年06月20日 14:55:00

'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数据库

  • 2010年04月02日 15:46
  • 104KB
  • 下载

详解VB中连接access数据库的几种方法

在VB中,连接ACCESS数据库的方法主要有下面三种      使用ADO对象,通过编写代码访问数据库                       Connection 对象...
  • GarfieldEr007
  • GarfieldEr007
  • 2017年03月26日 22:21
  • 1001

vb与access数据库的操作实例所有VB6.0源代码,有很好的参考价值

  • 2009年05月29日 10:54
  • 6.17MB
  • 下载

vb.net操作access数据库实例

  • 2009年08月05日 16:39
  • 116KB
  • 下载

详解VB中连接access数据库的几种方法

在VB中,连接ACCESS数据库的方法主要有下面三种      使用ADO对象,通过编写代码访问数据库                       Connection 对象 ...
  • lishuangzhe7047
  • lishuangzhe7047
  • 2012年08月07日 10:40
  • 83500

VB6编程创建Access数据库

我学习VB编程时,常常喜欢使用数据库。在我的VB处女作之《学五笔多媒体教学系统4.00》中使用的数据库,但那时我还不会让程序自动创建数据库,是事先创建好,供VB程序调用的。后来在我写的《股票管理大师》...
  • htsoft
  • htsoft
  • 2011年07月06日 09:32
  • 1498

VB压缩/修复Access数据库操作源代码

在Access数据库操作时经常数据库经常会由于操作频繁而出现各种问题.以及数据库无限的增大.为了不影响使用我们需要对数据库进行压缩/修复.以下代码就是用VB压缩并且修复Access数据库德 代码.大家...
  • cncco
  • cncco
  • 2007年09月27日 18:36
  • 3057

VB操作ACCESS数据库实例

  • 2008年10月15日 23:49
  • 12KB
  • 下载

[VisualStudio] 用VB动态创建Access数据库简例

在写这篇文章之前心里不免有点自卑,因为VB已经快被微软淘汰了,可是由于工作的关系还在一直使用它。毕竟它真的很容易上手,可是如果再靠它去找工作估计很难了。呵呵,废话少说,只要还有人用它就表示它还没过时。...
  • doublecells
  • doublecells
  • 2007年02月27日 14:16
  • 16154
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB操作ACCESS数据库代码
举报原因:
原因补充:

(最多只允许输入30个字)