Connect VB.NET to Local SQL Database in Visual Studio 2026 (With Source Code)

Imports System.Data.SqlClient
Public Class Form1
    Dim conn2 As New SqlConnection("Data Source=(localdb)\MSSQLLocalDB;initial catalog=database2;Integrated Security=True")
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim conn As New SqlConnection("Data Source=(localdb)\MSSQLLocalDB;Integrated Security=True")
        Dim strsql As String = "If Not Exists(Select name from sys.databases Where name='database2')" &
            " begin create database database2 select 1 end" &
            " else begin select 0 end"
        Dim cmd As New SqlCommand(strsql, conn)
        conn.Open()
        Dim result As Integer = Convert.ToInt32(cmd.ExecuteScalar())
        If result = 1 Then
            MessageBox.Show("Database created Successfully")
        Else
            MessageBox.Show("Database already exists")
        End If
        conn.Close()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim strsql As String = "If Not Exists(Select name From sys.tables Where name='students') " &
            "begin create table students(id int primary key identity(1,1)," &
            "name1 varchar(50) Not Null," &
            "phone varchar(50) Not Null," &
            "date1 date Not Null) Select 1 end " &
            " else begin select 0 end"
        Dim cmd As New SqlCommand(strsql, conn2)
        conn2.Open()
        Dim result As Integer = Convert.ToInt32(cmd.ExecuteScalar())
        If result = 1 Then
            MessageBox.Show("Table created Successfully")
        Else
            MessageBox.Show("Table already exists")
        End If
        conn2.Close()

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        load_data()
    End Sub
    Private Sub load_data()
        conn2.Open()
        Dim da As New SqlDataAdapter("Select * From students", conn2)
        Dim dt As New DataTable
        da.Fill(dt)
        DataGridView1.DataSource = dt
        conn2.Close()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        DateTimePicker1.Value = Now()
        Button4.Enabled = True
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim cmd As New SqlCommand("Insert Into students(name1,phone,date1)Values(@name1,@phone,@date1)", conn2)
        cmd.Parameters.AddWithValue("name1", TextBox1.Text.Trim)
        cmd.Parameters.AddWithValue("phone", TextBox2.Text.Trim)
        cmd.Parameters.AddWithValue("date1", DateTimePicker1.Value.ToString)
        conn2.Open()
        cmd.ExecuteNonQuery()
        conn2.Close()
        Button4.Enabled = False
        load_data()
    End Sub 

End Class