Imports System.Data.OleDb
Public Class Form14
Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\hobbies.accdb")
Private Sub load_data()
conn.Open()
Dim cmd As New OleDbCommand("select id,name1,telephone from names1", conn)
Dim da As New OleDbDataAdapter
da.SelectCommand = cmd
Dim table1 As New DataTable
table1.Clear()
da.Fill(table1)
DataGridView1.DataSource = table1
conn.Close()
Dim checkboxcol As New DataGridViewCheckBoxColumn
checkboxcol.Width = 40
checkboxcol.Name = "checkboxcol"
checkboxcol.HeaderText = ""
DataGridView1.Columns.Insert(0, checkboxcol)
End Sub
Private Sub Form14_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
load_data()
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
For Each row As DataGridViewRow In DataGridView1.Rows
Dim select1 As Boolean = Convert.ToBoolean(row.Cells("checkboxcol").Value)
If select1 Then
conn.Open()
Dim sql As String = " insert into telephones(Id,name1,telephone) values(@id,@name1,@telephone)"
Dim cmd1 As New OleDbCommand(sql, conn)
cmd1.Parameters.AddWithValue("@id", row.Cells("ID").Value)
cmd1.Parameters.AddWithValue("@name1", row.Cells("name1").Value)
cmd1.Parameters.AddWithValue("@telephone", row.Cells("telephone").Value)
cmd1.ExecuteNonQuery()
conn.Close()
End If
Next
MessageBox.Show("Records Inserted")
End Sub
