Autor Tema: Generar Archivos Textos (Leído 3555 veces)

Sagma · « **en:** Viernes 18 de Febrero de 2005, 16:42 »

Hola a todos, quisiera saber si me pueden orientar o decirme donde puedo encontrar ejemplos para poder realizar archivos textos desde una DB de access.

Gracias

sergiotarrillo

puedes explicar un poco, mas de que quieres generar los archivos txt, en que quieres generarlo en transact?

Sagma

Bueno, lo que pasa, es que quiero hacer una consulta a la DB que se tiene, en access, y en base a esa consulta quiero generar archivos textos de algunos datos. esto lo quiero hacer sobre un winforms.

Gracias

sergiotarrillo

a ver si te entendi, osea queires: que cuando hagas una consulta por ejemplo: "SELECT * FROM REGION", todas las filas encontradas las almacenes en un archivo de texto...eso?

si es eso, fácil solo tienes que usar Sistem.IO, y crear un archivo, y despues solo escribes en el archivo, no te olvides de cerrar el archivo para guardar los datos...

Sagma

Hola a todos, tengo un codigo que no funca, el mensaje que me sale es,

Citar

Excepcion no controlada de tipo 'system.data.oledb.oledbexception.dll

Código: Text

 
 
        Dim i As Integer
        Dim strLine, fileName, fileCSV As String
        Dim objFileStream As FileStream
        Dim objStreamWriter As StreamWriter
        Dim nRandom As Random = New Random(DateTime.Now.Millisecond)
        Dim fs As Object, myFile As Object
        Dim cnn As OleDbConnection = New OleDbConnection( _
                &#34;Provider=Microsoft.Jet.OLEDB.4.0;Data  Source=c:&#092;sagmasoft&#092;db1.mdb;User Id=admin;Password=;&#34;)
 
        'esto es una copia de como estaba hantes
        '&#34;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&#092;sagmasoft&#092;db1.mdb&#34;)
        '&#34;Data Source=&#34; & Application.StartupPath & _
 
        'Crear un nombre de archivo pseudoaleatorio.
        'fileCSV = &#34;t&#34; & nRandom.Next().ToString() & &#34;.txt&#34;
        fileCSV = &#34;ofemat.txt&#34;
 
        'fileName = Application.StartupPath & &#34;&#092;sagmasoft&#092;&#34; & fileCSV
        fileName = &#34;&#092;sagmasoft&#092;&#34; & fileCSV
 
        'Utilizar FileStream para crear el archivo .csv.
        objFileStream = New FileStream(fileName, FileMode.OpenOrCreate, FileAccess.Write)
        objStreamWriter = New StreamWriter(objFileStream)
 
        'Utilizar un DataReader para conectarse a la base de datos Pubs.
        cnn.Open()
        Dim sql As String = &#34;select * from horario&#34;
        Dim cmd As OleDbCommand = New OleDbCommand(sql, cnn)
        Dim dr As OleDbDataReader
        dr = cmd.ExecuteReader()
 
        'Enumerar los nombres de campo y los registros que se van a utilizar para generar el archivo.
        For i = 0 To dr.FieldCount - 1
            strLine = strLine & dr.GetName(i).ToString & &#34;,&#34;
        Next
 
        'Escribir información de nombre de campo en el archivo.
        objStreamWriter.WriteLine(strLine)
 
        'Volver a inicializar la cadena de datos.
        strLine = &#34;&#34;
 
        'Enumerar la base de datos que se utiliza para llenar el archivo.
        While dr.Read()
            For i = 0 To dr.FieldCount - 1
                strLine = strLine & dr.GetValue(i) & &#34;,&#34;
            Next
            objStreamWriter.WriteLine(strLine)
            strLine = &#34;&#34;
        End While
 
        'Limpiar.
        dr.Close()
        cnn.Close()
        objStreamWriter.Close()
        objFileStream.Close()
 
 
 

gracias por la ayuda

sergiotarrillo

hola sagma, el problema puede ser por varias causas la conexion esta mal, leistes mal el datareader, la consulta, o cualquiera que tenga algo que ver con un obejto OLEDB. Lo que tienes que hacer es colocar un bloque try y capturar la excepcion para ver especificamente en donde esta el problema...

Sagma

Hola, sabes el problema que tenia es que la DB lo tenia en otro directorio y no donde debia estar, ademas estama mal escrito el nombre de la DB, pos ahora si funca

.
Pero tengo una pregunta mas, como puedo hacer para que el campo hora que se tiene ya sea que sale 7:30 este salga como 7.30.

mil gracias y disculpa las molestias

sergiotarrillo

Si quieres recuperarlo y mostrarlo como dices no hay problema, puedes recuperar la hora normal y recuperarlo en dato DateTime de VB.Net, cuando tengas ese dato, puedes recuerar la hora, minutos y demas por separado, despues solo le agregas el puntito y listo.

Otra cosa, es que en la base de datos se almacene en ese formato, si es asi, me lo haces saber.

Sagma

hola sergio: sip ya todo esta ok en lo que se echo, y se hizo de la siguiente manera:

Citar

'Enumerar la base de datos que se utiliza para llenar el archivo.
While dr.Read()
For i = 0 To dr.FieldCount - 1
strLine = strLine & dr.GetValue(i) & ","
Next
strLine = Replace(strLine, ":", ".")
objStreamWriter.WriteLine(strLine)
strLine = ""
End While

y como son los dos unicos campo que se quiere cambiar, funca.
Gracias

sergiotarrillo

SoloCodigo

Autor Tema: Generar Archivos Textos (Leído 3555 veces)

Sagma

Generar Archivos Textos

sergiotarrillo

Re: Generar Archivos Textos

Sagma

Re: Generar Archivos Textos

sergiotarrillo

Re: Generar Archivos Textos

Sagma

Re: Generar Archivos Textos

sergiotarrillo

Re: Generar Archivos Textos

Sagma

Re: Generar Archivos Textos

sergiotarrillo

Re: Generar Archivos Textos

Sagma

Re: Generar Archivos Textos

sergiotarrillo

Re: Generar Archivos Textos