Vb Net: Lab Programs For Bca Students Fix

Common Problem: The array outputs in the same order as input.

The Fix: Your nested loops are off by one. Use this standard bubble sort fix:

Dim arr() As Integer = 5, 1, 4, 2, 8
Dim i, j, temp As Integer
For i = 0 To arr.Length - 2
For j = 0 To arr.Length - 2 - i
If arr(j) > arr(j + 1) Then
temp = arr(j)
arr(j) = arr(j + 1)
arr(j + 1) = temp
End If
Next
Next

Key Fix: The inner loop runs to Length - 2 - i. Many students forget the - i, causing index errors.

Before writing a single line of code, ensure your setup is correct. 80% of "program not running" issues stem from environment misconfiguration.

This guide groups practical VB.NET lab programs by topic, each with objectives, required concepts, a sample program description, and testing steps. Use these to build a lab manual, assignments, or practice exercises. vb net lab programs for bca students fix

Objective: Connect VB.NET to a SQL Server Database and insert records.

Prerequisites:

Design:

Code: (Note: You must import System.Data.SqlClient at the very top of the code file).

Imports System.Data.SqlClient
Public Class Form1
' Connection String (Update Data Source as per your SQL Server)
Dim conStr As String = "Data Source=.;Initial Catalog=StudentDB;Integrated Security=True"
Dim con As New SqlConnection(conStr)
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
    Try
        con.Open()
        Dim cmd As New SqlCommand("INSERT INTO StudentInfo VALUES(@id, @name, @course)", con)
' Use Parameters to prevent SQL Injection
        cmd.Parameters.AddWithValue("@id", Integer.Parse(txtID.Text))
        cmd.Parameters.AddWithValue("@name", txtName.Text)
        cmd.Parameters.AddWithValue("@course", txtCourse.Text)
Dim rowsAffected As Integer = cmd.ExecuteNonQuery()
If rowsAffected > 0 Then
            MessageBox.Show("Record Saved Successfully!")
        Else
            MessageBox.Show("Failed to Save Record.")
        End If
Catch ex As Exception
        MessageBox.Show("Error: " & ex.Message)
    Finally
        con.Close() ' Always close connection
    End Try
End Sub

End Class

Before you dive into specific lab programs, apply these universal fixes. 90% of BCA lab errors fall into these categories.