数据集生成XML文件 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Private Sub Command1_Click() rs.CursorLocation = adUseClient rs.Open "Select * from zone", 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 Set DataGrid1.DataSource = rs DataGrid1.Refresh rs.Close Set rs = Nothing End SubPrivate Sub Form_Load() If cn.State = 1 Then cn.Close End If Set cn = New ADODB.Connection '打开数据库 sql = "Provider=SQLOLEDB.1;User ID=sa;password=;Initial Catalog=evaluate;Data Source=(local)" cn.ConnectionTimeout = 10 cn.Open sql
要使VB中使用xml文件需要在工程-引用中引用microsoft XML,version2.0
像ActiveReports等也有导出XML的功能。
http://www.it.com.cn/f/edu/0410/21/37887.htm
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
rs.CursorLocation = adUseClient
rs.Open "Select * from zone", 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
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
rs.Close
Set rs = Nothing
End SubPrivate Sub Form_Load()
If cn.State = 1 Then
cn.Close
End If
Set cn = New ADODB.Connection '打开数据库
sql = "Provider=SQLOLEDB.1;User ID=sa;password=;Initial Catalog=evaluate;Data Source=(local)"
cn.ConnectionTimeout = 10
cn.Open sql
End Sub