vb 中err的问题

On Error GoTo errorhandler

创新互联是一家专业提供铁西企业网站建设,专注与做网站、成都网站建设、HTML5、小程序制作等业务。10年已为铁西众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。

Dim sR As String, sPath As String

Set fld = fso.GetFolder(dirSource.Path)

sR = InputBox("请输入新建文件夹的名称：", "输入对话框", "aaa")

If Len(Trim(sR)) 0 Then

sPath = IIf(Right(fld.Path, 1) = "\", fld.Path sR, fld.Path "\" sR)

Set fld = fso.CreateFolder(sPath)

Command1.Enabled = True

End If

Call RefDirControl

filename = fld.Path

exit sub ‘少了这句

errorhandler:

MsgBox Err.Description, vbOKOnly, "提示 "

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

Private Function getAccessConnection() As OleDbConnection

'整体思路应该是：连接数据库－运用适配器运行查询词句-将查询结果填充到数据集－以数据集为数据源，在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

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点虐 打开Excel字符串连接出错,无效操作,连接被关闭...急！！！

额，，，

那还是不要用这种方式打开EXCEL比较好。

建议还是用EXCEL对象的好。

文章名称：vb点虐 err的简单介绍
分享网址：http://kswjz.com/article/ddjhseg.html