'導入命名空間
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

最新文章

1. Mysql Innodb 间隙锁浅析
2. eclipse maven spring mvc el表达式无效
3. javascript中的原始值和复杂值
4. 关于Mysql错误:./bin/mysqld_safe --user=mysql& [1] 32710 121003 16:40:22 mysqld_safe Logging to '/var/log/mysqld.log'. 121003 16:40:22 mysqld_s
5. mysql 存储过程简介
6. 弹窗插件layer
7. XenCenter删除SR失败解决方法
8. Redis3.0 Install
9. 随着visual studio 2013 发布.带来的一些变化
10. Delphi 的各种错误信息（中英文）
11. iOS控制器的创建方式
12. mongoose的populate的使用方法；
13. Ubuntu 当黑屏解决方案安装
14. zoj3710 friends（floyd变形）
15. http2.4简单配置
16. 20181125第二章节总结part3
17. 【面试题】java中高以上必会技能
18. Mac下常用工具
19. Jenkins 快速搭建
20. hive 1.2 配置

热门文章

1. maven-java包管理工具-01
2. UWP 2018 新版 NavigationView 尝鲜
3. SQL注入之PHP-MySQL实现手工注入-字符型
4. JS关闭窗口或JS关闭页面的几种代码！
5. Windows Phone开发手记－WinRT下分组拼音的实现
6. webstorm无法显示左边文件夹目录的解决方法
7. 机器人之路的第一小步：录音+语音识别(语音转文字)，大小600K(免费下载)！
8. (转)pathlib路径库使用详解
9. TDD并不是看上去的那么美
10. spring-boot-starter-actuator