экспортировать datagridview в txt с vb6.0

Я хотел бы спросить, как экспортировать 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? кто-нибудь может помочь? Благодарность


firebase-realtime-database datagridview vb6 export-to-text
person SETYO    schedule 29.03.2018    source источник
comment
DataGridView — это виджет .Net. Вы, вероятно, имеете в виду что-то другое, но если вы все равно возитесь с явным набором записей, это вряд ли влияет на что-либо из этого. Это то, что известно как отвлекающий маневр.   -  person Bob77    schedule 29.03.2018

Ответы (1)


arrow_upward
0
arrow_downward

Я думаю, что могу решить свою проблему, добавив такой код

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

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

person SETYO    schedule 29.03.2018
comment
Do Until rsDTS.EOF было бы чище и легче читать. Вы можете прочитать о том, как работают логические выражения. - person Bob77; 29.03.2018