|
Just use: My.Computer.Audio.Play(My.Resources.(YourFile), AudioPlayMode.WaitToComplete).
harveyhanson wrote:
Also, can i use mp3 or am i stuck with wav?
Unless you want to embed Windows Media Player into your app (which would be a pain), you can only use .wav files. Hope this helps.
Trinity: Neo... nobody has ever done this before.
Neo: That's why it's going to work.
|
|
|
|
|
can anyone help me to write a sample update query to update some text and interger fields in my database..i am using sql server 2000...
please send me a sample one that works.. so i can test it and modify it to use in my project...thanks.. having problem writing mine..
Nab
|
|
|
|
|
Why dont you post what you have so far and we can point you in the correct direction.
CleAkO
"I think you'll be okay here, they have a thin candy shell. 'Surprised you didn't know that." - Tommy Boy
"Fill it up again! Fill it up again! Once it hits your lips, it's so good!" - Frank the Tank (Old School)
|
|
|
|
|
its generated by webmatrix.. but its just not updating a field that is already in the table which has a string value...don't know why..
Dim queryString As String = "UPDATE [R_Application] SET [Fname]=@Fname, [Mname]=@Mname, [Lname]=@Lname WHERE (" & _
"[R_Application].[AppId] = @AppId)"
if the field was null then it works..but if some value exist..it doesn't update...
Nab
|
|
|
|
|
Is this the same query it always uses?
CleAkO
"I think you'll be okay here, they have a thin candy shell. 'Surprised you didn't know that." - Tommy Boy
"Fill it up again! Fill it up again! Once it hits your lips, it's so good!" - Frank the Tank (Old School)
|
|
|
|
|
yes same query..what wrong with it?... just do one and send it to me..let me try it
Nab
|
|
|
|
|
You have to show more of your code.
What you describe doesn't make sense if one only looks at the SQL query. An update query doesn't care if the value in the field is null or not, it updates the field in either case.
---
single minded; short sighted; long gone;
|
|
|
|
|
Ok..this is the exact query i am using....
Function testUpdate(ByVal appId As Integer, ByVal fname As String, ByVal lname As String) As Integer
Dim connectionString As String = "server='(local)'; trusted_connection=true; database='TESTDBfhms'"
Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionString)
Dim queryString As String = "UPDATE [R_Application] SET [Fname]=@Fname, [Lname]=@Lname WHERE ([R_Application]."& _
"[AppId] = @AppId)"
Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection
Dim dbParam_appId As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
dbParam_appId.ParameterName = "@AppId"
dbParam_appId.Value = appId
dbParam_appId.DbType = System.Data.DbType.Int32
dbCommand.Parameters.Add(dbParam_appId)
Dim dbParam_fname As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
dbParam_fname.ParameterName = "@Fname"
dbParam_fname.Value = fname
dbParam_fname.DbType = System.Data.DbType.[String]
dbCommand.Parameters.Add(dbParam_fname)
Dim dbParam_lname As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
dbParam_lname.ParameterName = "@Lname"
dbParam_lname.Value = lname
dbParam_lname.DbType = System.Data.DbType.[String]
dbCommand.Parameters.Add(dbParam_lname)
Dim rowsAffected As Integer = 0
dbConnection.Open
Try
rowsAffected = dbCommand.ExecuteNonQuery
Finally
dbConnection.Close
End Try
Return rowsAffected
End Function
Nab
|
|
|
|
|
There is nothing wrong with that code.
Debug the code and watch where you get the values from, as I suggested in the other thread.
---
single minded; short sighted; long gone;
|
|
|
|
|
I cant seem to remember how to record keystrokes. Basically i need to use the keystroke value in an IF Statement to say,
if back or delete were pressed then
end if
thanks in advance
Karma
|
|
|
|
|
The windows form as a KeyPress event that you can look at to retrieve the keystroke.
CleAkO
"I think you'll be okay here, they have a thin candy shell. 'Surprised you didn't know that." - Tommy Boy
"Fill it up again! Fill it up again! Once it hits your lips, it's so good!" - Frank the Tank (Old School)
|
|
|
|
|
Here is some code that should work for you...
Private Sub yourtextbox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles yourtextbox.KeyDown
'Only allow some control keys
If e.KeyValue = Keys.Delete OrElse e.KeyValue = Keys.Back Then
'good key press
Else
e.Handled = True
End If
End Sub
Hope that helps.
Ben
|
|
|
|
|
use the key down event handler as below
Private Sub txtTendered_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtTendered.KeyDown
If e.KeyCode = Keys.delete Then
do something here
elseif e.keycode = keys.enter then
do something else
end if
end sub
hope this helps
Nab
|
|
|
|
|
hi there i hope you can help me to find a code for this program..i need it asap cause this is my exam...i hope my mgrespond d2...thankz..uumwaaaaaaaaaahh
at last im officially a member nah?!watz up guyz!
|
|
|
|
|
This same question is posted weekly, just search for it.
CleAkO
"I think you'll be okay here, they have a thin candy shell. 'Surprised you didn't know that." - Tommy Boy
"Fill it up again! Fill it up again! Once it hits your lips, it's so good!" - Frank the Tank (Old School)
|
|
|
|
|
Let me get this straight. You want us to find prewritten code for you, I'm assuming it's a quiz program, so you can pass an exam?? Correct?
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
i need it asap cause this is my exam
He says so right there.
CleAkO
"I think you'll be okay here, they have a thin candy shell. 'Surprised you didn't know that." - Tommy Boy
"Fill it up again! Fill it up again! Once it hits your lips, it's so good!" - Frank the Tank (Old School)
|
|
|
|
|
You can't fault his honesty. 
|
|
|
|
|
I just wanted to see if he'd cinch the rope around his neck tight enough, in light of point number 9, here[^].
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Dave Kreskowiak wrote: I just wanted to see if he'd cinch the rope around his neck tight enough, in light of point number 9
Oh, yes....
|
|
|
|
|
6 months from now, he'll be a new hire at your work, and your job will be to train him. He'll probably ask you to write his code for him then, too.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
If he walks in the door, I'm walking out! Hell! I'm ready to walk out the door NOW! 
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hello,
Does any one have any information for sending e-mail using exchange server 2003.
I am using vs 2005 and need to be able to send e-mail from a windows application and have the exchange server send it to the destination e-mail.
If anyone can point me in the right direction or have some information that will be a great help. I have been told that this is very difficult to do.
Many thank for any help you can give me,
Steve
|
|
|
|
|
first you need to import this mail class
Imports System.Web.Mail
Dim mail As New MailMessage
mail.To = anyone@someDomain
mail.From = user@yourDomain
mail.Subject = "message subject comes here"
mail.Body = "body of the message.. could be from a textbox"
SmtpMail.SmtpServer = "MailServerName" 'your real server name goes here
SmtpMail.Send(mail) ' this section is what sends the mail...
this is perfectly fine....i have use it..
the from email account..must exist on the exchange mail server account.. so if you have an account on that server.. use it for the from section or just create a temp account to be used for this purpose..
hope this helps..
Nab
|
|
|
|
|
Hello,
Thanks for your help. The code i used is below. But I got a warning saying that using system.web.mail is obsolete and system.net.mail is the recommended to be used instead.
Also using the MS Exchange is very slow, i tried to send an e-mail to my hotmail and gmail account it takes more than 10 minutes to get there.
Is there any setting on the microsoft exchange server that need to be set?
Another quick question, is there a way to get the server name and the e-mail account automatically instead of a user inputting in? They can just click the send button.
Many thanks for your time,
Steve
Code for using system.web.mail
<br />
Private Sub btnSendExchangeServer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendExchangeServer.Click<br />
Dim mailMsg As New MailMessage()<br />
<br />
mailMsg.To = "steve@clarityform.com"<br />
mailMsg.From = "steve@clarityform.com"<br />
mailMsg.Subject = "2nd Microsoft Exchange Server Mail Test"<br />
mailMsg.Body = "This email came from MS Exchange Server"<br />
<br />
Try<br />
SmtpMail.SmtpServer = "cf01.clarityforms.com"<br />
SmtpMail.Send(mailMsg)<br />
<br />
Catch ex As Net.Mail.SmtpException<br />
MessageBox.Show(ex.Message)<br />
Catch ex As Exception<br />
MessageBox.Show(ex.Message)<br />
End Try<br />
<br />
End Sub<br />
End Class<br />
Code for using gmail smpt server using system.net.mail
<br />
Private Sub btnSendMail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendMail.Click<br />
Dim msgTo As New MailAddress("steve@clarityforms.com")<br />
Dim msgFrom As New MailAddress("steve@clarityforms.com")<br />
Dim msgSender As New MailAddress("steve@clarityforms.com")<br />
<br />
Dim mailMsg As New MailMessage()<br />
mailMsg.Sender = msgSender<br />
mailMsg.To.Add(msgTo)<br />
mailMsg.Priority = MailPriority.High<br />
mailMsg.CC.Add("Steve1_rm@yahoo.com")<br />
mailMsg.Subject = "This is a mail test"<br />
mailMsg.Body = "This is the body of the e-mail, Enjoy"<br />
mailMsg.From = msgFrom<br />
<br />
Dim client As New SmtpClient("smtp.gmail.com", 587)<br />
client.Credentials = New System.Net.NetworkCredential("steve1.rm@gmail.com", "1apple2")<br />
client.EnableSsl = True<br />
<br />
Try<br />
client.Send(mailMsg)<br />
Catch ex As SmtpException<br />
MessageBox.Show(ex.Message)<br />
Catch ex As Exception<br />
MessageBox.Show(ex.Message)<br />
End Try<br />
<br />
End Sub<br />
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
