KEMBAR78
Code by G | PDF
Scribd
Upload
100 views2 pages

Code by G

The document is a Visual Basic .NET code for a Windows Forms application that interacts with a SQL Server database to manage student attendance data. It includes functionalities to display student data in DataGridViews, add rows to a DataGridView, and dynamically insert a new column. The code demonstrates the use of SqlConnection, SqlCommand, and SqlDataAdapter for database operations.

Uploaded by

GANESH
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
100 views2 pages

Code by G

The document is a Visual Basic .NET code for a Windows Forms application that interacts with a SQL Server database to manage student attendance data. It includes functionalities to display student data in DataGridViews, add rows to a DataGridView, and dynamically insert a new column. The code demonstrates the use of SqlConnection, SqlCommand, and SqlDataAdapter for database operations.

Uploaded by

GANESH
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 2

Imports System.

Data
Imports System.Data.SqlClient
Imports System.Data.DataTable
Imports WindowsAppdatabase.attendanceDataSetTableAdapters

Public Class Form1


Dim table As New DataTable("Table")

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


Dim Con As SqlConnection = New SqlConnection("Data Source=DESKTOP-QI6H2EA\
SQLEXPRESS;Initial Catalog=attendance;Integrated Security=True")
Dim cmd As SqlCommand = New SqlCommand("select * from studentdata", Con)
'Con.Open()
'cmd.ExecuteNonQuery()
MessageBox.Show("Hi GANESH! Con.open() and Con.close() are not nessasary",
"Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
Dim adapter As New SqlDataAdapter(cmd)

Dim table As New DataTable

adapter.Fill(table)

DataGridView3.DataSource = table
' Con.Close()

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Me.DataGridView1.Rows.Add("Ramkumar", "B.Sc")
Me.DataGridView1.Rows.Add("Ganesh")
Me.DataGridView1.Rows.Add("BALAJI", "", "COMPUTER SCIENCE")
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click


Dim test1_column As DataGridViewColumn = New DataGridViewTextBoxColumn
test1_column.Name = "test1col"
test1_column.HeaderText = "test1"
test1_column.Width = 70
DataGridView1.Columns.Insert(2, test1_column)
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

Dim con1 As SqlConnection = New SqlConnection("Data Source=DESKTOP-QI6H2EA\


SQLEXPRESS;Initial Catalog=attendance;Integrated Security=True")
Dim cmd1 As New SqlCommand("Select * from studentdata", con1)

Dim adapter As New SqlDataAdapter(cmd1)

Dim table As New DataTable

adapter.Fill(table)

DataGridView2.DataSource = table

End Sub
End Class

You might also like