binær data

et lille kode fragment til inspiration:

        Dim imgfile As Stream = New FileStream ("C:\blue.jpg", FileMode.Open)
        Dim siz As Integer = imgfile.Length
        Dim imgdata(siz-1) As Byte
        imgfile.Read(imgdata, 0, imgdata.Length)
        imgfile.Close
        Dim ins As SqlCommand = New SqlCommand ("INSERT INTO imgtest VALUES(@id,@img)", con)
        ins.Parameters.Add("@id", SqlDbType.Int)
        ins.Parameters.Add("@img", SqlDbType.Image)
        ins.Parameters("@id").Value = 1
        ins.Parameters("@img").Value = imgdata
        ins.ExecuteNonQuery

Just what i need...

smid et svar... Men hvis du så lige har en udtrækker så ville det være fint...

Har du en ide om hvor store disse filer må være?

svar

Et IMAGE felt kan tage 2 GB !

        Dim sel As SqlCommand = New SqlCommand ("SELECT img FROM imgtest WHERE id = @id", con)
        sel.Parameters.Add("@id", SqlDbType.Int)
        sel.Parameters("@id").Value = 1
        Dim imgdata2 As Byte() = CType(sel.ExecuteScalar, Byte())

Kan du ikke lave en hel kode.. med en sub til det ene og en sub til det andet?

du skal bare have

        Dim con As SqlConnection = New SqlConnection ("server=ARNEPC2\ARNEPC2RUN;Integrated Security=SSPI;database=TestMSDE")
        con.Open

øverst og

        con.Close

nederst, så kan det puttes i hver sin Sub.

Du skal så have rettet server navn, database navn, filnavn, tabelnavn og feltnavne - evt.
skal de over som parametre i Sub'erne.

Så mangler du bare at acceptere svaret.