Avatar billede fila Nybegynder
15. december 2004 - 13:31 Der er 10 kommentarer

hvordan skriver man til en fil

Hvordan skriver man til en fil når man har hentet noget fra en database
Dim Hent_DB As New SQLCommand("SELECT * FROM Licens",oConn)

oConn er min forbindelse. Hvad skal man skrive hvis man gerne vil have lagt alt fra "Licens" over i fx en fil
Avatar billede arne_v Ekspert
15. december 2004 - 13:40 #1
Noget a la:

Dim sw As StreamWriter = new StreamWriter("C:\Licens.txt")
Dim rdr As SqlDataReader = Hent_DB.ExecuteReader
While rdr.Read
    Dim f1 As Integer = CType(rdr(0), Integer)
    Dim f2 As String = CType(rdr(1), String)
    sw.WriteLine(f1 & "," & f2)
End While

hvis nu der er 2 felter (en Integer og en String) og du vil skrive komma separeret
Avatar billede arne_v Ekspert
15. december 2004 - 13:50 #2
Koden ern nem.

De problemer du skal overveje er:
  - rettigheder til atr skrive en fil der
  - flere samtidige brugere
Avatar billede fila Nybegynder
15. december 2004 - 13:54 #3
Skal bare teste om jeg kan hente noget fra min database. Har brugt SELECT osv osv, og skal egentlig bare lægge det i en fil
Avatar billede fila Nybegynder
15. december 2004 - 14:07 #4
Det der eksempel du har skrevet virker ikke hos mig, den brokker sig en del over StreamWriter "name StreamWriter not declared
Avatar billede arne_v Ekspert
15. december 2004 - 14:15 #5
Du skal have importeret name spacet System.IO for bruge StreamWriter
Avatar billede fila Nybegynder
15. december 2004 - 14:17 #6
har jeg gjort
Avatar billede arne_v Ekspert
15. december 2004 - 22:10 #7
Mystisk.

Den her kode virke rfint hos mig:

<%@ import namespace="System.IO" %>
<%@ import namespace="System.Data.SqlClient" %>
<script language="VB" runat="server">
    Private Sub Page_Load(src As Object, e As EventArgs)
        Dim sw As StreamWriter = new StreamWriter("C:\T1.txt")
        Dim con As SqlConnection = New SqlConnection ("server=ARNEPC2;Integrated Security=SSPI;database=Test")
        con.Open
        Dim cmd As SqlCommand = New SqlCommand ("SELECT * FROM T1", con)
        Dim rdr As SqlDataReader = cmd.ExecuteReader
        While rdr.Read
            Dim f1 As Integer = CType(rdr(0), Integer)
            Dim f2 As String = CType(rdr(1), String)
            sw.WriteLine(f1 & " " & f2)
        End While
        con.Close
        sw.Close
    End Sub
</script>
OK
Avatar billede fila Nybegynder
16. december 2004 - 10:41 #8
Fandt ud af det :) men tak for dine svar
Avatar billede arne_v Ekspert
22. januar 2005 - 23:13 #9
tid at få afsluttet dette spørgsmål så ?
Avatar billede arne_v Ekspert
05. oktober 2006 - 03:28 #10
??
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester