como hacer un XML en VB6

[luis_anez44]

Buenos dias amigos, como puedo crear un XML en Visual Basic??
tengo una pantalla donde consulto una base de datos SQLServer y muestro los resultados en un DataGrid, me gustaria que al hacer click en un boton se genere el XML con esos datos. como podria hacerlo??
Gracias de antemano

[mortiprogramador]

<saludos>
Pues teorizando que tienes los conocimientos de la estructura xml,
lo que tienes que hacer es, en el evento del botón,
recorrer los registros ya sea del datagrid o de un query,
y por cada uno ir generando tags hijos en una variable string.

Dicha variable se inicializará antes del ciclo
con el valor del encabezado del xml

Al finalizar el ciclo, le agregas los tags finales,
finalmente llamas a otra función donde ya
escribas esa variable string en un archivo
al cual, en este caso, guardarás con la extensión xml

Ej:

Código vb:

Private Sub Test(Cadena As String)
UnArchivo = FreeFile
Open App.Path + "\archivo.xml" For Append As #UnArchivo
Print #UnArchivo, Cadena
Close #UnArchivo
End Sub
 

</saludos>

[luis_anez44]

mortiprogramador muchas gracias por responder, e estado revisando y la mayor parte de internet explica el metodo que me dices, ahora como puedo llamar los datos que tengo en el datagrid??

[mortiprogramador]

<saludos>
Uhm, algo así sería

Código vb:

for(int i=0; i<DataGrid1.Items.Count;i++) 
{ 
for(int j=0; j<DataGrid1.Items[i].Cells.Count; j++) 
{ 
string valor = DataGrid1.Items[i].Cells[j].Text; 
} 
}
 

</saludos>

[luis_anez44]

e probado de la manera que me dices pero no me funciona!! ahora intento hacerlo de esta manera y me muestra datos como los quiero pero solo me muestra el mismo dato como puedo hacer para que recorra todas las columnas imprimiendo el dato que esta en el DataGrid

' -- recorrer todas los registros del GRID
For MyRow = 0 To DataGrid1.ApproxCount - 1
' -- Recorrer las columnas
For MyCol = 0 To DataGrid1.Columns.Count - 1
Valor = DataGrid1.Text

Print #1, "<RifRetenido> "
Print #1, Valor
Print #1, "</RifRetenido>"

[mortiprogramador]

<saludos>
En el ciclo que ya tienes, intentaste con Items, y a su vez Cells? o no se si ese datagrid que tienes maneje Rows?
Revisa eso y nos cuentas
</saludos>