|
I'm trying to save the image to sql database, there is error "object must implement Iconvertible" when I run it. Here is my code:
(image is the location + the name of the image)
Try
Dim strFn As String = image
Dim fiImage As FileInfo = New FileInfo(strFn)
Me.m_lImageFileLength = fiImage.Length
Dim fs As FileStream = New FileStream(strFn, FileMode.Open, FileAccess.Read, FileShare.Read)
m_barrImg = New Byte(Convert.ToInt32(Me.m_lImageFileLength)) {}
Dim iBytesRead As Integer = fs.Read(m_barrImg, 0, Convert.ToInt32(Me.m_lImageFileLength))
fs.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Try
Me.SqlConnection1.Open()
If SqlCommand1.Parameters.Count = 0 Then
Me.SqlCommand1.CommandText = "UPDATE HRRecordIndexData SET pdf_location = @Picture WHERE entity_id = @ID"
Me.SqlCommand1.Parameters.Add("@Picture", System.Data.SqlDbType.Image)
Me.SqlCommand1.Parameters.Add("@ID", System.Data.SqlDbType.Int, 4)
End If
Me.SqlCommand1.Parameters("@Picture").Value = Me.m_barrImg
Me.SqlCommand1.Parameters("@ID").Value = Entity
Me.SqlCommand1.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
Me.SqlConnection1.Close()
End Try
If there is everyone knows what it needs to fix at my code, I would very appreciate it .. thanks!
Lisa
|
|
|
|
|
Lisa,
are you sure the field "pdf_location" has type "image"?
Regards
Ray
|
|
|
|
|
Hello, Ray,
I created another field called thumbnail and the datatype is image, and I run it again, the result is the same, it still gave me the same error.
thanks!
Lisa
|
|
|
|
|
Hi,
I have similar code and it works.
The difference is only in parameter type definition :
System.Data.SqlDbType.VarBinary , not image.
Here is my code:
fv =me.openFileDialog1.FileName
Dim fs As New FileStream(fv, FileMode.OpenOrCreate, FileAccess.Read)
Dim MyData(fs.Length) As Byte
fs.Read(MyData, 0, CInt(fs.Length))
fs.Close()
kom.Connection=conn
kom.CommandText="INSERT INTO PDF (DATA,F_NAME) VALUES (@duom,@failas)"
dim param1 as New SqlParameter("@duom", System.Data.SqlDbType.VarBinary)
param1.Value=MyData
kom.Parameters.Add(param1)
dim param2 as New SqlParameter("@failas", System.Data.SqlDbType.VarChar )
param2.Value=fv
kom.Parameters.Add(param2)
conn.Open
dim res as Integer=kom.ExecuteNonQuery()
|
|
|
|
|
{vb .net 2003}
I'm working on creating a few side panels for my application that will slide in and slide out as needed. I have one docked on the left side, so it will resize with the window and still look the way I want it to. To "slide" it, I'm using a timer that decreases the width of it, making it look like its sliding out. I want to move all the controls in it (labels and picture boxes) to follow the sliding motion but I can't change the width without screwing up how the text looks, so I decrease the left value of the label as I decrease the width of the panel.
My question is this:
Is there a way to adjust the left property of all control in a panel at the same time without having to hardcode each individual label? I thought about doing a control array but then I would need seperate arrays for each type of element. Any idea?
Thanks for your time,
BAM
|
|
|
|
|
Instead of resizing the panel to make appear to slide, try changing it's location so that the panel slides off the left side of the form. The X portion of the Location can be in negative numbers and it should still work.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
I tried changing panel1.location.x to a negative number and the panel won't budge. I think its because the panel is docked to that left side.
|
|
|
|
|
That's why. You have to turn the dock off in order for it to work. Just make you Anchor the Top and Bottom portions of the Panel to the form after you get it's dimensions set properly.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
I figured out what works best for me. Turning off the docking features completely messed up everything that was going on with resizing the window, so I used the approach of decreasing width. To deal with the items inside, I used the Controls array that contains every object in a panel to adjust the width. Heres the code:
For intIndex = 0 to Me. Controls(panel).Controls.Count - 1
Me.Controls(panel).Controls(intIndex).left = Me.Controls(panel).Controls(intIndex).left - operation
next intIndex
With this, operation is set to positive or negative 1, depending on if i'd like to show or hide the item. panel is set to the number that corresponds to the panel. I really don't know how to determine besides trial and error (or trial and messagebox).
Thanks again,
BAM
|
|
|
|
|
i m trying to fetch the file names from a specific path.
.Getdirectories .
but the order of files get changes as seen in windows explorer.
for eg
in windows explorer
a2.txt
a11.txt
a1.txt
and what i am getting is
a1.txt
a11.txt
a2.txt
i want in the same order as seen in windows xp.
can anybody suggest me how to solve
chirag
|
|
|
|
|
You have to sort the files yourself, in whatever control your using to display them. The order of filenames that is returned is not guaranteed.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
does anyone fancy helping me with this program , im very new to this and even thought ive got certain books, they only cover vb6 and not .net. if you have msn im ed209_59@hotmail.com thanks
|
|
|
|
|
Help you with what? You haven't said anything about the program!
themusicman9 wrote: if you have msn im ed209_59@hotmail.com
The only people who care about your email address in the forums are spammers!
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Thats a lie, i care. This forum is about helping each other i am willing to help however i can, when i can, i am however busy with school. But i will offer any assistance i can.
Posted by The ANZAC
|
|
|
|
|
That might have come out wrong, but what I would have said is, be careful who you give the email address to. Especially in an age where spam is thiriving.
|
|
|
|
|
In my project I have a dataset. In the dataset I have added a parameter in tableadapter's selectcommand. In code how can I modify this parameter?
|
|
|
|
|
Show us your code, and we'll show you how to modify it.
|
|
|
|
|
Well, VB generated the code. Here is what I did:
- Created a data source in the Data Source window.
- Opened up the data source in the Solution Explorer.
- Highlited the Table Adapter on the data source object.
- Modified the Command Text propery by setting a field filter equal to '=?'
- VB automatically generates a Parameter for the field filter.
To populate the data table I do this:
MyTableAdapter.fill(MyDataSet.MyDataTable, companyvalue)
It fills the table with records that match the value of companyvalue.
My questions how can I modify the Commant Text and Parameter in code. After the code modifies this I can change the parameter to something else. For example
MyTableAdapter.fill(MyDataSet.MyDataTable, cityvalue)
|
|
|
|
|
dptalt wrote: Well, VB generated the code.
So, what does the generated code look like? (I don't generate code because it frequently produces garbage that is difficult to maintain)
|
|
|
|
|
Hi,
i m passing a foder name from textbox
i want to know wherther ths folder name is present in treeview or not
plz tell me if u know
sanjaya
sanjaya kumar dhar
|
|
|
|
|
Hi,
I think the possible and fastes solution could be when you are adding nodes in treeview as folder names you also enter the nodes key as same folder name and we know the key is unique in treeview.
so when you try to enter new node with same key it will generate error.
try to trap this error.
if error raised it means the node is alreadt present in the tree.
hope this works.
Nitin...
|
|
|
|
|
hi
i need an example how to open word document from
vb.net and also the dll file (reference)
thanks Eyal
eyalso
|
|
|
|
|
Here are the DLLs
Interop.Microsoft.Office.Core.dll
Interop.Word.dll
I'm not sure what exactly you're trying to accomplish with word, but here is some code which we have doing a merge in word.
Hope this helps
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim wrdMailMerge As Word.MailMerge
MainScreen.lblStatus.Text = "Starting Mail Merge Process"
MainScreen.Refresh()
'open word document and perform mail merge
wrdApp = CreateObject("Word.Application")
wrdApp.Visible = blnShowDetail
wrdDoc = wrdApp.Documents.Open(strToFilePath & strMergeDoc)
wrdMailMerge = wrdDoc.MailMerge
wrdMailMerge.Execute(False)
Lost in the vast sea of .NET
|
|
|
|
|
hi
i ve designed an application in which whenever i enter an amount in a textbox,then that amount will be displaced in the word format of the currency in another textbox.
Eg. if i enter 12225 then it will display as " twelve thousand and two hundred twenty five only"
please help me in this regard.
u can mail me at pradipta_pkc@indiatimes.com
thanks in advance
i m pradip kumar from india,working in vb.net & asp.net
|
|
|
|
|
Asking the same question again and again until yoiu find someone to write it for you is very rude.
All you have to do is Google for it, study the code samples you find, then write the code yourself. VB6 isn't too different from VB.NET. If you know VB.NET, converting the code form VB6 should be very easy.
Your previous post[^]
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
