Insert/Save Data to Database Table From VB.NET

Published: 24 November 2018
on channel: SUNDEEPGAMEIN

210

Imports System.Data
Imports System.Security.Cryptography
Imports System.Text
Imports System.Data.SqlClient

Public Class frmProduct
Dim rdr As SqlDataReader = Nothing
Dim dtable As DataTable
Dim con As SqlConnection = Nothing
Dim adp As SqlDataAdapter
Dim ds As DataSet
Dim cmd As SqlCommand = Nothing
Dim dt As New DataTable
Dim cs As String = "Data Source=.\MSSQLEXPRESS;Integrated Security=SSPI;AttachDBFilename=|DataDirectory|SI_DB.mdf;User Instance=true"

Private Sub Save_Click(sender As Object, e As EventArgs) Handles Save.Click
con = New SqlConnection(cs)
con.Open()

Dim cb As String = "insert into Product(ProductCode,ProductName,HSNCode,Category,Tax,Range,PCompany,Company) VALUES (@d1,@d2,@d3,@d4,@d5,@d6,@d7,@d8)"

cmd = New SqlCommand(cb)

cmd.Connection = con

cmd.Parameters.Add(New SqlParameter("@d1", SqlDbType.NVarChar, 20, "ProductCode"))
cmd.Parameters.Add(New SqlParameter("@d2", SqlDbType.NVarChar, 250, "ProductName"))
cmd.Parameters.Add(New SqlParameter("@d3", SqlDbType.NVarChar, 20, "HSNCode"))
cmd.Parameters.Add(New SqlParameter("@d4", SqlDbType.NVarChar, 150, "Category"))
cmd.Parameters.Add(New SqlParameter("@d5", SqlDbType.Float, 20, "Tax"))
cmd.Parameters.Add(New SqlParameter("@d6", SqlDbType.NVarChar, 250, "Range"))
cmd.Parameters.Add(New SqlParameter("@d7", SqlDbType.NVarChar, 100, "PCompany"))
cmd.Parameters.Add(New SqlParameter("@d8", SqlDbType.NVarChar, 100, "Company"))

cmd.Parameters("@d1").Value = txtProductCode.Text
cmd.Parameters("@d2").Value = txtProductName.Text
cmd.Parameters("@d3").Value = cmbHSN.Text
cmd.Parameters("@d4").Value = cmbCategory.Text
cmd.Parameters("@d5").Value = CDbl(cmbTAX.Text)
cmd.Parameters("@d6").Value = cmbRange.Text
cmd.Parameters("@d7").Value = cmbCompany.Text
cmd.Parameters("@d8").Value = frmMain.Label6.Text

cmd.ExecuteReader()

If con.State = ConnectionState.Open Then
con.Close()
End If

con.Close()
End If

MessageBox.Show("Successfully saved", "Product ", MessageBoxButtons.OK, MessageBoxIcon.Information)

If con.State = ConnectionState.Open Then
con.Close()
End If

con.Close()

Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class

   • Update data in SQL database table
this link for update data in SQL database

   • Auto Fill Data in Combo box From Database ...
this link for fatch data from SQL database in combo box

   • Auto generate Random Number for unique Pro...
this link for Auto generate Random Number for unique ID

   • FONT AND COLOR CHNAGE IN DATAGRIDVIEW - VB...
this link for FONT AND COLOR CHNAGE IN DATAGRIDVIEW

On this page of the site you can watch the video online Insert/Save Data to Database Table From VB.NET with a duration of hours minute second in good quality, which was uploaded by the user SUNDEEPGAMEIN 24 November 2018, share the link with friends and acquaintances, this video has already been watched 210 times on youtube and it was liked by 2 viewers. Enjoy your viewing!