一个例子（刚编写并调试通过）：Private Sub Command1_Click() Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset cnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind" cnn.Open SQL = "select * from Customers" rst.Open SQL, cnn, 1, 3 n = rst.RecordCount m = rst.Fields.Count If n = 0 Then cnn.Close rst.Close Exit Sub End If
rst.MoveFirst Close #1 Open "d:\test.txt" For Output As #1
For j = 1 To m Print #1, rst.Fields(j - 1).Name, Next For i = 1 To n For j = 1 To m Print #1, rst(j - 1).Value, Next rst.MoveNext Next
End Sub
Dim i As Long Dim ls_Path As String, strSQL As String Dim rs As New ADODB.Recordset Screen.MousePointer = 11 DoEvents ls_Path = "C:\执照文件.txt"
ADO的RECORDSET对象可以保存成XML，很简单方便。
rs.Save "c:\abc.xml", adPersistXML
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind"
cnn.Open
SQL = "select * from Customers"
rst.Open SQL, cnn, 1, 3
n = rst.RecordCount
m = rst.Fields.Count
If n = 0 Then
cnn.Close
rst.Close
Exit Sub
End If
rst.MoveFirst
Close #1
Open "d:\test.txt" For Output As #1
For j = 1 To m
Print #1, rst.Fields(j - 1).Name,
Next
For i = 1 To n
For j = 1 To m
Print #1, rst(j - 1).Value,
Next
rst.MoveNext
Next
End Sub
Dim ls_Path As String, strSQL As String
Dim rs As New ADODB.Recordset Screen.MousePointer = 11
DoEvents
ls_Path = "C:\执照文件.txt"
strSQL = "SELECT * FROM TABLENAME"
rst.Open strSQL, cn Open ls_Path For Output As #1
Print #1,
Print #1,
Print #1, " *******************************************"
Print #1, " * *"
Print #1, " * 执照文件 *"
Print #1, " * " & Format(Now, "YYYY/MM/DD") & " *"
Print #1, " * *"
Print #1, " *******************************************"
Print #1,
Print #1,
Print #1, " ========================================================================================================================================================================="
Print #1, vbTab & "注册号" & vbTab & vbTab & vbTab & "字号名称" & vbTab & vbTab & vbTab & "经营者姓名" & vbTab & "组成形式" & vbTab & "经营场所" & vbTab & vbTab & "有效期自" & vbTab & "有效期至" & vbTab & "发照日期" & vbTab & "经营范围及方式"
Print #1, " ========================================================================================================================================================================="
Print #1,
With frmMain.lvTelphone
For i = 1 To rs.RecordCount
Print #1, vbTab & rs!ZCH & vbTab & _
rs!ZHMC & vbTab & vbTab & _
rs!JYZXM & vbTab & vbTab & _
rs!ZCXS & vbTab & _
rs!JYCS & vbTab & vbTab & _
rs!YXQ1 & vbTab & _
rs!YXQ2 & vbTab & _
rs!FZRQ & vbTab & _
rs!JYFW rs.MoveNext
Next
End With
Close #1
Screen.MousePointer = 0数据库连接自己写