1,502
社区成员
发帖
与我相关
我的任务
分享请教呵呵用了vb很多年了可这个方面偷一次用 ,如何用vb把数据在xml里输出啊
请教呵呵用了vb很多年了可这个方面偷一次用 ,如何用vb把数据在xml里输出啊
...全文
请发表友善的回复…
发表回复
zxh2600 2004-05-09
- 打赏
- 举报
现在改成xml格式的字符串了请教如何解决,
itcoco 2004-05-07
- 打赏
- 举报
我是把数据以字符串的形式按xml格式写成一个字符串 然后使用
zero16 2004-05-07
- 打赏
- 举报
上这看看吧
http://www.12Yeah.com/default2.htm?user=abcd
http://www.12Yeah.com/default2.htm?user=abcd
online 2004-05-06
- 打赏
- 举报
Dim cn As New ADODB.Connection
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 Sub
Private 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
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 Sub
Private 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
