Jos?
25 de Abril del 2005

Tengo un problema en VB6
tengo un datagrid con 123 columnas y n registros
lo que deseo hacer es exportar desde el datagrid todos los registros a un archivo *.txt delimitado por tabulaciones, todo con comandos desde visual basic.
Espero puedas ayudarme.
Saludos,
José

roymx
25 de Abril del 2005

esto uso para guardar los datos de un datagrid que esta enlazado a un adodc. y el resultado lo pongo en un RichTextBox y despues lo guardo

con Me.DataGrid1.col = 1 selecciono la columna que deseo guardar.

Dim iRow As Integer
Dim iCol As Integer
Dim txtDataGrid1 As String
txtDataGrid1 = ""
For iRow = 0 To Me.Adodc1.Recordset.RecordCount - 1
Me.DataGrid1.row = iRow

Me.DataGrid1.col = 1
txtDataGrid1 = txtDataGrid1 & "titulo" & vbCrLf & Me.DataGrid1.Text & vbCrLf & vbCrLf

Me.DataGrid1.col = 2
txtDataGrid1 = txtDataGrid1 & "titulo" & vbCrLf & Me.DataGrid1.Text & vbCrLf & vbCrLf

Me.DataGrid1.col = 4
txtDataGrid1 = txtDataGrid1 & "titulo" & vbCrLf & Me.DataGrid1.Text & vbCrLf & vbCrLf

Me.DataGrid1.col = 6
txtDataGrid1 = txtDataGrid1 & "titulo " & Me.DataGrid1.Text & " "
Me.DataGrid1.col = 7
txtDataGrid1 = txtDataGrid1 & "titulo " & Me.DataGrid1.Text & vbCrLf
txtDataGrid1 = txtDataGrid1 & vbCrLf & "NOTAS:" & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "________________________________________________________________________________________________" & vbCrLf



Next iRow

RichTextBox1.Text = txtDataGrid1 & vbCrLf

puedes adaptarlo a tus necesidades.