asp.net，access数据库连接实例

来源：互联网发布：淘宝怎么解绑手机号编辑：程序博客网时间：2024/04/30 07:10

请建立一个access数据库，名为ddlDB.mdb，表名为Departments，
字段deptid属性为连续编号字段2名为DeptName 属性为文本
<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OLEDB" %>
<script runat=server>
'顶部的第一行，设置该页面的默认语言为vb , Debug=true是打开调试功能，如果你要正式发布这个程序，那么就不要用这句，因为这样会影响速度
'第二、三行是用来导入两个命名空间，
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) '//页面调入的过程
If Not IsPostBack Then '//判断页面是不是第一次调入，如果是，就执行下面这些。。
Dim DBConn as OleDbConnection '//定义一个连接
Dim DBCommand As OleDbDataAdapter '//定义一个DATA Adapter 来从这个数据库中获取数据
Dim DSPageData as New DataSet '//定义一个用来存储所获取数据的DataSet(数据集)对象
DBConn = New OleDbConnection( _
"PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("ddlDB.mdb;")) '//连接数据库，这里使用Server.MapPath方法将返回到WEB当前目录的物理路径，
DBCommand = New OleDbDataAdapter _
("Select DeptID, DeptName " _
& "From Departments " _
& "Order By DeptName", DBConn) '//从连接的数据库中获取每个部门的名称和id值
DBCommand.Fill(DSPageData, _
"Departments") '//将所获取的数据存放在DataSet对象中
ddlDepartments.DataSource = _
DSPageData.Tables("Departments").DefaultView '//在DataSet对象中指出本也面上的这个DropDownlist控件将使用这些数据
ddlDepartments.DataBind() '//将DropDownList控件绑定到这些数据上
End If
End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs) '//按纽按下的过程,设置label显示的内容
lblDataSelected.Text = "Selected Text: " _
& ddlDepartments.SelectedItem.Text _
& "<BR>Selected Value: " _
& ddlDepartments.SelectedItem.Value _
& "<BR>Selected Index: " _
& ddlDepartments.SelectedIndex '//使用SelectedIndex属性让这个DropDownList控件默认选择，为提交时我们所选的值
End Sub
</SCRIPT>
<HTML>
<HEAD
<TITLE>Binding Database Data to a DropDownList Control</TITLE>
</HEAD>
<Body LEFTMARGIN="40">
<form runat="server">
<BR><BR>
<asp:label
id="lblDataSelected"
runat="server"
/>
<BR><BR>
<asp:dropdownlist
id="ddlDepart