1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
|
Imports System.Data
Imports System.Data.OleDb
Public Class Datasheet
Private ObjetConnection As OleDbConnection
Private ObjetCommand As OleDbCommand
Private ObjetDataAdapter As OleDbDataAdapter
Private ObjetDataSet As New DataSet
Private strSql As String
Private ObjetDataTable As DataTable
Private strConn As String
Private ObjetCommandBuilder As OleDbCommandBuilder
Private Sub DataGridView1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & My.Application.Info.DirectoryPath.ToString() & "\BackUp\LoginDB.Accdb;"
strSql = "SELECT Table1.* FROM Table1"
ObjetConnection = New OleDbConnection()
ObjetConnection.ConnectionString = strConn
ObjetConnection.Open()
ObjetCommand = New OleDbCommand(strSql)
ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
ObjetCommand.Connection() = ObjetConnection
ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
ObjetDataAdapter.Fill(ObjetDataSet, "Table1")
ObjetDataTable = ObjetDataSet.Tables("Table1")
DataGridView1.DataSource = ObjetDataTable
Catch ex As Exception
MsgBox(ex.Message(), MsgBoxStyle.Critical, "Erreur")
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ObjetDataAdapter.Update(ObjetDataSet, "Table1")
End Sub |
Partager