update ole object field in ms access 2007 from vb.net

Question

0.00/5 (No votes)

See more:

How can i update an ole object field in ms access 2007 from c#.net?
Following is the code i have written but is giving me error
'No Value given for one or more parameters'

VB

FileStream fs = default(FileStream);
fs = new FileStream(imgName, FileMode.Open, FileAccess.Read);
byte[] picByte = new byte[fs.Length];
fs.Read(picByte, 0, System.Convert.ToInt32(fs.Length));
fs.Close();

string strSQL = "Update Questions Set QuestionImg = @Img Where QueId = " + RecId;
OleDbCommand cmd = new OleDbCommand(strSQL, new OleDbConnection(conn));

OleDbParameter imgParam = new OleDbParameter();
imgParam.OleDbType = OleDbType.Binary;
imgParam.ParameterName = "Img";
imgParam.Value = picByte;
cmd.Parameters.Add(imgParam);

cmd.Connection.Open();
cmd.ExecuteNonQuery();
cmd.Connection.Close();

cmd.Dispose();

Posted 26-Feb-13 15:38pm

mistryshailesh

Updated 26-Feb-13 16:18pm

Abhishek Pant

v3

Add a Solution

Comments

Just eg 27-Feb-13 2:47am

change
string strSQL = "Update Questions Set QuestionImg = @Img Where QueId = " + RecId;
to
string strSQL = "Update Questions Set QuestionImg = @Img Where QueId = " + RecId & ";"

2 solutions

Add a Solution

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

Just eg · Answer 1 · 2013-02-26T20:58:00

VB

Function Update(ByVal RecId As Integer, ByVal Imge As Byte()) As Boolean
        Dim Ret As Boolean = True
        Using oCn As New OleDb.OleDbConnection(StrConnection)
            Try
                oCn.Open()
                Using oCmd As New OleDb.OleDbCommand()
                    oCmd.Connection = oCn
                    oCmd.CommandText = "Update Questions Set QuestionImg = @Img Where QueId = " + RecId & ";"
                    oCmd.CommandType = CommandType.Text

                    oCmd.Parameters.Add(New OleDb.OleDbParameter("@Img", OleDb.OleDbType.Binary, 2147483647, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, IIf(IsNothing(Imge), DBNull.Value, Imge)))


                    oCmd.ExecuteNonQuery()

                End Using

            Catch ex As Exception
                Throw New Exception("_TBIMAGE::Update::Error Occured.", ex)
                Ret = False
            End Try
        End Using
        Return Ret

    End Function

Just eg · Answer 2 · 2013-02-27T19:43:00

VB

PictureBox1.Image = GetBitmapFromByte("ImageFieldName")

   Function GetBitmapFromByte(ImgRecord As Byte) As Bitmap
       Dim _MyImage As Bitmap
       If (Not IsNothing(ImgRecord)) Then
           Using ms As New IO.MemoryStream(ImgRecord)
               _MyImage = New Bitmap(ms)
               ms.Close()
           End Using
       Else
           _MyImage = Nothing
       End If
       Return _MyImage
   End Function

update ole object field in ms access 2007 from vb.net

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0

update ole object field in ms access 2007 from vb.net

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0

Existing Members

...or Join us