根据提供的文件信息,我们可以梳理出以下相关知识点: ### VB.NET 中的数据库连接与数据操作 #### 1. **配置文件中的数据库连接字符串** - 在VB.NET程序中,经常需要从配置文件(如`app.config`或`web.config`)读取数据库连接字符串。 ```vbnet Dim dsn As String = ConfigurationSettings.AppSettings("DataBase") ``` - 这行代码表示从应用程序配置文件中的`AppSettings`节点读取名为“DataBase”的键对应的值,并将其赋值给`dsn`变量。 #### 2. **创建 SqlConnection 对象** - 使用从配置文件中读取到的数据库连接字符串创建`SqlConnection`对象。 ```vbnet Dim MyConn As SqlConnection = New SqlConnection(dsn) ``` #### 3. **页面加载事件处理** - `Page_Load`是ASP.NET页面的一个重要事件处理方法,在页面首次加载和回发时都会被调用。 ```vbnet Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' 如果不是回发,则初始化startIndex为0 If Not (IsPostBack) Then startIndex = 0 End If BindGrid() End Sub ``` - 在这个方法中,首先检查是否为回发请求,如果不是则初始化`startIndex`为0,然后调用`BindGrid`方法来绑定数据。 #### 4. **数据绑定方法** - `BindGrid`方法用于填充数据网格。 ```vbnet Sub BindGrid() Dim MyCommand As SqlDataAdapter = New SqlDataAdapter("SELECT OprID, OprName, AccUnit, IsFull, IsOpen FROM OA_Opr ORDER BY OprID DESC", MyConn) Try Dim DS As DataSet = New DataSet() MyCommand.Fill(DS, "Opr") ShowOprDataGrid.DataSource = DS.Tables("Opr").DefaultView ShowOprDataGrid.DataBind() Catch Exp As SqlException lblMsg.Text = "数据库错误,请联系系统管理员 <a href='Javascript:window.history.go(-1)'>返回上一页</a>" Finally MyConn.Close() End Try End Sub ``` - 创建`SqlDataAdapter`对象,定义SQL查询语句并指定数据库连接。 - 使用`Fill`方法将查询结果填充到`DataSet`对象中。 - 将数据源设置为`DataSet`中的表,并调用`DataBind`方法更新数据网格。 #### 5. **异常处理** - 在`Try...Catch...Finally`结构中,对可能出现的异常进行了捕获和处理。 ```vbnet Catch Exp As SqlException ' 处理数据库异常 lblMsg.Text = "数据库错误,请联系系统管理员 <a href='Javascript:window.history.go(-1)'>返回上一页</a>" Finally MyConn.Close() End Try ``` - 当发生`SqlException`时,显示错误信息并提供返回上一页的链接。 - 最终确保关闭数据库连接。 #### 6. **分页处理** - 提供了分页功能,通过`ChangePage`方法实现。 ```vbnet Sub ChangePage(ByVal Sender As Object, ByVal E As DataGridPageChangedEventArgs) startIndex = E.NewPageIndex * ShowOprDataGrid.PageSize ShowOprDataGrid.CurrentPageIndex = E.NewPageIndex BindGrid() End Sub ``` - 根据新的页码计算开始索引,并更新当前页码,最后重新绑定数据。 这段代码主要涉及了在VB.NET环境下进行数据库操作的基本流程,包括数据库连接、数据查询、数据绑定以及异常处理等核心内容。这对于开发基于数据库的应用程序来说是非常重要的基础知识点。
Dim MyConn As SqlConnection = New SqlConnection(dsn)
Dim startIndex As Integer
'页面初始化
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Not (IsPostBack) Then
startIndex = 0
End If
BindGrid()
End Sub
'绑定控件
Sub BindGrid()
Dim MyCommand As SqlDataAdapter = New SqlDataAdapter("SELECT OprID, OprName, AccUnit, IsFull, IsOpen FROM OA_Opr ORDER BY OprID DESC", MyConn)
'开始试探绑定,如果出错,则会出现友好的提示
Try
Dim DS As DataSet = New DataSet()
MyCommand.Fill(DS, "Opr")
ShowOprDataGrid.DataSource = DS.Tables("Opr").DefaultView
ShowOprDataGrid.DataBind()
Catch Exp As SqlException
'访问数据库出错处理
lblMsg.Text = "对不起!系统在访问数据库时出现错误,请与系统管理员联系。<a href='Javascript:window.history..go(-1)'>点击这里返回到出错前的页面</a>"
Finally
MyConn.Close()
End Try
End Sub
- 粉丝: 0
- 资源: 1
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助