新建一个ACCESS数据库
来源:互联网 发布:js 小数取整四舍五入 编辑:程序博客网 时间:2024/05/16 15:03
1、新建一个ACCESS数据库,2003版本。
2、创建一个姓名表,加一个姓名字段,文本型。
3、在姓名表中加六条记录,张三、李四、王五、赵六、钱七、孙八
==========================================
'首先,工具->引用->选中Microsoft ActiveX Data Objects 2.X Library
'必须选中,否则下面代码不会起作用!(以下链接数据库之方式,不需要使用ADODB控件,仅需代码即可)
Public Conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public Cnt As Integer '这个Cnt是用来表示数据库数据总量的,对链接过程无关
'连接数据库的代码段
Conn.CursorLocation = adUseClient '以Conn为链接名建立链接,这里是设置数据游标(客户端数据游标),即设定读取数据库数据之方式(一行一行地读)
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "/test.mdb"
'自己改动一下上面的路径和文件名即可,其他的代码你不理解照粘贴无妨
If Rs.State <> adStateClosed Then Rs.Close
Rs.Open "SELECT 铺名, 上月读数, 本月读数, 实用度数, 铺位数, 首层面积, 非经营层面积, 欠费明细, 欠费金额 FROM data WHERE 首层面积 is not null and 非经营层面积 is not null;", Conn, adOpenKeyset, adLockPessimistic
Cnt = Rs.RecordCount
'关闭数据库链接(一般放到子过程结束处,关闭数据库链接)
Rs.Close
Conn.Close
Set Rs = Nothing
Set Conn = Nothing
'添加、修改、删除、更新数据(都以Conn.Execute后带SQL语句来实现对数据库的查询操作)
'Conn.Execute "update data set 上月读数 = 本月读数"
’Rs.MoveNext '数据游标转到数据库下一行
'实例:
For i = 1 To Cnt
DoEvents
Conn.Execute "insert into data (ID,铺名,上月读数,本月读数,实用度数,铺位数) values(" & Rs("ID") & ",'" & Rs("铺名") & "'," & Rs("上月读数") & "," & Rs("本月读数") & "," & Rs("实用度数") & "," & Rs("铺位数") & ")"
Rs.MoveNext
Next
==============================================
在工程中引用 Microsoft ActiveX Data Objects 2.x Library
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:/pc.mdb"
Set conn = New ADODB.Connection
conn.Open connstr
Set rs = New ADODB.Recordset
''''''''''''
' rs.Open "SELECT * FROM 我的表格名 WHERE 我选定的字段=" & 值, conn, 3, 3
' 以可写方式打开 表里 我选定的字段 = 值 的那个记录
' rs ("name")就是那个记录 在 name字段的内容
' 对此赋值后,要rs.update才能生效
''''''''
''''''''''''
' rs.Open "SELECT * FROM 我的表格名", conn, 3, 3
' 以可写方式打开 表里 第一个记录
' rs.movenext 可以移动到下一个记录
' rs ("name")就是那个记录 在 name字段的内容
' 对此赋值后,要rs.update才能生效
''''''''
==============================
'窗体中的代码
Option Explicit
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
Dim strSQL As String
strSQL = "select * from TabName"
rs.Open strSQL, cn, adOpenStatic, adLockReadOnly, adCmdText
If rs.RecordCount > 0 Then
MsgBox "test1"
End If
rs.Close
Set rs = Nothing
End Sub
'模块
Option Explicit
Public cn As New ADODB.Connection
Public Sub GetCn()
Dim iConcstr As String
iConcstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/data.mdb;Persist Security Info=False;Jet OLEDB:DataBase Password='123456789987654321'"
cn.Open iConcstr
End Sub
=====================================================
- 新建一个ACCESS数据库
- 在数据库中新建一个用户
- 一个困惑的Access数据库问题.
- 一个好的Access底层数据库类
- 一个Access数据库数据访问公共类
- 一个access数据库的日期提醒代码
- 如何上传一个文件到Access数据库
- 如何用ACCESS制作一个数据库?
- 更新一个Access数据库到PDM模型
- sql access 一个access数据库的表复制到另一个access数据库
- aix环境下为oracle数据库新建一个数据库
- 如何在MYSQL数据库中新建一个数据库
- 新建数据库
- 数据库新建
- 一个将Access数据库转成Mssql数据库的简单工具
- 服务器端新建一个数据库,我要怎么使用?
- 直接在myeclipse里写代码新建一个数据库
- 手工创建数据库(新建一个实例,在同一个数据库上跑两个实例)
- hibernate 为什么可以发出insert语句,却不能完全保存到数据库呢?
- Fckeditor添加导入Word文档功能(已测试通过
- 最后一堂语文课的笔记
- 百度算法调整
- ASP.NET 2.0防止同一用户同时登
- 新建一个ACCESS数据库
- windows.open()参数列表
- java instrument 初探
- const 位置与指针的关系
- 传智播客--Hibernate基础
- max7219
- 实时监听js改变value,跨浏览器支持
- 装Win7吧,免得不多久又要换系统了,Win7漂亮又好用
- IE和Firefox在css,JavaScript方面的兼容性