Dim rs As New ADODB.RecordsetDim cn As New ADODB.Connection
Dim strsql As String
strsql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\library.mdb;Persist Security Info=False"
cn.Open strsqlrs.Open "select BorrowInfo.* from BorrowInfo where(BorrowInfo.BookNumber='001"')", cn, adOpenKeyset, adLockOptimistic, adCmdText通过这个,为什么就无需在窗体上添加ADO控件即可访问数据库
如果在同一个窗口还需要打开另一张表,是不是要先用rs.close关闭原来打开的表
rs的其他方法都有些什么?我这边msdn的盘坏了,没法装,还请各位不吝赐教
Dim strsql As String
strsql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\library.mdb;Persist Security Info=False"
cn.Open strsqlrs.Open "select BorrowInfo.* from BorrowInfo where(BorrowInfo.BookNumber='001"')", cn, adOpenKeyset, adLockOptimistic, adCmdText通过这个,为什么就无需在窗体上添加ADO控件即可访问数据库
如果在同一个窗口还需要打开另一张表,是不是要先用rs.close关闭原来打开的表
rs的其他方法都有些什么?我这边msdn的盘坏了,没法装,还请各位不吝赐教
解决方案 »
- printer对象如何设置上边距和下边距?请高手指点一二
- If n Mod 3 <> 0 Then m = m + n \ 3,M的值是多少?
- 关于将数据表中数据导出到Excel中,控制字段名的问题(3个问题)
- 刚刚多了一个三角。。散分庆祝。。
- 求助:哪位有vb4.0啊?可以给我一个吗?
- 控件项目中的模块中如何引用父控件中的内容
- 简单问题~~~~帮忙啊~~~~
- 请教ini文件中,我用GetPrivateProfileString得到了s,但和相同的变量做比较,出现false
- 我毕业设计要做一个集邮软件,想问一下用什么控件比较好?
- 画平面图小程序的讨论。欢迎进入
- 套打发票时,发票高度为什么总是不能按预期的高度走纸,越来越套不上了!
- 套打发票时,发票高度为什么总是不能按预期的高度走纸,越来越套不上了!急急急!
recordset在一个连接中可以有多个,所以,不必关闭原来的recordset,可以新建一个。
recordset的方法,你可以在代码编辑窗口中,键入"recordset.",在输入完“.”时,稍停一会,画面上会自动显示出可用的属性、方法。
我手头没有msdn可以查,所以请有资料的给我贴一点,谢谢了
刚才跑到msdn网站,看了半天也没看出个所以然to 楼上的,recordset在一个连接中可以有多个,所以,不必关闭原来的recordset,可以新建一个。
是不是说
rs.Open "select BorrowInfo.* from BorrowInfo where(BorrowInfo.BookNumber='001"')", cn, adOpenKeyset, adLockOptimistic, adCmdText
后我还能rs.open查询另一个表,而不用rs.close?
不过我在程序里好像不行
我就new了两个recordset rs1 rs2来分别操作同一个数据库中的两张表
Rs.CursorLocation = adUseClient
建议不要打开过多的记录集,最好在操作完一个表后,马上关闭,避免逻辑错误!!