怎样将datagrid显示的数据输出到txt文件里

[superNANA_MUMU]

怎样将datagrid显示的数据输出到txt文件里

Public Sub DataOut()
   Dim i
   Dim strOut '输出字符串
       For i = 0 To Adodc1.Recordset.Fields.Count - 1
           DataGrid.Col = i
           strOut = strOut & DataGrid.Text & Chr(9)
       Next
       Debug.Print strOut
       Print #intFilenum, strOut
End Sub

上面的代码只输出了一行~我是要全部输出，按照datagrid显示的格式
谢谢了

[jhone99]

Public Sub DataOut()
   Dim i
   Dim strOut '输出字符串

   Adodc1.Recordset.movefirst
   while not Adodc1.Recordset.eof 
       For i = 0 To Adodc1.Recordset.Fields.Count - 1
           DataGrid.Col = i
           strOut = strOut & DataGrid.Text & Chr(9)
       Next
       Debug.Print strOut
       Print #intFilenum, strOut
       
       Adodc1.Recordset.movenext
   wend
End Sub

[superNANA_MUMU]

[Quote=引用 1 楼 jhone99 的回复:]
VB code
Public Sub DataOut()
Dim i
Dim strOut '输出字符串

Adodc1.Recordset.movefirst
while not Adodc1.Recordset.eof
For i = 0 To Adodc1.Recordset.Fields.Count - 1
Da……
[/Quote]

那要怎么样判断 Adodc1一共有多少条记录呢？

[superNANA_MUMU]

或者说怎么判断 Adodc1中有没有记录

[jhone99]

Public Sub DataOut()
    Dim i
    Dim strOut '输出字符串

    If Adodc1.Recordset.recordcount > 0 Then
        Adodc1.Recordset.movefirst
        
        While Not Adodc1.Recordset.EOF
            For i = 0 To Adodc1.Recordset.Fields.Count - 1
                DataGrid.Col = i
                strOut = strOut & DataGrid.Text & Chr(9)
            Next i
            
            Debug.Print strOut
            Print #intFilenum, strOut
            
            Adodc1.Recordset.movenext
        Wend
    End If
End Sub

[jhone99]

Adodc1.Recordset.recordcount
****************
记录数

[贝隆]

与其读表格控件，还不如查询数据库

[superNANA_MUMU]

[Quote=引用 5 楼 jhone99 的回复:]
Adodc1.Recordset.recordcount
****************
记录数
[/Quote]

十分感谢你~你帮了我很多次啊