[SOLUCIONADO] Exportar Multiples Consultas

[UNDR4]

Hola amigos, tengo varias dudas sobre VB. net y Mysql, necesito guardar los datos de varias consultas en un archivo de texto o en un xml (cualquiera de los 2 esta bien) pero debo hacerlo en la siguiente forma

Código XML:

<Base de Datos>
   <Tabla X label=dato1>
       <Tabla Y label="Dato 1">
           <Tabla Final label="Dato 1" />
           <Tabla Final label="Dato 2" />
       </Tabla Y>
        <Tabla Y label="Dato 2">
           <Tabla Final label="Dato 1">
           <Tabla Final label="Dato 2">
           <Tabla Final label="Dato 3">
           <Tabla Final label="Dato 4">
       </Tabla Y>
   </Tabla X>
</Base de Datos>
 

mi idea para recorrer cada registro que la consulta regresa y guardarlo en un txt con el formato anterior es usando un while de esta forma

Código HTML:

Query Tabla X
    while(resultado !=null )
       guardo en  txt  datos del primer registro de la query
       Query Tabla Y
            while(resultado != null)
                guardo txt resultado de la query
                query Tabla Final
                   while(resultado != null)
                       guardo en txt resultado de la query
 

los problemas que tengo es que no estoy seguro de como almacenar cada registro de la query, estoy utilizando la sentencia MySqlDataReader como pueden ver en el siguiente ejemplo , pero al usar 2 reader me genera error al momneto de entrar en el segundo cmd.ExecuteReader()

Código vb:

Try
            Conexion.Open()
 
            Dim ReaderMa As MySqlDataReader
            cmd = New MySqlCommand("SELECT * FROM marca", Conexion)
            ReaderMa = cmd.ExecuteReader()
            While ReaderMa.Read()
                MsgBox(ReaderMa.GetInt32(0) & ", " & ReaderMa.GetString(1))
                Dim ReaderMo As MySqlDataReader
                cmd = New MySqlCommand("SELECT * FROM modelo WHERE marca_id='" & ReaderMa.GetInt32(0) & "'")
                ReaderMo = cmd.ExecuteReader()
                While ReaderMo.Read()
                    MsgBox(ReaderMo.GetInt32(0) & ", " & ReaderMo.GetString(1) & ", " & ReaderMo.GetInt32(2))
                End While
                ReaderMo.Close()
            End While
            ReaderMa.Close()
 
            Conexion.Close()
        Catch ex As Exception
            MsgBox("Error :", ex.Message)
            Conexion.Close()
        End Try
 

Y dado que .net no es mi fuerte no sé cómo guardar información dentro de un archivo externo, si me pudieran apoyar con un ejemplo sencillo de archivos en .net y orientarme un poco más en el uso de los reader se los agradecería mucho

[difilippocarlos]

Tenes el Try... dejanos el msj q te da el Catch...


te dejo una forma sencilla de escritura y lectura

Escritura Simple

Código:

 ' Crea el archivo  (Apodo, ruta/nombre, modo de apertura)
 FileOpen(1, "C:\Texto.txt", OpenMode.Output)
 ' escribe el contenido  (apodo, string)
 Write(1, TextBox1.Text)
' lo cierra
 FileClose(1)

La que uso yo

Código:

'Creamos un objeto de la clase StreamWriter(ruta\nombre.txt)
Dim objSW As New System.IO.StreamWriter("C:\archivo_prueba.txt")

'Declaramos el texto a colocar en el Archivo
Dim strArchivo As String = "Línea de texto " & vbNewLine & "Otra linea de texto"
'tambien lo podes hacer en un while
'con strArchivo = "Linea de Texto" & vbNewLine

'Ahora escribimos el archivo
objSW.WriteLine(strArchivo)
'y "cerramos" por asi decirlo
objSW.Flush()

Ahora la manera en la q yo leo 1 arhivo

Código:

Dim VarArchivo as string
 Try
        Dim sPath As String = "c:\un_archivo.txt"
        Dim sContent As String = vbNullString

        With My.Computer.FileSystem
             ' verifica si existe el path  
             If .FileExists(SPath) Then
                  ' lee todo el contenido  
                  sContent = .ReadAllText(SPath)
                 VarArchivo = sContent.ToString
             Else
                  MsgBox("ruta inválida", MsgBoxStyle.Critical, "error")
             End If
        End With
        ' errores  
        Catch ex As Exception
            MsgBox(ex.Message.ToString, MsgBoxStyle.Critical)
        End Try