Question

我想问一下如何将datagridview从vb6.0导出为.txt格式？我编写此代码来查看table to 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

希望这可以帮助他人

使用vb6.0将datagridview导出到txt

1 个答案: