189 8069 5689
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, "提示 "
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 对象的属性是由错误的生成者（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 中）
额，，，
那还是不要用这种方式打开EXCEL比较好。
建议还是用EXCEL对象的好。