大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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点虐 的编程过程中有三种错误类型分为:
语法错误,
运行错误,
逻辑错误,
三大类情况。
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 中)