在.Net中利用ADO.Net进行数据库的连接

果装入到DataSet中

       Dim ds As New DataSet

       da.Fill(ds, "查询结果")

 

       '断开数据库的连接

       conn.Close()

 

       '返回查询结果（查询结果记录集）

       Return ds.Tables("查询结果")

 

   End Function

 

End Class

 

1)  查询操作

 

Imports System

Imports System.Data

Imports System.Data.OleDb

 

''' <summary>

''' 数据库的更新操作

''' </summary>

''' <remarks></remarks>

 

Public Class BookcmbSelect

 

   Public Function bookreadsome(ByVal strSQL As String) As DataTable

 

       '数据库的连接

       '连接字符串

       '封装SQL命令

       '把封装后的Command对象装入到DataAdapter对象中

       '执行SQL命令并把查询结果装入到DataSet中

       '断开数据库连接

       '返回查询结果（查询结果记录集）

 

       '数据库的连接

       Dim conn As New OleDbConnection

 

       '连接字符串

       conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;DataSource=C:\Users\Administrator\Desktop\BookApp1\BookManager.accdb"

       conn.Open()

 

       '封装SQL命令

       Dim cmd As New OleDbCommand

       cmd.Connection = conn

       cmd.CommandText = strSQL

 

       '把封装后的Command对象装入到DataAdapter对象中

       Dim da As New OleDbDataAdapter

       da.SelectCommand = cmd

 

       '执行SQL命令并把查询结果装入到DataSet中

       Dim ds As New DataSet

       da.Fill(ds, "图书编号查询结果")

       'For i = 0 To ds.Tables.Count - 1

       '   cmbtiaojian.items.add(ds.Tables(0).Rows(i).ToString)

       'Next i

 

       '断开数据库连接

       conn.Close()

 

       '返回查询结果（查询结果记录集）

       Return ds.Tables("图书编号查询结果")

 

   End Function

 

End Class