Imports System.Collections.Generic
Imports System.Data
Imports System.Data.SqlClient
Public Class MainForm
'''
''' Code for retriving the data from DataBAse Using Sqlserver
'''
'''
'''
'''
Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cn As SqlConnection
Dim cm As SqlCommand
Dim cmdString As String
cmdString = "select compony_Name from compony"
cn = New SqlConnection("Data Source=ANJU\SQLEXPRESS;Initial Catalog=Custumer;Integrated Security=True")
cm = New SqlCommand(cmdString, cn)
cn.Open()
Dim myReader As SqlDataReader
myReader = cm.ExecuteReader(CommandBehavior.CloseConnection)
While myReader.Read()
ListBox1.Items.Add(myReader("compony_Name").ToString)
End While
End Sub
End Class
