VB.NET中出現(xiàn)如圖所示的警告如何更正，幫忙解決下 謝謝

Private Function getAccessConnection() As OleDbConnection

上蔡網(wǎng)站建設公司創(chuàng)新互聯(lián),上蔡網(wǎng)站設計制作，有大型網(wǎng)站制作公司豐富經(jīng)驗。已為上蔡近1000家提供企業(yè)網(wǎng)站建設服務。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設公司要多少錢，請找那個售后服務好的上蔡做網(wǎng)站的公司定做！

'整體思路應該是：連接數(shù)據(jù)庫－運用適配器運行查詢詞句-將查詢結果填充到數(shù)據(jù)集－以數(shù)據(jù)集為數(shù)據(jù)源，在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,設置數(shù)據(jù)庫的位置。

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 數(shù)據(jù)庫連接失敗 " Chr(13), , "警告")

Exit Sub

End If

DataAdapter.SelectCommand = New OleDbCommand(sqlStr,dbConnection)

'用數(shù)據(jù)適配器進行查詢

Try

DataAdapter.Fill(dataSet,"Table") '將查詢結果填充到數(shù)據(jù)集Dataset,有點像VB中的記錄集recordset

DataGridView.DataSource = dataSet.Tables("Table").DefaultView '將數(shù)據(jù)集的內(nèi)容在表格中顯示出來

Catch Ex As Exception

MsgBox(Err.Description)

Finally

dataSet.Dispose

DataAdapter.Dispose

dbConnection.Close

dbConnection.Dispose

End Try

End Sub

在vb點虐 的編程過程中,產(chǎn)生的錯誤有三種類型,分別是哪三種

vb點虐 的編程過程中有三種錯誤類型分為：

語法錯誤，

運行錯誤，

邏輯錯誤，

三大類情況。

Err在vb的用途

Err 對象的屬性是由錯誤的生成者（Visual Basic、對象或程序員）設置的。

當發(fā)生運行時錯誤時，Err 對象的屬性由唯一地標識錯誤的信息以及可用于處理錯誤的信息填充。若要在代碼中生成運行時錯誤，使用 Raise 方法。

在錯誤處理例程中的 Exit Sub、Exit Function、Exit Property 或 Resume Next 語句執(zhí)行之后，Err 對象的屬性重置為零或零長度字符串 ("")。在錯誤處理例程以外，使用任何形式的 Resume 語句都不會重置 Err 對象的屬性。但可使用 Clear 方法顯式地重置 Err。

使用 Raise 方法而不是 Error 語句來給系統(tǒng)錯誤和類模塊生成運行時錯誤。是否要在其他代碼中使用 Raise 方法決定于您需要返回的信息的多少。

Err 對象是一個全局作用域的內(nèi)部對象。因此，不需要在代碼中創(chuàng)建其實例。

示例

本示例在構建錯誤信息對話框時使用了 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 中）