vb与数据库实例(vb 实例)
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.0;Data Source=F:\library\1.mdb;Jet OLEDB:Database Password=" strSQL = "SELECT * FROM 数据库中的表" rs.Open strSQL, conn, 3, 3 至此数据库已经链接成功,并且已经加载了记录集,下面你就可以进行数据操作了,注意,在数据库操作完成后,千万别忘记关闭记录集和数据库链接对象: rs.Close conn.Close
VB 数据库实例
用ADO法(要先引用)
连接:
Dim cn As ADODB.Connection
Set cn=New ADODB.Connection '上两句为声明创建ADO变量(下同)
cn.open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=X;" 'X为数据库路径(加文件名)
cn.Close '关闭数据库
Set cn=Nothing ‘释放数据
读取:
Dim rs As ADODB.RecordSet
Set rs=New ADODB.RecordSet
rs.Open "select * from X1", cn,X2,X3 'X1为表名,cn就是上面连接的cn(下同),X2为数据库游标类型,X3为数据库锁方式(读取方式)
Do While Not rs.EOF
XXXXX '读取数据至程序的代码,自编
rs.MoveNext ’移动到下一条记录
Loop
……
……
…… '关闭…,释放…
Set rs=Nothing
Set cn=Nothing
剩下的网上搜,大把
求 vb 连接数据库 的实例
简单代码实现::
%
dim conn '定义变量 conn
Set Conn = Server.CreateObject("ADODB.Connection") '建立连接对象
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Server.MapPath("库的名字.mdb") '打开库
dim rs,sql
set rs=server.CreateObject("adodb.recordset") '建立记录对象
sql="select * from 表的名字"
rs.open sql,conn,3,2 '打开表
rs.addnew
rs("表中数据类型的名字")=request.Form("表单的名字")
rs("表中数据类型的名字")=request.Form("表单的名字")
rs.update
rs.close
set rs=nothing '关闭表
conn.close
set conn=nothing '关闭库
%
蒙狼建站---您互联网的“诚信”合作伙伴!