用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

 

VB6编程创建Access数据库

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

动态创建ACCESS数据库及其表结构

1.动态创建表结构,引入com中的二个动态库,一个是ADOX,一个是ADODB二个dll,ADOX.dll和Interop.ADODB.dll 2.增加wfm中的按钮,按钮事件如下: 其中的m_p...
  • vbloveshllm
  • vbloveshllm
  • 2014年03月19日 10:34
  • 1784

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

在写这篇文章之前心里不免有点自卑,因为VB已经快被微软淘汰了,可是由于工作的关系还在一直使用它。毕竟它真的很容易上手,可是如果再靠它去找工作估计很难了。呵呵,废话少说,只要还有人用它就表示它还没过时。...
  • doublecells
  • doublecells
  • 2007年02月27日 14:16
  • 16154

请问如何在vb下用ado连接access数据库

  • anyboy
  • anyboy
  • 2006年04月28日 21:26
  • 745

用VB创建复杂表格

  用VB创建复杂表格 ---- 数据库管理系统的开发人员经常感叹的一个问题就是:我们中国人的报表太复杂了!无规则、嵌套、斜线、交叉线等历来都是困挠开发人员的最大问题。设计一个数据库固然有一定的技巧,...
  • mostxx
  • mostxx
  • 2008年12月31日 11:22
  • 716

VB查询ACCESS数据库内容

Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim cmd As New ADODB.Command Priv...
  • qq_24304137
  • qq_24304137
  • 2015年08月12日 10:11
  • 2003

C#创建Access数据库、表格、并向表格中添加数据

C#创建Access数据库以及表,并向表格添加数据本文主要演示如何通过C#创建Access数据库以及表格,并向表格中添加列。...
  • rl529014
  • rl529014
  • 2017年12月02日 13:48
  • 389

VB创建SQL SERVER 库和表结构

用VB生成SQL SERVER 的库与表Public Sub fShengC_DB_4()Dim cnn As New ADODB.Connection 定义新的连接Dim rs As New ADO...
  • changleqy
  • changleqy
  • 2007年08月13日 11:54
  • 2128

C++ 创建ACCESS数据库的两种方式

一、 使用msadox.dll创建,不可引用#include HRESULT hr = S_OK; // 创建.MDB文件 命名为test //Set ActiveConnection ...
  • u010803748
  • u010803748
  • 2016年12月08日 14:58
  • 1347

vb怎样访问网络服务器的access数据库

=============================自定义常量========================================Private Const RESOURCETYPE...
  • a97191
  • a97191
  • 2004年12月30日 09:18
  • 2237
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用VB创建Access表格
举报原因:
原因补充:

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