ficheros de texto desde vb.net

[beamm]

Hola tengo que crear un .txt y escribir en él los resultados de una consulta, he konseguido krear el txt pero no me escribe nada. Alguien me puede decir como lo korrijo?

Protected Sub aulasLibres_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles aulasLibres.Click
Dim fecha As String = TextBox1.Text
Dim cnn As OleDbConnection
Dim resul2 As OleDbDataReader
Dim objds, objds1, objds2 As New DataSet
Dim Num As New DataTable("Num")

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
fso = CreateObject("Scripting.FileSystemObject")
f = fso.OpenTextFile("c:\impresion.txt", ForWriting, True)
'f.Write("Hola se ha escrito el archivo!")


cnn = New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\Bea.BEA-095B12391FA\Mis documentos\Visual Studio 2005\WebSites\GestionAulas\App_Data\gestionaulas.m db")
cnn.Open()

Dim query As String = "SELECT Numclase,DNIUsu,HoraInicio,HoraFin,Motivo FROM Reserva WHERE Fecha =" & fecha & " "
'Response.Write(query)

Dim objCmd As New OleDbCommand(query, cnn)
resul2 = objCmd.ExecuteReader()
Dim g As String = String.Empty
While resul2.Read()
g = resul2.GetString(0)
f.Write(g)

End While


f.close()


End Sub

[beamm]

Tb he probado este otro codigo y tampoko me escribe, por favor que alguien me ayude

Protected Sub aulasLibres_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles aulasLibres.Click
Dim fecha As String = TextBox1.Text
Dim cnn As OleDbConnection
Dim resul2 As OleDbDataReader
Dim objds As New DataSet
Dim fe As New DataTable("fe")
Dim strconexion As String
Dim objconexion As OleDbConnection
Dim objcomando As OleDbDataAdapter

Dim nc As Integer
Dim hi As String
Dim hf As String
Dim m As String


Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
fso = CreateObject("Scripting.FileSystemObject")
f = fso.OpenTextFile("c:\impresion.txt", ForWriting, True)
'f.Write("Hola se ha escrito el archivo!")





strconexion = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\Bea.BEA-095B12391FA\Mis documentos\Visual Studio 2005\WebSites\GestionAulas\App_Data\gestionaulas.m db"

objconexion = New OleDbConnection(strconexion)
objconexion.Open()
objcomando = New OleDbDataAdapter("select NumClase,HoraInicio,HoraFin,Motivo from Reserva where Fecha=" & fecha & "", objconexion)
objcomando.Fill(objds, "fe")
Dim fila As DataRow
For Each fila In objds.Tables("fe").Rows
hi = CStr(fila("hi"))
hf = CStr(fila("hf"))
m = CStr(fila("m"))
f.writeline(hi & " " & hf & " - " & m)

Next

f.close()


End Sub

[Peterpay]

Es windows o web tu aplicacion

si quieres escribir usa un StreamWriter

bool apendiza=true o false; // esto ya depende de ti
StreamWriter flujoEscritura=new StreamWriter(rutaArchivo,apendiza);

flujoEscritura.WriteLine(lineaAEscribir);

fluejoEscritura.Close();

es practicamente lo mismo en VB:net solo cambia la sintaxis basica pero no mas, las funciones son iguales. ojo q si es una aplicacion web rutaArchivo necesita ser mapeada usando Server.MapPath o Application.BaseDirectory + los n directorios de la ruta.

[beamm]

Si, ya consigo q me escriba en el fichero pero no el resultado de la consulta,jejej, he puesto esto:

Dim fecha As String = TextBox1.Text
Dim cnn As OleDbConnection
Dim resul2 As OleDbDataReader
Dim objds, objds1, objds2 As New DataSet
Dim Num As New DataTable("Num")

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
fso = CreateObject("Scripting.FileSystemObject")
f = fso.OpenTextFile("c:\impresion.txt", ForWriting, True)
'f.Write("Hola se ha escrito el archivo!")
f.close()

cnn = New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\Bea.BEA-095B12391FA\Mis documentos\Visual Studio 2005\WebSites\GestionAulas\App_Data\gestionaulas.m db")
cnn.Open()

Dim query As String = "SELECT Numclase,DNIUsu,HoraInicio,HoraFin,Motivo FROM Reserva WHERE Fecha =" & fecha & " "
'Response.Write(query)

Dim objCmd As New OleDbCommand(query, cnn)
resul2 = objCmd.ExecuteReader()
Dim apendiza As Boolean = True
Dim flujoEscritura As StreamWriter = New StreamWriter("c:\impresion.txt", apendiza)

flujoEscritura.WriteLine(resul2)

flujoEscritura.Close()

cnn.Close()



Pero lo q me escribe es: System.Data.OleDb.OleDbDataReader

[beamm]

He intentado esto pero tampoko me escribe, por favor ayudenme...


Protected Sub aulasLibres_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles aulasLibres.Click
Dim fecha As String = TextBox1.Text
Dim cnn As OleDbConnection
Dim resul2 As OleDbDataReader
Dim objds As New DataSet
Dim fe As New DataTable("num")
fe.Columns.Add("hi", Type.GetType("System.String"))
fe.Columns.Add("hf", Type.GetType("System.String"))
fe.Columns.Add("m", Type.GetType("System.String"))


Dim strconexion As String
Dim objconexion As OleDbConnection
Dim objcomando As OleDbDataAdapter




Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
fso = CreateObject("Scripting.FileSystemObject")
f = fso.OpenTextFile("c:\impresion.txt", ForWriting, True)
'f.Write("Hola se ha escrito el archivo!")
f.close()




strconexion = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\Bea.BEA-095B12391FA\Mis documentos\Visual Studio 2005\WebSites\GestionAulas\App_Data\gestionaulas.m db"

objconexion = New OleDbConnection(strconexion)
objconexion.Open()
objcomando = New OleDbDataAdapter("select HoraInicio,HoraFin,Motivo from Reserva where Fecha='" & fecha & "'", objconexion)
objcomando.Fill(objds, "fe")
Dim apendiza As Boolean = False
Dim flujoEscritura As StreamWriter = New StreamWriter("c:\impresion.txt", apendiza)
Dim fila As DataRow
For Each fila In objds.Tables("fe").Rows
flujoEscritura.WriteLine(objds.Tables(fila(0)))
Next
flujoEscritura.Close()

objconexion.Close()

End Sub

[Peterpay]

tienes q recorrer el datareader algo como

while datareader.Read()

FLUJOESCRITURA.WRITELINE(datareader.GetValue(0).To String() ......) usa un string para unir esos campos.

end while

[beamm]

Si, eso intento pero por mas q lo intento no me sale, ahora tengo este código:

Protected Sub aulasLibres_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles aulasLibres.Click
Dim fecha As String = TextBox1.Text
Dim cnn As OleDbConnection
Dim resul2 As OleDbDataReader
Dim objds, objds1, objds2 As New DataSet
Dim Num As New DataTable("Num")

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
fso = CreateObject("Scripting.FileSystemObject")
f = fso.OpenTextFile("c:\impresion.txt", ForWriting, True)
'f.Write("Hola se ha escrito el archivo!")
f.close()

cnn = New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\Bea.BEA-095B12391FA\Mis documentos\Visual Studio 2005\WebSites\GestionAulas\App_Data\gestionaulas.m db")
cnn.Open()

Dim query As String = "SELECT Numclase,DNIUsu,HoraInicio,HoraFin,Motivo FROM Reserva WHERE Fecha =" & fecha & " "
'Response.Write(query)

Dim objCmd As New OleDbCommand(query, cnn)
resul2 = objCmd.ExecuteReader()
Dim apendiza As Boolean = True
Dim flujoEscritura As StreamWriter = New StreamWriter("c:\impresion.txt", apendiza)
While resul2.Read()

flujoEscritura.WriteLine(resul2.GetValue(0).ToStri ng())

End While


flujoEscritura.Close()

cnn.Close()

End Sub



Pero no me imprime nada en el txt. Yo creo que es algun problema de q mi datatable solo rekoge un campo y no todos los que le pido o algo así, pero esk no tengo ni idea... Espero que puedas ayudarme con esto ...perdona las molestias

[beamm]

Ya encontre la solucion, gracias x todo

[chcma]

Y cual es ?