Экспорт данных в txt с vb6.0

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 И теперь мне интересно, как я могу экспортировать это представление данных в файл в формате.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

Надеюсь, что это может помочь другим