VB访问数据库（sql sever2000)的实例

1.先在工程---引用里面在可引用的引用中找到microsoft activex data objects 2.8 library和microsoft activex data objects recordset 2.8 library,将其勾选，为写代码做准备

2，在窗体上放一个combo1和command1

3，代码

Private Sub Command1_Click()

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

conn.Open "Driver={SQL Server}SERVER=数据库机器ipDATABASE=studentUID=saPWD="

sql = "select sno from std where sn='1111'"

rs.Open sql, conn, 3, 1

While Not rs.EOF

Combo1.AddItem rs("sno")

rs.MoveNext

Wend

Set conn = Nothing

Set rs = Nothing

End Sub

如果你的

数据库文件

在你的程序的根目录中，在打包时选择文件时选择数据库文件即可，这样在安装时，数据库文件会自动安装在安装目录。

如果数据库文件不是在你的程序目录的根目录，不可以在打包文件中加载，因为这样数据库链接路径不同，安装后不能链接数据库。只能在安装后将数据库目录拷贝到相应的目录中。

简单代码实现：：

<%

dim conn '定义变量 conn

Set Conn = Server.CreateObject("ADODB.Connection") '建立连接对象

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data 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 '关闭库

%>

蒙狼建站---您互联网的“诚信”合作伙伴！

---