Fetching data into ListBox from database using WCF service in VB.NET
In this article, You will learn how to fetch data into listBox from database using WCF Services.
Introduction:
The ListBox control is used to create a single - or multi-selection drop down list. The function of the ListBox is to present a list of items where the user can click and select the items from the list. In order to add items to the list, we can use the AddItem method.
In this article, I am making a WCF service of fetching data from database into ListBox. For this purpose, read the steps carefully which are given belows:
Step 1: Open Visual Studio and click on file menu.
- Go to new -> project.
- New project dialog box will appear.
- Select WCF -> WCF Service Application.
- Give the name as you desire.
- Press ok as shown below on figure:
Step 2: Go to solution explorer.
- open the Iservice1.vb.
- write a code like:
Code:
' NOTE: You can use the "Rename" command on the "Refactor" menu to change the interface name "IService1" in both code and config file together.
<ServiceContract()> _
Public Interface IService1
<OperationContract()> _
Function display() As DataSet
' TODO: Add your service operations here
End Interface
Step 3: Now, open the Service1.svc.vb.
Code:
' NOTE: You can use the "Rename" command on the "Refactor" menu to change the class name "Service1" in code, svc and config file together.
Public Class Service1
Implements IService1
Public Function display() As DataSet
Dim con As New SqlConnection("server=.;database=student1;uid=sa;pwd=wintellect")
Dim dr As New SqlDataAdapter("select * from StudentInfo", con)
Dim ds As New DataSet()
dr.Fill(ds)
Return ds
End Function
End Class
Step 4: Start Debugging by pressing F5.
Step 5:Open the Visual Studio and go to the file menu.
Step 6:Go to Solution Explorer.
-
Right click on 'References' and select 'Add Service Reference...'
-
'Add Service Reference' dialog box will appear.
-
Paste the address which is copied in step 4.
-
Press OK button.
Step 7:Now, take ListBox control on Form design as shown in the figure:
Code:
Partial Public Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
Private Sub button1_Click(sender As Object, e As EventArgs)
Dim obj As New ServiceReference1.Service1Client()
listBox1.DataSource = obj.display().Tables(0)
listBox1.DisplayMember = "name"
listBox2.DataSource = obj.display().Tables(0)
listBox2.DisplayMember = "rollnumber"
listBox3.DataSource = obj.display().Tables(0)
listBox3.DisplayMember = "age"
End Sub
End Class
Step 8: Now we press F5 and run this application and result shows like figure below: