fil skrivnings problem.

Sådan her ville jeg gøre det:

    Dim CON As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=C:\database.mdb")
    Dim COM As New OleDb.OleDbCommand
    Dim DA As New OleDb.OleDbDataAdapter
    Dim DT As New DataTable

    CON.Open()
    COM.Connection = CON
    COM.CommandText = "select * from images"
    COM.CommandType = CommandType.Text

    DA.SelectCommand = COM
    DA.Fill(DT)

    If Not DT Is Nothing AndAlso DT.Rows.Count > 0 Then
      For i As Integer = 0 To DT.Rows.Count - 1
        Dim SW As System.IO.StreamWriter = New System.IO.StreamWriter("c:\" & DT.Rows(i).Item("ID").ToString)
        SW.Write(DT.Rows(i).Item("Data"))
        SW.Flush()
        SW.Close()
      Next i
    End If

    CON.Close()
    CON.Dispose()
    COM.Dispose()

Med venlig hilsen

Janus Kamp Hansen

Hva? Skal det her spm ikke snart lukkes?