CLR: .Net / Mono / Boo / Otros CLR > VB .NET
Generar Archivos Textos
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
[#] Página Siguiente
Ir a la versión completa