Error: Parameter not valid

Question

0.00/5 (No votes)

See more:

VB

Imports System.Data.OleDb
Imports System.IO
Imports System.Drawing.Imaging

Public Class Retrieve

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & _
                  "Data Source=" & Application.StartupPath & "\DBASE.accdb;")
        conn.Open()
        Dim Str As String
        Str = "SELECT Signature FROM DB WHERE Username = '" & TextBox1.Text & "'"
        Dim cmmd = New OleDbCommand(Str, conn)
        Dim dr As OleDbDataReader
        dr = cmmd.ExecuteReader()


        If dr.HasRows Then                    'REST OF THE PROGRAM
            Dim RetVal As Long
            Dim FieldLen As Int32

            Dim AccessConnection As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & _
            "Data Source=" & Application.StartupPath & "\AMADS.accdb")
            Dim AccessCommand As New OleDbCommand("SELECT Signature FROM DB WHERE [UserName] = '" & TextBox1.Text & "'", AccessConnection)
            AccessConnection.Open()
            Dim AccessDataReader As OleDbDataReader = AccessCommand.ExecuteReader(CommandBehavior.SequentialAccess)
            AccessDataReader.Read()
            FieldLen = AccessDataReader.Item("Signature").Length

            Dim BinaryByteArray(FieldLen - 1) As Byte
            Dim StartIndex As Integer = 0
            RetVal = AccessDataReader.GetBytes(1, StartIndex, BinaryByteArray, 0, BinaryByteArray.Length)
            Dim OLEStream As New System.IO.MemoryStream(BinaryByteArray)
            PictureBox1.Image = Image.FromStream(OLEStream)
            AccessDataReader.Close()
            AccessConnection.Close()
        Else
            MsgBox("...")
        End If
    End Sub
End Class

Hi guys, i am trying to retrieve picture from MS access.
but i am getting an error on this part:
PictureBox1.Image = Image.FromStream(OLEStream) --> parameter not valid.

i've tried debugging this for ages.. im getting the same error again and again :p
Help me please... thanks..

Posted 2-Mar-12 2:58am

kimsnap

Updated 3-Mar-12 19:48pm

v2

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

OriginalGriff · Accepted Answer · 2012-03-02T03:42:00

Solution 1

You need to look at two things: the data that you have in the DB and how you stored it in there, and the data that you have read out.
The code to convert the bytes to an image looks good, so it has to be a problem with the data.
Try it with a small image (make one specially, say 8 by 8 pixels) and see what you get.

Hi, ive tried to do what you said, here it goes:

VB

Dim bytImage() As Byte

Try
    Dim ms As New System.IO.MemoryStream
    Dim bmpImage As New Bitmap(PictureBox1.Image)

    bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
    bytImage = ms.ToArray()
    ms.Close()
Catch ex As Exception
    MsgBox(ex.ToString)
End Try

then to save it to access:

SQL

SQL = "INSERT INTO DB VALUES ('" & UserName & "', 'bytImage' )"

my code for retrieving:
the same as above.

im still getting the same error.

You are on the right lines (although you don't need to dim it as a new bitmap - you can use the existing one).

VB

Dim bmpImage As New Bitmap(PictureBox1.Image)

bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)

Becomes

VB

PictureBox1.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)

All you need to do is change the way you save it to the DB (You can't just pass the bytes as part of a text string - the DB will try to interpret them as a command and fail)

VB

Using con As New SqlConnection(strConnect)
	con.Open()
	Using com As New SqlCommand("INSERT INTO myTable (nameOfImageColumnInDB) VALUES (@IMAGE)", con)
		com.Parameters.AddWithValue("@IMAGE", bytImage)
		com.ExecuteNonQuery()
	End Using
End Using

You may need to use OleDbConnection and OleDbCommand instead of SqlConnection and SqlCommand

Posted 2-Mar-12 3:42am

OriginalGriff

Updated 3-Mar-12 0:52am

v2

Comments

kimsnap 2-Mar-12 10:00am

Hi, thank you forr your reply.

the image is from ink, converted to base 64 String, converted to byte array then finally to image. then saved into access into a column with OLEObject type.. Is there a problem with the conversion?

i havent been able to see if im saving the image right because it is outputted in access as "long binary data" and i cant retrieve them.

OriginalGriff 2-Mar-12 10:15am

Probably, yes.
If you have it as an Image (i.e. a object that you can display in a PictureBox with no further modifications) then how did you save that to Access? You should have had to convert it to a byte array first...

kimsnap 2-Mar-12 10:29am

uhm what do you mean? i converted it to byte array. It is outputted in a textbox, then to this:
PictureBox1.Image = FromInk.Base64toImage(TextBox1.Text)
Then that is the saved value to database.

the ink converted to "base 64 string" to "byte array".
im lost at what you said. Sorry, can you tell me what's wrong with my procedure?

OriginalGriff 2-Mar-12 10:41am

If you are saving the TextBox1.Text directly to the DB, then you have to perform exactly the same steps to generate the image when you take it out again.
If you are saving the PictureBox.Image directly to the DB, then the chances are that what you have actually saved is the text "System.Drawing.Image" since that is the default ToString response.

When I save an image to a DB, I convert it to a byte array:
Dim ms As New MemoryStream()
imageIn.Save(ms, System.Drawing.Imaging.ImageFormat.Bmp)
Return ms.ToArray()
and then save that.
I would then use code very like yours to read it back (except I would just cast the DB reader column value to a byte array)

kimsnap 2-Mar-12 10:53am

okay.. so ill cut off this part:
--> PictureBox1.Image = FromInk.Base64toImage(TextBox1.Text)

or ill append
Dim ms As New MemoryStream()
imageIn.Save(ms, System.Drawing.Imaging.ImageFormat.Bmp)
Return ms.ToArray()
after this:
PictureBox1.Image = FromInk.Base64toImage(TextBox1.Text) ??

and what is imageIn? will i declare that as byte?

OriginalGriff 2-Mar-12 11:55am

imageIn == image In

I.e. the Image class instance you want to save to the DB.

kimsnap 2-Mar-12 12:38pm

Thank you.. ill try this..

kimsnap 3-Mar-12 6:32am

Hi, ive tried to do what you said, here it goes:

Dim bytImage() As Byte

Try
Dim ms As New System.IO.MemoryStream
Dim bmpImage As New Bitmap(PictureBox1.Image)

bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
bytImage = ms.ToArray()
ms.Close()
Catch ex As Exception
MsgBox(ex.ToString)
End Try

then to save it to access:
SQL = "INSERT INTO DB VALUES ('" & UserName & "', 'bytImage' )"

my code for retrieving:
the same as above.

im still getting the same error.

kimsnap 4-Mar-12 2:34am

Hi, again :) I really hope you wont get tired with me.
I have finally retrieved my image, but the look isnt the same. it changes color. Like reversing it..

OriginalGriff 5-Mar-12 5:03am

Not a problem.
Let's go back to the beginning, and see where you are.
Copy and paste the code you use to save the image, and the code you use to retrieve it - so I can see exactly what you have!
So that's the PictureBox.Image property into the DB, and the DB read and load into PictureBox.Image code.

kimsnap 6-Mar-12 3:16am

Hi,i have a groupbox, there i draw with ink.
i have a 'get image button' which contains this:
TextBox1.Text = InkDraw.GetBase64(Sig_InkCollector)
PictureBox1.Image = InkDraw.Base64toImage(TextBox1.Text)
_____
Sig_InkCollector contains this:
Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Sig_InkCollector = New InkCollector(GroupBox1.Handle)
Sig_InkCollector.Enabled = True
Sig_InkCollector.AutoRedraw = True
End Sub
_____

in a InkDraw is a module that contains the following functions:
Function GetBase64(ByVal InkCollector As InkCollector) As String
Dim utf8 As UTF8Encoding = New UTF8Encoding()
InkCollector.Enabled = False
Return utf8.GetString(InkCollector.Ink.Save(PersistenceFormat.Base64InkSerializedFormat, CompressionMode.Maximum))
InkCollector.Enabled = True
End Function

Public Function Base64toImage(ByVal Base64 As String) As System.Drawing.Image
Dim utf8 As UTF8Encoding = New UTF8Encoding()
Dim imgSig As System.Drawing.Image
Dim tmploadedInk As Ink = New Ink()
Dim strGIF As String
Dim imageBytes() As Byte
Dim MS As MemoryStream
tmploadedInk.Load(utf8.GetBytes(Base64))
strGIF = Convert.ToBase64String(tmploadedInk.Save(PersistenceFormat.Gif, CompressionMode.Maximum))
imageBytes = Convert.FromBase64String(strGIF)
MS = New MemoryStream(imageBytes, 0, imageBytes.Length)
MS.Write(imageBytes, 0, imageBytes.Length)
imgSig = Image.FromStream(MS, True)
Return imgSig
End Function
_____

and this is my code for saving:
Private Sub SaveData()
Try
Dim cn As New OleDb.OleDbConnection
Dim cmd As OleDb.OleDbCommand

cn.ConnectionString = mstrConn
cn.Open()
cmd = cn.CreateCommand()
cmd.CommandText = "INSERT INTO DB VALUES (@UserName, @IMAGE)"

Dim bytImage() As Byte

Try
Dim ms As New System.IO.MemoryStream
Dim pb_Image = InkDraw.Base64toImage(TextBox1.Text)
Dim bmpImage As New Bitmap(pb_Image)

bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
bytImage = ms.ToArray()
ms.Close()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
cmd.Parameters.Add(New OleDb.OleDbParameter("@UserName", OleDb.OleDbType.VarChar, 120))
cmd.Parameters.Add(New OleDb.OleDbParameter("@IMAGE", OleDb.OleDbType.Binary))

cmd.Parameters("@UserName").Value = UNameTB.Text
cmd.Parameters("@IMAGE").Value = bytImage
cmd.ExecuteNonQuery()

cmd.Dispose()
cn.Dispose()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
__________

My code in retrieving in next comment

kimsnap 6-Mar-12 3:20am

MY CODE FOR RETRIEVING
Imports System.Data.OleDb
Imports System.IO
Imports System.Drawing.Imaging

Public Class Retrieve
Private mstrConn As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & Application.StartupPath & "\SVDB.accdb;"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ShowDetails()
End Sub
Private Sub ShowDetails()
Try
Dim cn As New OleDb.OleDbConnection
Dim cmd As OleDb.OleDbCommand
Dim dr As OleDb.OleDbDataReader

cn.ConnectionString = mstrConn
cn.Open()

cmd = cn.CreateCommand()
cmd.CommandText = "SELECT Signature FROM DB WHERE UserName = '" & TextBox1.Text & "'"

dr = cmd.ExecuteReader

If dr.Read Then
Dim bytImage() As Byte

Try
bytImage = CType(dr(0), Byte())
Dim ms As New System.IO.MemoryStream(bytImage)
Dim bmImage As New Bitmap(ms)
ms.Close()

PictureBox1.Image = bmImage
PictureBox1.Refresh()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
Else
MsgBox("No Record.")
End If

dr.Close()
cn.Close()
cmd.Dispose()
cn.Dispose()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Class

________________________

Links for save retrieve image
-> https://lh6.googleusercontent.com/-SwjeB5Py8Is/T1XHIbYH9CI/AAAAAAAAABo/Bw1jWIIbWYA/h301/Save.jpg
-> https://lh6.googleusercontent.com/-Z_b6OAMWHLc/T1XHStN-3TI/AAAAAAAAACA/Kbz_KcYTIKQ/w301/Retrieve.jpg

OriginalGriff 6-Mar-12 6:20am

Interesting.
I have set up my system so that it works the same as yours (barring the Ink part, which I don't use)
And it works fine. The image goes into and out of the database without problems.
Try something for me:
When you do your save code, just before the line

bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)

Add another:

bmpImage.Save("C:\Temp\mypic.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

(You might want to change the path to match your system - it doesn't matter where you put it as long as you can find it afterwards)
Then look at the file with Explorer and see what you have.

kimsnap 6-Mar-12 7:37am

thank you. Ill try that. :)

OriginalGriff 6-Mar-12 8:26am

Let me know what you get...

kimsnap 6-Mar-12 9:13am

I am getting an error:
here's the link:
https://lh4.googleusercontent.com/-7O5CNw3BPkM/T1YbJkjP1LI/AAAAAAAAADo/rjcelE2btAQ/w402/error.jpg

https://lh3.googleusercontent.com/-Hgqtz6Or46E/T1YbUG4UqwI/AAAAAAAAAEI/z6Rpvoaatzg/h301/error2.jpg

OriginalGriff 6-Mar-12 10:14am

That you are getting a GDI error when you try to save the image implies that there is something wrong with it - which would explain why you are subsequently having problems displaying it.

So, we need to find out what is wrong with the image (or find a way round it). I notice you are saving it in GIF format in your Base64toImage routine - can you save it to any other format?

kimsnap 6-Mar-12 10:54am

thanks, what format preferably?

OriginalGriff 6-Mar-12 11:00am

Safest (but not necessarily the best) is BMP - it doesn't involve palettes unlike gif, or compression unlike jpg. Probably not the best for the production app, but get the thin k working first! :laugh:

kimsnap 6-Mar-12 11:05am

alryt. thank you good sir! :)

kimsnap 7-Mar-12 8:20am

it worked :)Thank you!

OriginalGriff 7-Mar-12 8:39am

Glad to hear it!
You are more than welcome :laugh: