引用:
|
作者穩ㄝ
撈出資料後跑一個雙層迴圈....
varFile = FreeFile
Open <your text file> For Output As #varFile
Do While Not rs.Eof
strData = ""
For i = 0 to rs.Fields.Count - 1
strData = strData & Trim(rs(i).Value) & ","
Next i
Print #varFile, strData
Loop
Close #varFile
|
您好：
我程式碼改成如下
似乎進入無窮迴圈的樣子
這個純文字檔一直擴充"C:\Text2.txt"
檔案就一直變大
不知那裡出問題了
謝謝
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB;Network Library=DBMSSOCN;Data Source=192.168.1.1,1433;Initial Catalog=Northwind;User Id=sa;Password="
cn.Open
Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM Customers ", cn, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = rs
varFile = FreeFile
Open "C:\Text2.txt" For Output As #varFile
Do While Not rs.Eof
strData = ""
For i = 0 to rs.Fields.Count - 1
strData = strData & Trim(rs(i).Value) & ","
Next i
Print #varFile, strData
Loop
Close #varFile
End Sub