Private Sub Command1_Click()
Dim AdoCn As ADODB.Connection
Dim AdoRst As ADODB.Recordset
Set AdoCn = New ADODB.Connection
Set AdoRst = New ADODB.RecordsetAdoCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb;Jet OLEDB:Database Persist Security Info=Fals"
AdoCn.Open
AdoRst.CursorLocation = adUseClient
AdoRst.CursorType = adOpenDynamic
AdoRst.LockType = adLockBatchOptimistic
AdoRst.ActiveConnection = AdoCnAdoRst.Open "select * from TestTable"
Debug.Print AdoRst.RecordCountEnd Sub
Dim AdoCn As ADODB.Connection
Dim AdoRst As ADODB.Recordset
Set AdoCn = New ADODB.Connection
Set AdoRst = New ADODB.RecordsetAdoCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb;Jet OLEDB:Database Persist Security Info=Fals"
AdoCn.Open
AdoRst.CursorLocation = adUseClient
AdoRst.CursorType = adOpenDynamic
AdoRst.LockType = adLockBatchOptimistic
AdoRst.ActiveConnection = AdoCnAdoRst.Open "select * from TestTable"
Debug.Print AdoRst.RecordCountEnd Sub
解决方案 »
- 怎样能隐藏XP系统下自己的程序?
- VB中如何将图片保存到SQLSERVER数据库中?解决后立刻结帖
- 关于Treeview展开指定节点的问题!分不够可以在加呀!
- 高分求一简单文件操作办法!
- 跳楼分: ActiveReports Pro 内如何用脚本实现这样的一个简单功能?
- 从什么地方可以下载到VB的帮助文件MSDN
- 谁看过王国荣VB6 API编程这本书,里面关于设置字体部分有问题请教大侠,很急
- 用水晶报表9做报表,程序用installshield打包后,在自己的电脑可以打开报表。在另外的机器打开出错?
- 求救——将屏幕保存为JPG格式文件
- 用VB6的打包工具做安装程序如何在安装完毕在桌面上建立一个快捷方式
- 哪里有透明的Textbox控件?
- 还是到这里问问吧:用VB开发的IIS工程在WIN NT里可以被访问,在WIN2K里为什么不可以被访问呢?
Provider=AdsDSOObject;Password="",Encrypt Password=False;Data Source=Book1.xls;Location=c:\temp\;Mode=ReadWrite;Bind Flags=0;ADSI Flag=-2147483648