我想在ＶＢ中将几张表生成一个XML文件，却找不到方法，请高手指点一下。谢谢。

添加引用,然后操作就KO了

回答正确,OH YEAH,满分

呵呵，能否具体一点，我可以把一张表生成一个XML文件，但却不知如何将多张表生成一个XML文件
谢谢！！！

[CODE]Option Explicit

Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim ConString As String
Dim strTableName As String

ConString = "Driver={mysql odbc 3.51 driver};Data Source=localhost;Database=tennis;" _
& "UID=root;pwd=admin"
conn.Open ConString

Open "d:\test1.xml " For Output As #1
Print #1, "<?xml version=""1.0"" ?>"
Print #1, "<result>"
Close
strTableName = "Players"
toXml strTableName, conn

strTableName = "matches"
toXml strTableName, conn
conn.Close

Open "d:\test1.xml " For Append As #1
Print #1, "</result>"
Close
End Sub

Private Sub toXml(tableName As String, con As ADODB.Connection)
Dim rs As New ADODB.Recordset
Dim i As Integer
Dim s As Integer
Dim j As Integer
rs.CursorLocation = adUseClient
rs.Open "Select * from " & tableName, con, adOpenKeyset, adLockReadOnly, adCmdText
s = rs.Fields.Count
ReDim s_FieldName(s) As String

For i = 0 To s - 1
s_FieldName(i) = rs.Fields(i).Name
Next

Open "d:\test1.xml" For Append As #1
Print #1, "<table name=""" & tableName & """>"
For i = 0 To rs.RecordCount - 1
Print #1, "<row>"
For j = 0 To s - 1
Print #1, "<field name=""" & s_FieldName(j) & """>" & rs.Fields(j).Value & "</field>"
Next
Print #1, "</row>"
rs.MoveNext
Next
Print #1, "</table>"
Close
rs.Close
End Sub

[/CODE]

够详细了吧

哈哈，谢谢，好的，我看看，非常感谢

，呵呵，非常感谢！

运行　Print #1, "<field name=""" & s_FieldName(j) & "> value=" & rs.Fields(j).Value & """</field>"

提示错误：

缺少所需的空白区。
<field name="sno> value=2"</field>
--------------------------^

请问这个问题出现的关键在哪里？

很明显..双引号不够.

运行Print #1, "<field name=""" & s_FieldName(j) & """> </field>"
是没有问题的。
但我要运行
Print #1, "<field name=""" & s_FieldName(j) & """> " & rs.Fields(j).Value & "</field>"
就会出现问题：
文本内容中发现无效字符
　　　　<field name="sname">