firebase-realtime-database - 使用vb6.0将datagridview导出为txt

Question

请问如何将datagridview从vb6.0导出为.txt格式？我写这段代码来查看表格的内容到datagridview

Call Buka koneksi.CursorLocation = adUseClient rsDTS.Open "select * from TBL_DTSHEET where KDKRY = '" & txtKdKry.Text & "' and (TGLWORK between '" & Format(dtAwal.Value, "mm/dd/yyyy") & "' and '" & Format(dtAkhir.Value, "mm/dd/yyyy") & "')", koneksi With rsDTS If Not (.BOF And .EOF) Then mvBookmark = .Bookmark End If End With Set DataGrid1.DataSource = rsDTS.DataSource 现在我想知道如何将这个 datagridview 导出到格式为 .txt 的文件中？有人可以帮忙吗？谢谢

Answer 1

我想我可以通过添加一些这样的代码来解决我自己的问题

Open "D:\textfile.txt" For Output As #1
Do While rsDTS.EOF = False
    Print #1, rsDTS.Fields("KDDTS").Value & ", " & rsDTS.Fields("KDHDTS").Value & ", " & rsDTS.Fields("TGLWORK").Value
    rsDTS.MoveNext
Loop
Close #1

希望这可以帮助其他人