vb连接ACCESS数据库实例

对于没有VB运行库的机器，必须注册VB运行库，程序中的代码不需要改动。 ----------------------------------- 链接数据库的方法比较多，看你采用什么方法链接了，： 1、用ADO链接；2、用Data数据控件链接；3、用ADODB数据控件链接；还有数据库文件是Access 1997?Access 2000?Access 2003?有没有加密？等等等等问题，首先确定这些问题，才能..... 下面给你一个用ADO的代码链接的实例：（ACCESS 2003) 首先在工程中点击【工程】-【引用】，在打开的对话框选择Microsoft AxtiveX Data Objects 2.8 Library 勾选，然后定义二个对象： Dim conn As New ADODB.Connection, rs As New ADODB.Recordset 其中conn是数据库链接对象，rs是数据记录集对象 那么，下面就是利用SQL语句链接数据库了： conn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source=F:\library\1.mdbJet OLEDB:Database Password=" strSQL = "SELECT * FROM 数据库中的表" rs.Open strSQL, conn, 3, 3 至此数据库已经链接成功，并且已经加载了记录集，下面你就可以进行数据 *** 作了，注意，在数据库 *** 作完成后，千万别忘记关闭记录集和数据库链接对象： rs.Close conn.Close

先数据写入ACCESS数据库（写说）打access

点工具 实用数据库工具 转换数据库 转换access 97 文件格式保存

退

进入vb窗体加入data控件MSFlexGrid控件（工具栏右键 部件 控件窗口选择microsoft MSFlexGrid Control6.0 （sp6）确定）单击DATA控件（窗体）属性窗口设置DATAbaseName编写数据库路径connectaccess access 2000accordsource选择数据库表名

再单击MSFlexGrid控件属性窗口设置datasourcedata1.

完 *** 作数据库读vb

实要写点代码用MS控件显示用text显示加代码：

Private Sub Data1_Validate(Action As Integer, Save As Integer)

If Not Data1.Recordset.BOF And Not Data1.Recordset.EOF Then

Data1.Recordset.MoveNext

Else

Data1.Recordset.MoveLast

End If

End Sub

'首先，工具->引用->选中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.0Persist Security Info=FalseData 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

---