VB.NET操作本地Access模块函数

最新推荐文章于 2024-04-09 21:53:18 发布

suqin-ordos

最新推荐文章于 2024-04-09 21:53:18 发布

阅读量1.1k

点赞数

分类专栏： VB.NET 数据库SQL和Access 文章标签： vb.net access dataset function string

本文链接：https://blog.csdn.net/liangkaihua/article/details/4207440

版权

VB.NET 同时被 2 个专栏收录

5 篇文章 0 订阅

订阅专栏

数据库SQL和Access

3 篇文章 0 订阅

订阅专栏

    Public Function GetDataSet(ByVal StrSql As String) As DataSet '返回dataset
        Dim DataConnection As OleDb.OleDbConnection
        Dim ConnectStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:/EXAM.mdb"
        Dim DataSet As Data.DataSet
        Dim DataAdapter As Data.Common.DataAdapter
        Dim OleDbDataAdapter As OleDbDataAdapter = New OleDbDataAdapter
        Try
            DataConnection = New OleDbConnection
            DataConnection.ConnectionString = ConnectStr

            DataAdapter = New OleDbDataAdapter(StrSql, DataConnection)
            DataSet = New DataSet
            DataSet.Clear()
            DataAdapter.Fill(DataSet)
            DataConnection.Close()
        Catch
            MsgBox(Err.Description)
        End Try
        If DataSet.Tables(0).Rows.Count > 0 Then
            Return DataSet
        Else
          Return Nothing
        End If
    End Function