CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Generar Archivos Textos

(1/2) > >>

Sagma:
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


--- Fin de la cita ---


--- 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( _                "Provider=Microsoft.Jet.OLEDB.4.0;Data  Source=c:\sagmasoft\db1.mdb;User Id=admin;Password=;")         'esto es una copia de como estaba hantes        '"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\sagmasoft\db1.mdb")        '"Data Source=" & Application.StartupPath & _         'Crear un nombre de archivo pseudoaleatorio.        'fileCSV = "t" & nRandom.Next().ToString() & ".txt"        fileCSV = "ofemat.txt"         'fileName = Application.StartupPath & "\sagmasoft\" & fileCSV        fileName = "\sagmasoft\" & 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 = "select * from horario"        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 & ","        Next         'Escribir información de nombre de campo en el archivo.        objStreamWriter.WriteLine(strLine)         'Volver a inicializar la cadena de datos.        strLine = ""         '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            objStreamWriter.WriteLine(strLine)            strLine = ""        End While         'Limpiar.        dr.Close()        cnn.Close()        objStreamWriter.Close()        objFileStream.Close()   
gracias por la ayuda  :comp:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

Ir a la versión completa