How to make project in Vb.net with using dll file

How to make project in Vb.net with using dll file

In this article we will learn how to use dll file to make project in VB.net

Open Visual Studio

*File> New>project >vb.net>website empty

# Connection string

<connectionStrings>     <add name="ps" connectionString="server=.\SQLEXPRESS;database=your database name;Integrated Security=True"/>   </connectionStrings>

*Website>Add reference >Browse> select dll file > ok

Note - you make dll file from this link To Make Dll File

*Add webform

*Object Data source > Configure> clsemp> ename> empno>ok

*Listbox> Object Data source1>Auto Post Back

# Coding

Partial Class _Default     Inherits System.Web.UI.Page     Dim objprp As New nsemployees.clsempprp()     Dim obj As New nsemployees.clsemp()     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load     End Sub     Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click         objprp.empno = Convert.ToInt32(TextBox1.Text)         objprp.ename = TextBox2.Text         objprp.eadd = TextBox3.Text         objprp.esal = Convert.ToInt32(TextBox4.Text)         obj.Save_Rec(objprp)         ListBox1.DataBind()         Clear_Rec()     End Sub     Private Sub Clear_Rec()         TextBox1.Text = String.Empty         TextBox2.Text = String.Empty         TextBox3.Text = String.Empty         TextBox4.Text = String.Empty         TextBox1.Focus()     End Sub     Protected Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged         Dim k As List(Of nsemployees.clsempprp)         k = obj.Find_Rec(Convert.ToInt32(ListBox1.SelectedValue))         TextBox1.Text = k(0).empno.ToString()         TextBox2.Text = k(0).ename         TextBox3.Text = k(0).eadd         TextBox4.Text = k(0).esal.ToString()     End Sub     Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click         objprp.empno = Convert.ToInt32(TextBox1.Text)         objprp.ename = TextBox2.Text         objprp.eadd = TextBox3.Text         objprp.esal = Convert.ToInt32(TextBox4.Text)         obj.Update_Rec(objprp)         ListBox1.DataBind()         Clear_Rec()     End Sub     Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click         objprp.empno = Convert.ToInt32(TextBox1.Text)         obj.Delete_Rec(objprp)         ListBox1.DataBind()         Clear_Rec()     End Sub     Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click         Clear_Rec()     End Sub End Class