Imports System.Configuration Dim connectionString As String = ConfigurationManager.ConnectionStrings("DefaultConnection").ConnectionString You now have multiple reliable methods to retrieve data from SQL Server using VB.NET. Choose the approach based on your specific needs: SqlDataReader for performance, DataAdapter for flexibility, and async methods for responsive UI applications.
Using connection As New SqlConnection(connectionString) Dim query As String = "SELECT EmployeeID, FirstName, LastName, Department, Salary FROM Employees" Dim command As New SqlCommand(query, connection) Try connection.Open() Dim reader As SqlDataReader = command.ExecuteReader() While reader.Read() Dim emp As New Employee() emp.EmployeeID = Convert.ToInt32(reader("EmployeeID")) emp.FirstName = reader("FirstName").ToString() emp.LastName = reader("LastName").ToString() emp.Department = reader("Department").ToString() emp.Salary = Convert.ToDecimal(reader("Salary")) employees.Add(emp) End While reader.Close() Catch ex As SqlException MessageBox.Show("SQL Error: " & ex.Message) End Try End Using vb.net code to retrieve data from sql server
Public Shared Function GetAllEmployees() As List(Of Employee) Dim employees As New List(Of Employee)() Using conn As New SqlConnection(connectionString) Dim sql As String = "SELECT EmployeeID, FirstName, LastName, Department, Salary FROM Employees ORDER BY LastName" Using cmd As New SqlCommand(sql, conn) conn.Open() Using reader As SqlDataReader = cmd.ExecuteReader() While reader.Read() employees.Add(New Employee() With .EmployeeID = reader.GetInt32(0), .FirstName = reader.GetString(1), .LastName = reader.GetString(2), .Department = reader.GetString(3), .Salary = reader.GetDecimal(4) ) End While End Using End Using End Using Return employees End Function End Class Imports System
Return dataTable End Function For Windows Forms or WPF applications, use async methods to keep the UI responsive. Public Function GetEmployeeCount() As Integer Dim count As
Public Function GetEmployeeCount() As Integer Dim count As Integer = 0 Dim connectionString As String = "Server=localhost;Database=YourDatabase;Integrated Security=True;" Using connection As New SqlConnection(connectionString) Dim query As String = "SELECT COUNT(*) FROM Employees" Dim command As New SqlCommand(query, connection) Try connection.Open() count = Convert.ToInt32(command.ExecuteScalar()) Catch ex As SqlException MessageBox.Show("Error: " & ex.Message) End Try End Using