recordset 动态创建及同数据库断开连接使用是否可以?
解决方案 »
- 在线高分求教一个关于排列组合的问题
- 新手问一个数据库的问题,还请大家帮帮忙.
- filelistbox使用问题
- 如何在MDIForm窗体中正常使用背景图像?
- 怎样在webbrowers中设置代理及清cookies????(急,急,急...)
- 问如何将现有连接到access的数据库改到连接到sql数据库,
- 那里有现成的VBScript的解释执行器?(对则100奉上)
- 关于通用工资系统?有人能帮忙吗?重谢!(我这儿有N多分啊)
- source safe,只能保留一个版本么?
- 为什么我在VB中使用ADO打开.dbf数据库并一条一条追加到SQL Server数据库(服务器上),544条记录竟用了8分钟?
- 怎样通过vb代码取得access2000数据库文件中所有表的名称,创建时间,修改时间和说明
- 请问如何用VB6开发可以发送与接收邮件的DLL
提取数据
断开 连接
操纵
recordset
相当于离线记录集可以保存成xml文件
相当于离线记录集可以保存成xml文件
//
倒,你以为这是ADO。NET啊
NET才是保存XML,关是VB开发这要增加多少麻烦
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
rs.CursorLocation = adUseClient
rs.Open "Select * from students", cn, adOpenStatic, adLockBatchOptimistic
MsgBox rs.RecordCount
'保存为XML
rs.Save "c:\bbb.xml", adPersistXML
rs.Close
'读取XML文件
rs.Open "c:\bbb.xml", cn, adOpenStatic, adLockReadOnly, adCmdFile
MsgBox rs.RecordCount
rs.Close
End SubPrivate Sub Form_Load()
If cn.State = 1 Then
cn.Close
End If
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\db1.mdb"
End Sub
rs.open "select * from table"
rs.activeconnection=nothing '关闭连接'使用rs
............
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
rs.CursorLocation = adUseClient
rs.Open "Select * from 表", cn, adOpenStatic, adLockBatchOptimistic
Dim XmlObject as msxml.DOMDocument
Set XmlObject =New msxml.DOMDocument rs.Save XmlObject , adPersistXML '保存为XML Set Rs=Nothing '读取XML
Set rs=New Adodb.Recordset
rs.open XmlObject End Sub特点是不保存到文件,把数据保存到XML对像
记录集打开参数使用
CursorType adOpenStatic
LockType adLockBatchOptimisticstr ="SELECT * FROM 表1 where 1=2" '如果不需要修改数据,只需得到空的记录集
rssave.Open str, conn, adOpenStatic, adLockBatchOptimistic
打开记录集后,将ActiveConnection属性设为Nothing,断开与数据库的连接然后循环添加记录
添加完成后rssave.ActiveConnection=strconn'先重新连接数据库
rssave.UpdateBatch'把本地记录集缓存中的数据更新到数据库