storing images into DB - Visual Basic Discussion Boards

thanks, but can this timer can stop in another form?

for example, your timer starts at form1, the timer is only set in 60 minutes. When 60 min. is over and you are in the form3 already.. it will go automatically to the last form (form10 for example). is it possible?

Yes, of course. How it's done depends however very much on how you move from one form to another.

Despite everything, the person most likely to be fooling you next is yourself.

ok! thanks! i got it already... thank you so much to all those who help! Wink | ;)

Hi,

i added "ShockWave Flash Object" from .COM (rt clicking toolbox and by choose Items)
when i dragged it to form
it shows error,
Failed to import the ActiveX control. Please ensure it is properly registered.

How can i solve this..
is there any other method.

Thanks Laugh | :laugh:

Hello,

You can have a look at this link. It will give you some idea.

http://www.devx.com/vb2themax/Tip/18742[^]

I hope this will help.

Regards,
Allen

Allen Smith

Software Engineer
ComponentOne LLC
www.componentone.com

i am going through that.
thanks for your help Laugh | :laugh:

i am using vb express 2005 edition.
vb6 is not installed in my computer.
Wink | ;)

i want to save image in db
i m using ms access db
images are stored in database successfully.
i have added a list box on the form and i want that when i save image in db so that image name should be added in list box
but i don't know how to do that

i m also giving code below
any body can help me.
thanks

Option Strict On
Imports System.Data.SqlClient
Imports System.IO

Public Class Form1
Inherits System.Windows.Forms.Form
Dim conn As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Replace(Application.StartupPath, "bin", "") & "DB.mdb;Mode=ReadWrite;Persist Security Info=False")

#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents PicBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents OleDbConnection1 As System.Data.OleDb.OleDbConnection
Friend WithEvents OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter
Friend WithEvents OleDbInsertCommand1 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents DataSet11 As LoadinImages.DataSet1

<system.diagnostics.debuggerstepthrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
Me.Label1 = New System.Windows.Forms.Label
Me.ListBox1 = New System.Windows.Forms.ListBox
Me.DataSet11 = New LoadinImages.DataSet1
Me.PicBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection
Me.OleDbDataAdapter1 = New System.Data.OleDb.OleDbDataAdapter
Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand
Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand
Me.TextBox1 = New System.Windows.Forms.TextBox
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PicBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Button1
'
Me.Button1.ForeColor = System.Drawing.Color.Black
Me.Button1.Location = New System.Drawing.Point(121, 376)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Browse"
'
'Button2
'
Me.Button2.ForeColor = System.Drawing.Color.Black
Me.Button2.Location = New System.Drawing.Point(220, 377)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 1
Me.Button2.Text = "Save"
'
'PictureBox1
'
Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.PictureBox1.Location = New System.Drawing.Point(24, 16)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(301, 304)
Me.PictureBox1.TabIndex = 3
Me.PictureBox1.TabStop = False
'
'Label1
'
Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label1.ForeColor = System.Drawing.Color.Red
Me.Label1.Location = New System.Drawing.Point(24, 341)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(427, 32)
Me.Label1.TabIndex = 4
'
'ListBox1
'
Me.ListBox1.BackColor = System.Drawing.SystemColors.Control
Me.ListBox1.HorizontalScrollbar = True
Me.ListBox1.Location = New System.Drawing.Point(331, 16)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.ScrollAlwaysVisible = True
Me.ListBox1.Size = New System.Drawing.Size(120, 303)
Me.ListBox1.TabIndex = 7
'
'DataSet11
'
Me.DataSet11.DataSetName = "DataSet1"
Me.DataSet11.Locale = New System.Globalization.CultureInfo("en-US")
Me.DataSet11.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'PicBindingSource
'
Me.PicBindingSource.DataMember = "Pic"
Me.PicBindingSource.DataSource = Me.DataSet11
'
'OleDbConnection1
'
Me.OleDbConnection1.ConnectionString = resources.GetString("OleDbConnection1.ConnectionString")
'
'OleDbDataAdapter1
'
Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand1
Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1
Me.OleDbDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Images", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("Filename", "Filename"), New System.Data.Common.DataColumnMapping("Photo", "Photo")})})
'
'OleDbInsertCommand1
'
Me.OleDbInsertCommand1.CommandText = "INSERT INTO Images(Filename, Photo) VALUES (?, ?)"
Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
Me.OleDbInsertCommand1.Parameters.AddRange(New System.Data.OleDb.OleDbParameter() {New System.Data.OleDb.OleDbParameter("Filename", System.Data.OleDb.OleDbType.VarWChar, 50, "Filename"), New System.Data.OleDb.OleDbParameter("Photo", System.Data.OleDb.OleDbType.VarBinary, 0, "Photo")})
'
'OleDbSelectCommand1
'
Me.OleDbSelectCommand1.CommandText = "SELECT Filename, Photo FROM Images"
Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(124, 406)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(171, 20)
Me.TextBox1.TabIndex = 8
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.SystemColors.Control
Me.ClientSize = New System.Drawing.Size(466, 438)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.ListBox1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.ForeColor = System.Drawing.Color.White
Me.Name = "Form1"
Me.Text = "DataBase Images"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PicBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()

End Sub

#End Region

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim thumbNail As Image
With OpenFileDialog1

.Filter = "All Files|*.*|Bitmaps|*.bmp|GIFs|*.gif|JPEGs|*.jpg"
.FilterIndex = 2
End With

If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
With PictureBox1
.Image = Image.FromFile(Me.OpenFileDialog1.FileName)
.SizeMode = PictureBoxSizeMode.CenterImage
End With
Dim theImage As New Bitmap(OpenFileDialog1.FileName)
PictureBox1.Image = theImage
thumbNail = theImage.GetThumbnailImage(PictureBox1.Height, PictureBox1.Width, Nothing, Nothing)
PictureBox1.Image = thumbNail
End If
Me.Label1.Text = Me.OpenFileDialog1.FileName.ToString
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
On Error GoTo fix

If TextBox1.Text = "" Then
MsgBox("Please Enter Name File")
TextBox1.Focus()
Exit Sub
End If

' Open the file
Dim fs As FileStream = New FileStream(OpenFileDialog1.FileName, FileMode.Open, FileAccess.Read)
Dim s As String = TextBox1.Text
'Read the output in binary reader
Dim r As BinaryReader = New BinaryReader(fs)
'Declare a byte array to save the content of the file to be saved
Dim FileByteArray(CInt(fs.Length - 1)) As Byte
r.Read(FileByteArray, 0, CInt(fs.Length))
Dim sql As String = "INSERT INTO Images (Filename,Photo) VALUES (?,?)"
Dim i As Integer

ListBox1.Items.Add(TextBox1.Text)

MessageBox.Show("Image Succesfully inserted !", "Photo Album", MessageBoxButtons.OK, MessageBoxIcon.Information)

fix:
Exit Sub
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Dim arrayImage() As Byte = CType(Me.DataSet11.Tables(0).Rows(Me.ListBox1.SelectedIndex)("photo"), Byte())
Dim ms As New MemoryStream(arrayImage)
With Me.PictureBox1
.Image = Image.FromStream(ms)
.SizeMode = PictureBoxSizeMode.CenterImage

End With
End Sub
End Class

Aamir Mustafa

There's too much code here. Most of it is irrelevent to the problem at hand.

Identify which bit of code you need help with and post it only.

Paul Marfleet

"No, his mind is not for rent
To any God or government"
Tom Sawyer - Rush

Seriously, your code is unreadable. Using default names like button1 and listview2, means I cannot scan this and have any idea what each method is supposed to do, without examining the code closely.

You're talking about listboxes, but the code you posted is putting the image in a picture box. Does this code work ? If so, there's no problem with your database, or any of the code you have posted.

If you just need to know how to show an image in a listbox, then you should probably look here[^].

Christian Graus - Microsoft MVP - C++

"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

Christian Graus wrote:
Using default names like button1 and listview2

This is something I try to get my students to stay away from, and amazingly some still do it. Points get docked when it happens.

"I guess it's what separates the professionals from the drag and drop, girly wirly, namby pamby, wishy washy, can't code for crap types." - Pete O'Hanlon

Thanks for the worthless code dump Sleepy | :zzz:

Just post the code where you suspect the problem is occurring Hmmm | :|

"I guess it's what separates the professionals from the drag and drop, girly wirly, namby pamby, wishy washy, can't code for crap types." - Pete O'Hanlon

i have been looking everywhere for help with this project please someone help me:

i want to create a program that would run on a pc (which would be connected to a blue tooth dongle) and would connect to a bluetooth cell phone. the program would send a text message and multiple cell phone numbers to the cell phone, and instruct the cell phone to send out that message to all the given cellphone numbers.

i cant afford to buy any api's (im a volunteer in africa doing hiv/aids work). if someone could just explain to me how to do this in vb.net (example code?) or at least tell me the step by step processes i would need to do, id appreciate it. also, if i need any dll or anything let me know. my deadline is quickly approaching to get this program done (and i just want to know)

im using visual basic 2005 express edition.

I'm not sure that a standard API exists to control a cell phone like that ? I'd have thought you'd do better to use a phone that is a Windows device and write a program for it, or research ways to send a text message via a webservice so you just needed to connect to the web, and not a cell phone ?

http://www.google.com.au/search?source=ig&hl=en&rlz=&q=send+sms+vb.net&meta=[^]

Christian Graus - Microsoft MVP - C++

"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

thanks for repplying. i cant send through the net. in botswana all cell phone services are prepaid. because of this, the companies do not give out there address to send the text messages. even if i could, im sure id be breaking some law. im sure theres a way. id imagine i would need the cellphones model number or something to connect to it. the usb dongle would be plug and play

The model number isn't going to help much, .NET doesn't have classes to talk to a mobile phone over bluetooth AFAIK. I assume you can connect to the web, or how are you able to post here ? If you can get on the web, then you can use a webservice that connects to an SMS provider.

Christian Graus - Microsoft MVP - C++

"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

i have access to internet but the office im peploying the software to does not

Write it as a compact framework app and deploy it to a windows mobile phone. IIRC theres a free managed library around that does a fair bit of stuff like SMS.

Mark Churchill
Director
Dunn & Churchill
Free Download:
Diamond Binding: The simple, powerful, reliable, and effective data layer toolkit for Visual Studio.

that wont work either. i need to keep it pc side because i need to store all messages, timestamps, recipients, etc in a database for record keeping purposes.

i tried doing a cellphone connection using usb dongle way-back
think of it as trying to control a serial comm port and just try using the serial port in
.net class

the bluetooth is just a type of serial port so it works exactly like using a serial port
understand?tryna find my resources if i do, will post them here

but read on AT Command Set for serial modems

phatkin

hi,there
please i want a source code in vb.net that handle this situation :
" my application(pj) is runnig from usb flash memory and when i right click on any file in c:\ ,d:\ ,...
and do send to my flash memory , i want my running application(my project) to handle this case and puase the copying , and take the file path ,so that my application will deal with it "

forgive me for my poor eng language , i hope you understand

i wait for an answer

thanks.

Abdduke wrote:
please i want a source code in vb.net that handle this situation :

You want someone to do your coursework so you can graduate? Don't you think that's a bit dishonest?

Paul Marfleet

"No, his mind is not for rent
To any God or government"
Tom Sawyer - Rush

no i dont ,because i am working so hard on my project and i stuck on this functionality , and i refere to many doc. & profs. in my university ,they dont know how to do this , and tell me to learn form a good programmer or to read some books . the problem ,i dont know the subject or which book i have to read.

so , dont tell me that is dishonest.
if you do not want to help and learn other ,dont judge them.

It is dishonest to ask others to do your coursework and then claim the work as your own. Read the forum guidelines, paying specific attention to rules 2 & 9.

If you graduate based on someone else's work, you have deceived both yourself and your university. If you get a job based on a qualification you didn't deserve, are you going to continue to get other people to do your work for you? You won't be able to hide your lack of ability forever; you will be found out and probably fired.

I find it hard to believe that no one in your department can help you, unless you are attending a really poor university. Anyway, if you do ask for help on CodeProject, make your questions more specific. People will be happy to offer assistance with particular problems, but no one will give you a complete solution. This forum is for people who want to learn, not for the lazy and/or stupid.

Paul Marfleet

"No, his mind is not for rent
To any God or government"
Tom Sawyer - Rush

pmarfleet wrote:
find it hard to believe that no one in your department can help you

Same here.

pmarfleet wrote:
attending a really poor university

Probably some no-accredited institution. You get what you pay for.

"I guess it's what separates the professionals from the drag and drop, girly wirly, namby pamby, wishy washy, can't code for crap types." - Pete O'Hanlon