VB.NET中出现如图所示的警告如何更正，帮忙解决下 谢谢

Private Function getAccessConnection() As OleDbConnection

上蔡网站建设公司创新互联,上蔡网站设计制作，有大型网站制作公司丰富经验。已为上蔡近1000家提供企业网站建设服务。企业网站搭建\成都外贸网站建设公司要多少钱，请找那个售后服务好的上蔡做网站的公司定做！

'整体思路应该是：连接数据库－运用适配器运行查询词句-将查询结果填充到数据集－以数据集为数据源，在DataGrid中显示。

Dim dbConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;

Data Source=|DataDirectory|\Resources\mag.mdb;Persist Security Info=true"

'连接字符串，Provider,连接引擎，可以死记，OLEDB就用这处，Data Source,设置数据库的位置。

Dim dbConnection As OleDbConnection = New OleDbConnection(dbConnectionString)

Try

dbConnection.Open()

Catch Ex As Exception

’MsgBox(Err.Description)

End Try

Return dbConnection

End Function

private Sub fillDataGridView()

Dim sqlStr As String = "select * from Table"

Dim DataAdapter As New OleDbDataAdapter

Dim dataSet As New DataSet

Dim DataGridView As New DataGridView

Dim dbConnection As OleDbConnection = getAccessConnection()

If dbConnection.State.ToString = "Closed" Then

MsgBox(Chr(13) " access 数据库连接失败 " Chr(13), , "警告")

Exit Sub

End If

DataAdapter.SelectCommand = New OleDbCommand(sqlStr,dbConnection)

'用数据适配器进行查询

Try

DataAdapter.Fill(dataSet,"Table") '将查询结果填充到数据集Dataset,有点像VB中的记录集recordset

DataGridView.DataSource = dataSet.Tables("Table").DefaultView '将数据集的内容在表格中显示出来

Catch Ex As Exception

MsgBox(Err.Description)

Finally

dataSet.Dispose

DataAdapter.Dispose

dbConnection.Close

dbConnection.Dispose

End Try

End Sub

在vb点虐 的编程过程中,产生的错误有三种类型,分别是哪三种

vb点虐 的编程过程中有三种错误类型分为：

语法错误，

运行错误，

逻辑错误，

三大类情况。

Err在vb的用途

Err 对象的属性是由错误的生成者（Visual Basic、对象或程序员）设置的。

当发生运行时错误时，Err 对象的属性由唯一地标识错误的信息以及可用于处理错误的信息填充。若要在代码中生成运行时错误，使用 Raise 方法。

在错误处理例程中的 Exit Sub、Exit Function、Exit Property 或 Resume Next 语句执行之后，Err 对象的属性重置为零或零长度字符串 ("")。在错误处理例程以外，使用任何形式的 Resume 语句都不会重置 Err 对象的属性。但可使用 Clear 方法显式地重置 Err。

使用 Raise 方法而不是 Error 语句来给系统错误和类模块生成运行时错误。是否要在其他代码中使用 Raise 方法决定于您需要返回的信息的多少。

Err 对象是一个全局作用域的内部对象。因此，不需要在代码中创建其实例。

示例

本示例在构建错误信息对话框时使用了 Err 对象的属性。请注意，如果首先使用 Clear 方法，则使用 Raise 方法生成 Visual Basic 错误时，Visual Basic 的默认值将成为 Err 对象的属性。

Dim Msg As String

' If an error occurs, construct an error message.

On Error Resume Next ' Defer error handling.

Err.Clear

Err.Raise(6) ' Generate an "Overflow" error.

' Check for error, then show message.

If Err.Number 0 Then

Msg = "Error # " Str(Err.Number) " was generated by " _

Err.Source ControlChars.CrLf Err.Description

MsgBox(Msg, MsgBoxStyle.Information, "Error")

End If

命名空间：Microsoft.VisualBasic

程序集：Microsoft Visual Basic .NET 运行库（位于 Microsoft.VisualBasic.dll 中）

名称栏目：包含vb点虐 err的词条
浏览路径：http://pwwzsj.com/article/ddijisj.html