Hi,
Following are steps to Linq To SQL Step By Step in VB.Net.
Step 4. Add New Web Form Name[LINQTOSQL]
Step5. Add controls in Winform as Below.
![]()
Step 6. Add the below code in codebehind.
Following are steps to Linq To SQL Step By Step in VB.Net.
Step 1. Create a New Web Project.
Step 2.Add new item à Dataà Linq To SQL Classes.Name[ConDB.dbml]
Step 3. Add DataBase à NorthWind.Add Tables and Stored Procedures.Step 4. Add New Web Form Name[LINQTOSQL]
Step5. Add controls in Winform as Below.
Public Class LinqToSql
Inherits System.Web.UI.Page
Dim dbcon As New ConDBDataContext()
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
FillDropDownlist()
End If
End Sub
Private Sub FillDropDownlist()
''For Filling the Dropdwonlist
Dim custQuery = _
From cust In dbcon.Customers _
Select cust.CustomerID
Order By CustomerID
DropDownList1.DataSource = custQuery
DropDownList1.DataBind()
End Sub
Protected Sub CMDGo_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CMDGo.Click
''For Showing the Company name on the basis of selected customerid
Dim custQuery = _
From cust In dbcon.Customers _
Where cust.CustomerID = DropDownList1.Text
Select cust.CompanyName
For Each companyname In custQuery
txtcustomername.Text = companyname
Next
End Sub
Protected Sub CMDUpdate_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CMDUpdate.Click
''For Updating the data
Dim custQuery = _
(From cust In dbcon.Customers _
Where cust.CustomerID = DropDownList1.Text
Select cust)
For Each Customer In custQuery
'If Customer.CustomerID = DropDownList1.Text Then
Customer.CompanyName = txtcustomername.Text
' End If
Next
dbcon.SubmitChanges()
FillDropDownlist()
End Sub
Protected Sub CMDAdd_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CMDAdd.Click
'' For Adding New Data
Dim cust As New Customer With {.CompanyName = txtcustomername.Text, _
.City = "London", .CustomerID = txtCompanyid.Text, .PostalCode = 55555, .Phone = "555-555-5555"}
dbcon.Customers.InsertOnSubmit(cust)
dbcon.SubmitChanges()
FillDropDownlist()
End Sub
Protected Sub CMDDel_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CMDDel.Click
''For Deleting the Data
Dim DelQry = From cust In dbcon.Customers _
Where cust.CustomerID = DropDownList1.Text _
Select cust
If DelQry.Count > 0 Then
dbcon.Customers.DeleteOnSubmit(DelQry.First)
dbcon.SubmitChanges()
FillDropDownlist()
End If
End Sub
Protected Sub CMDExecProc_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CMDExecProc.Click
''For Filling the Gridview by executing the Stored Proc.
Dim sprocqry = dbcon.SalesByCategory("seafood", "1998")
GridView1.DataSource = sprocqry
GridView1.DataBind()
End Sub
End Class