In this post SQL Insert Command vb.net the command to insert data into SQL Server database is explained and code is given.
SQL Insert Command vb.net
The function of the code given below is to enter the data into an online database with the help of a network server. For which you have to add MYSQL.DLL file to the project. The library of MYSQL.DLL is essential in programming. With the help of which we can write code.
#1 Method sql Insert Command
Try
Dim CmdSql As New MySqlCommand("INSERT INTO " & ServerTableName & " (ProductID, UserName, UserPass, SystemDetails, AdminURL, " & _
"CompanyNameTitle, BranchName, ProductActivePlan, ProductActiveDate, ProductExpDate, ExcessPassword, " & _
"UmUnitShow, SetSalePrintPageTitle, PrintOut, PrintDialogView, ConvertValue, OfferMessage, LastOffMsq, " & _
"AdminControl, LastUsingDate, EndOfferDate) VALUES " & _
"(@Va1, @Va2, @Va3, @Va4, @Va5, @Va6, @Va7, @Va8, @Va9, @Va10, @Va11, @Va12, @Va13, @Va14, @Va15, " & _
"@Va16, @Va17, @Va18, @Va19, @Va20, @Va21 )", FreeSqlConn)
CmdSql.Parameters.Add("@Va1", MySqlDbType.VarChar, size:=8).Value = Convert.ToString(My.Settings.ProductID) 'v1 / ProductID
CmdSql.Parameters.Add("@Va2", MySqlDbType.VarChar, size:=25).Value = Convert.ToString(DFUserID) 'v2 / UserName
CmdSql.Parameters.Add("@Va3", MySqlDbType.VarChar, size:=25).Value = Convert.ToString(DFUserPassword) 'v3 / UserPass
CmdSql.Parameters.Add("@Va4", MySqlDbType.VarChar, size:=50).Value = Convert.ToString(Application.ProductVersion & " | " & strHostName & " | " & GetIPv4Address) 'v4 / SystemDetails ======SYESTEM INFO
CmdSql.Parameters.Add("@Va5", MySqlDbType.VarChar, size:=50).Value = Convert.ToString("https://learnpc.live/") 'v5 / AdminURL
CmdSql.Parameters.Add("@Va6", MySqlDbType.VarChar, size:=25).Value = Convert.ToString("Add Company Name") 'v6 / Company Name
CmdSql.Parameters.Add("@Va7", MySqlDbType.VarChar, size:=35).Value = Convert.ToString("Add Branch Name") 'v7 / Branch Name
CmdSql.Parameters.Add("@Va8", MySqlDbType.VarChar, size:=100).Value = Convert.ToString("trial version please update the program") 'v8 / ActivePlan
Dim Ds As Date = Today()
Ds = Format(Ds, "dd/MM/yyyy")
CmdSql.Parameters.Add("@Va9", MySqlDbType.Date).Value = Convert.ToDateTime(Ds) 'v9 / ProductActiveDate
Ds = Ds.AddDays(30)
CmdSql.Parameters.Add("@Va10", MySqlDbType.Date).Value = Convert.ToDateTime(Ds) 'v10 / ProductExpDate
CmdSql.Parameters.Add("@Va11", MySqlDbType.VarChar, size:=10).Value = Convert.ToString("123") 'v11 / AcsessPassword
CmdSql.Parameters.Add("@Va12", MySqlDbType.VarChar, size:=3).Value = Convert.ToString("No") 'v12 / UmUnitShow
CmdSql.Parameters.Add("@Va13", MySqlDbType.VarChar, size:=50).Value = Convert.ToString("Set up multiple sales units for multiple items") 'v13 / InvoiceTitleName
CmdSql.Parameters.Add("@Va14", MySqlDbType.VarChar, size:=3).Value = Convert.ToString("Yes") 'v14 / PrintOut
CmdSql.Parameters.Add("@Va15", MySqlDbType.VarChar, size:=3).Value = Convert.ToString("Yes") 'v15 / PrintDialogView
CmdSql.Parameters.Add("@Va16", MySqlDbType.Decimal).Value = 0.10493 'v16 / ConvertValue
CmdSql.Parameters.Add("@Va17", MySqlDbType.VarChar, size:=100).Value = Convert.ToString("Trial Version") 'v17 / OfferMessage
CmdSql.Parameters.Add("@Va18", MySqlDbType.VarChar, size:=100).Value = Convert.ToString("") 'v18 / LastOffMsq
CmdSql.Parameters.Add("@Va19", MySqlDbType.VarChar, size:=3).Value = Convert.ToString("Yes") 'v19 / Admin Control
CmdSql.Parameters.Add("@Va20", MySqlDbType.Date).Value = Today.Date 'v20 / Last Use Date
CmdSql.Parameters.Add("@Va21", MySqlDbType.Date).Value = Today.Date 'v21 / Offer Expiry Date
ConnectSql()
CmdSql.ExecuteNonQuery()
DisconnectSql()
MsgBox("Export settings successfully")
RefreshSqlSettings()
Catch ex As Exception
MsgBox("Export Error : " & vbCrLf & ex.Message)
End Try#2 Method sql Insert Command
Try
Dim cmd As New MySqlCommand("insert into ApplicationList(Logo, ApplicaitonName, Version, PurposeOfUse, Trial, Yearly, DownloadLink) VALUES (@A1, @A2, @A3, @A4, @A5, @A6, @A7)", SqlConnDbString)
If Not PictureBoxAppLogo.Image Is Nothing Then
Using ms As New MemoryStream()
PictureBoxAppLogo.Image.Save(ms, PictureBoxAppLogo.Image.RawFormat)
cmd.Parameters.Add("@A1", MySqlDbType.Blob).Value = ms.ToArray
End Using
Else
cmd.Parameters.Add("@A1", MySqlDbType.Blob).Value = DBNull.Value
End If
cmd.Parameters.Add("@A2", MySqlDbType.VarChar, size:=30).Value = Convert.ToString(txtAppName.Text.Trim)
cmd.Parameters.Add("@A3", MySqlDbType.VarChar, size:=15).Value = Convert.ToString(txtAppVersion.Text.Trim)
cmd.Parameters.Add("@A4", MySqlDbType.VarChar, size:=30).Value = Convert.ToString(txtAppDescriptionforUse.Text.Trim)
cmd.Parameters.Add("@A5", MySqlDbType.VarChar, size:=10).Value = Convert.ToString(txtTrialDays.Text.Trim)
cmd.Parameters.Add("@A6", MySqlDbType.VarChar, size:=10).Value = Convert.ToString(txtYearlyPlanCharge.Text.Trim)
cmd.Parameters.Add("@A7", MySqlDbType.VarChar, size:=150).Value = Convert.ToString(txtDownloadLink.Text.Trim)
ConnectSqlDb()
cmd.ExecuteNonQuery()
DisConnectSqlDb()
ApplicationListTableRecordsPosition = False
System.Media.SystemSounds.Exclamation.Play()
MsgBox("SQL Record Saved Sucsessfuly")
ClearEntryForm()
'SHOW RECORD
btnLast.PerformClick()
Catch ex As Exception
MessageBox.Show(ex.Message, "New Entry", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
