Hey BP Forums,,
Today I present you the " Lyrics Hunter ", It took me about a month to make this program. So this program basically does is finds the lyrics of the song using name of the artist and the line of the song.

What it has?
* Self Update on new release
* Print
* Save as Rich Text Format
* No installation require

Screen Shots


Screen Shots 1

Screen Shots 2

Goto <!-- m --><a class="postlink" href="http://lyricshunter.co.cc/">http://lyricshunter.co.cc/</a><!-- m --> for more info but the website is not ready yet.

<!-- m --><a class="postlink" href="http://virusscan.jotti.org/en/scanresult/73bf1592c99966d4b677964baf62d9932d45af8d">http://virusscan.jotti.org/en/scanresul ... 932d45af8d</a><!-- m -->

*Note :If any bug found please report by PM

Attached Files

  LyricsHunterv1.0.0.zip (Size: 677.36 KB / Downloads: 612)

Hello guys,

You should all know that my learning of the Visual Basic language is improving. I can't stress enough how much Brandon's tutorials have helped me.

So, I'm working on a query to update records in my MySQL database. For some strange reason, the DB isn't being updated and I can't figure out what's wrong. Any assistance would be really appreciated, thanks.

HERE'S MY CODE:

[code2=vbnet]Private Sub updateCard()
Call encryptCard()

Dim ConnectionString As String = String.Format("Server={0};Port={1};Uid={2};Password={3};Database=accounting", FormLogin.ComboBoxServerIP.SelectedItem, My.Settings.DB_Port, My.Settings.DB_UserID, My.Settings.DB_Password)
Dim myQuery As String = "UPDATE cc_master " & _
"SET ccType = @ccType, ccNumber = @ccNumber, ccExpireMonth = @ccExpireMonth, " & _
"ccExpireYear = @ccExpireYear, ccAuthorizedUseStart = @ccAuthorizedUseStart, " & _
"ccAuthorizedUseEnd = @ccAuthorizedUseEnd, ccZipcode = @ccZipcode, dateModified = @dateModified, modifiedBy = @modifiedBy " & _
"WHERE ccID = @ccID"

Using dbConn As New MySqlConnection(ConnectionString)
Using dbComm As New MySqlCommand()
With dbComm
.Connection = dbConn
.CommandType = CommandType.Text
.CommandText = myQuery
.Parameters.AddWithValue("@ccID", ListViewCard.SelectedItems(0).ToString)
.Parameters.AddWithValue("@ccType", ComboBoxCardType.Text)
.Parameters.AddWithValue("@ccNumber", encryptedCard)
.Parameters.AddWithValue("@ccExpireMonth", TextBoxExpireMonth.Text)
.Parameters.AddWithValue("@ccExpireYear", TextBoxExpireYear.Text)
.Parameters.AddWithValue("@ccAuthorizedUseStart", Format(DateTimePickerStartDate.Value, "yyyy-MM-dd HH:MMs"))
.Parameters.AddWithValue("@ccAuthorizedUseEnd", Format(DateTimePickerEndDate.Value, "yyyy-MM-dd HH:MMs"))
.Parameters.AddWithValue("@ccZipcode", TextBoxZipCode.Text)
.Parameters.AddWithValue("@dateModified", Format(DateTime.Now, "yyyy-MM-dd HH:MMs"))
.Parameters.AddWithValue("@modifiedBy", FormLogin.TextBoxUsername.Text)
End With

Try
Dim affectedRow As Integer
dbConn.Open()
affectedRow = dbComm.ExecuteNonQuery()
If affectedRow > 0 Then
MessageBox.Show("Card info SUCCESSFULLY updated!")
Else
MessageBox.Show("Card info NOT updated!")
End If
Catch ex As Exception
MessageBox.Show("A DATABASE ERROR HAS OCCURED" & vbCrLf & vbCrLf & ex.Message & vbCrLf & _
vbCrLf + "Please report this to the IT/Systems Helpdesk at Ext 131.")
End Try
End Using
End Using

End Sub[/code2]

Hi everyone

I want to make a sidebar like Office Outlook. I use Component Factory Krypton. I saw that in a sample file included with the installer. I've uploaded it for you to see what i actually mean.

http://www.mediafire.com/download.php?mcztfa1vefdqcng

Thanks!

Hey BP Forums,
I want to learn how to post a YouTube video in this forum it tried this code and it didn't work.

Hey guys!

As you are probably aware, there has been a recent slew of spam that has contained messages about kitchen cabinets, website design, and foot fungus. In the past, I have personally fought the spam and manually banned the accounts and deleted the posts. However, since the forum has gained popularity, I cannot handle this large task anymore.

To fight this spam, I have installed a few countermeasures:
1) To register for an account, you need to answer a question that is somewhat random; however, it is definitely answerable.
2) All new accounts are now monitored by a spam filter which connects with a database of spam IP Addresses and usernames. If the registered account is contained within one of these databases, registration will be blocked.
3) All posts will be filtered by the same spam filter, and any posts that contain sketchy URLs will be immediately deleted and the posters will be banned.
4) Finally, all accounts that are banned on BP Forums will be uploaded to the "spam" database, making BP Forums play a major role in the fight against spam.


These spam countermeasures should work very well, so prepare to see a reduced amount of spam on BP FORUMS!

Also: We have a new logo. It's monospace.

is it true that air pump basketball shoes could cause tissue and nerve damage to the feet if over pumped? How do I go about knowing how much pressure I should bump in to the shoes since I love to pump the shoes till my feet are completely tight?

what is the price I should expect to pay for a pair of designer basketball shoes? I would like to get a pair and if possible unique to gift to a friend but it all depends on the price since I don’t have a huge amount to pay but would like to get a reasonable gift for him.

hey guys i just watch the 2nd tutorial on youtube about the implementation of MySQL to Visual Basic and it seems that i am having problem with the

data.Read()
and
data2 = command2.ExecuteReader

the error point out the two
when i try to test if the duplication of the username
also if i try to insert a new data


btw this is my code

[code2=vbnet]Private Sub cmdReg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdReg.Click
conn = New MySqlConnection("host=localhost; uid=root; pwd=root; database=mydatabase")

Dim Username As Boolean = True
conn.Open()
Dim mystr As String = "SELECT * FROM tbluser WHERE Username = '" & txtUser.Text & "';"
Dim mydr As MySqlDataReader
Dim myda As New MySqlDataAdapter
Dim mycmd As New MySqlCommand
mycmd.CommandText = mystr
mycmd.Connection = conn
myda.SelectCommand = mycmd
mydr = mycmd.ExecuteReader
While mydr.Read
If mydr.HasRows = True Then
MsgBox("Username Already exsist! Please choose another username.")
Username = False
mydr.Close()
Else
mydr.Close()
Username = True
End If
End While
mydr.Close()
If Username = True Then
Dim mystr2 As String = "INSERT INTO tbluser (FirstName, LastName, Contact#, Username, Password)VALUES ('" & txtUF.Text & "','" & txtUL.Text & "','" & txtUC.Text & "','" & txtUser.Text & "','" & txtPass.Text & "')"
Dim mydr2 As MySqlDataReader
Dim myda2 As New MySqlDataAdapter
Dim mycmd2 As New MySqlCommand
mycmd2.CommandText = mystr2
mycmd2.Connection = conn
myda2.SelectCommand = mycmd2
mydr2 = mycmd2.ExecuteReader
MsgBox("You've Registered!")
End If
End Sub
End Class[/code2]


i dont know how to write a proper topic on forums so sorry for if i made a mistake posting topics and please brandonio(awesome name but anyway)
i need your help, man.

Please Help me ! <!-- s --><img src="{SMILIES_PATH}/icon_e_sad.gif" alt="" title="Sad" /><!-- s -->

"TwitterAPIException"

TwitterVB.dll

which is the best payment option for designer shoes? I would like to buy the shoes in whole sale to stock my store and have seen many e-shops that have them at greatly discounted rates. Is there a way I could ensure my money is not lost as it is a considerable amount?