vb.net連接ACCESS数据库

最新推荐文章于 2018-07-08 15:30:01 发布

weixin_30900589

最新推荐文章于 2018-07-08 15:30:01 发布

阅读量168

点赞数

文章标签：数据库

原文链接：http://www.cnblogs.com/leme-chen/p/9266942.html

版权

'導入命名空間
Imports System.Data.OleDb

'定義變量
Dim Sql As String
'OleDb連線
Dim SqlAC As OleDbConnection
Dim CmdAC As OleDbCommand
Dim drAC As OleDbDataReader

'打开OleDb連線
Public Sub OpenAC()
SqlAC = New OleDbConnection(" Provider = Microsoft.Jet.OLEDB.4.0;Data Source = DISK.mdb ")
If SqlAC.State = ConnectionState.Closed Then
SqlAC.Open()
End If
CmdAC = New OleDbCommand(Sql, SqlAC)
drAC = CmdAC.ExecuteReader()
End Sub

'关闭OleDb連線
Public Sub CloseAC()
drAC.Close()
If SqlAC.State = ConnectionState.Open Then
SqlAC.Close()
End If
End Sub

Private Sub A1()
Sql = ("SELECT A1 FROM T8 ")
OpenAC()
drAC.Read()
TextBox1.Text = drAC.Item(0)
CloseAC()
End Sub

转载于:https://www.cnblogs.com/leme-chen/p/9266942.html