用VB创建Access表格

原创 2011年09月06日 14:10:47

'用VB创建Access表格:

'如果程序比较复杂,可添加引用:Microsoft Asctivex Data Objects 2.5 LibraryPrivate

 Private Sub Command1_Click()
    On Error Resume Next
    db = "d:\aa.mdb"
    If Dir(db) = "" Then CreateObject("ADOX.Catalog").Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
    If Dir(db) = "" Or Err <> 0 Then If MsgBox("数据库创建失败!", 48) <> vbYes Then Exit Sub
    Set con = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
    Set rs.ActiveConnection = con
    rs.open "create table aaa (aa char(2),bb date,cc int)"
    rs.open "insert into aaa (aa,bb,cc) values ('aa',#" & Now & "#,11)"
    rs.open "select * from aaa"
    If Not rs.EOF Then
        For i = 0 To rs.fields.Count - 1
            Print "字段名:"; rs.fields(i).Name, "字段值:"; rs.fields(i)
        Next
    End If
    rs.Close
End Sub

 

版权声明:

相关文章推荐

VB.NET 使用 OleDb 操作 Access 数据库(来自 MSDN)

VB.NET 使用 OleDb 操作 Access 数据库 这里采用 OleDb 方式对 Access 数据库进行访问,主要内容都来自 MSDN 帮助文档。建议新手注意 MSDN 的用途。 首先导入命...

vb.net 操作Access数据库帮助类

VB.net 操作Access数据库的一些常用方法,代码如下 Imports System Imports System.Data.SqlClient Imports System.Config...

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

在VB中,连接ACCESS数据库的方法主要有下面三种      使用ADO对象,通过编写代码访问数据库             ...

vb.net 操作Access数据库帮助类

VB.net 操作Access数据库的一些常用方法,代码如下:Imports System Imports System.Data.SqlClient Imports System.Configura...

vb.net压缩access文件(.accdb)

vb.net压缩access文件(.accdb) 由于access文件(.accdb)会记录操作,所以即使执行了delete数据的处理,该文件的大小还是会不断增加. 解决思路:将原有的acce...

VB操作access数据库

第一次用VB来连接数据库,由于不了解VB语法,费了

vb 与 .accdb 格式的access数据库的连接方法

在用vb连接access数据库时,出现了这样的错误: 这是你的数据库格式不被 程序识别。vb默认的一般是.,mdb  access数据库格式!这时我们看一下我们要连接的 是.accdb 格式的...

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

在VB中,连接ACCESS数据库的方法主要有下面三种      使用ADO对象,通过编写代码访问数据库            ...

VB6.0 对ACCESS的控制总结——无需控件版(建库,删库,建表,删表,增加行,删除行)

'前言: VB6.0对数据库的操作方法很多,对于初学者来说也比较乱.用控件操作数据库是很简洁的,但相对的局限性也变大了.总结了相对简介而使用的几个功能希望大家喜欢. '引用"Microsof...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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