Insert/Save Data to Database Table From VB.NET

Publié le: 24 novembre 2018
sur la chaîne: 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

Sur cette page du site, vous pouvez voir la vidéo en ligne Insert/Save Data to Database Table From VB.NET durée heure minute seconde en bonne qualité , qui a été Téléchargé par l'utilisateur SUNDEEPGAMEIN 24 novembre 2018, Partagez le lien avec vos amis et connaissances, sur youtube cette vidéo a déjà été regardée 210 fois et il a aimé 2 téléspectateurs. Bon visionnage!