Hallo,
Ik heb een Microsoft Access tabel gekoppeld aan een Datagridview in Visual Basic Studio 2008.
Ik ben zover gekomen dat de gegevens die ik invul in TextBox1 en TextBox2 worden toegevoegd aan de Datagridview. Maar hoe ik deze gegevens in de Datagridview weer kan updaten naar de Microsoft Access tabel inclusief de gegevens die ik heb ingevuld, heb ik nog niet voor elkaar kunnen krijgen, en ik weet niet wat er mis gaat.
Hopelijk weet iemand een oplossing.
Hieronder code tot nu toe:
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.IO
Imports System
Imports System.Text
Imports Microsoft.Win32
Imports System.Data.DataTable
Public Class Form2
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
Dim Dirsetup As String
Dim DirBron As String
Dim ds As DataSet = New DataSet
Dim tables As DataTableCollection = ds.Tables
Dim DataAdapter1 As OleDbDataAdapter = New OleDbDataAdapter()
Dim con As OleDbConnection
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim d As DriveInfo
For Each d In allDrives
If d.IsReady = True Then
DirBron = ((d.Name))
End If
If My.Computer.FileSystem.DirectoryExists((d.Name) & My.Settings.SURDIR) Then
Dirsetup = ((d.Name) & My.Settings.SURDIR)
Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _
(Dirsetup) & My.Settings.DBNAME)
Dim sql As OleDbCommand = New OleDbCommand("SELECT * FROM AA2_LD2011", con)
DataAdapter1 = New OleDbDataAdapter(sql)
Dim ds As DataSet = New DataSet()
con.Open()
DataAdapter1.Fill(ds, "Le")
DataGridView1.DataSource = ds.Tables("Le").DefaultView
con.Close()
End If
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim totalrows As Integer = DataGridView1.RowCount - 1
DataGridView1.Item(0, totalrows).Value = TextBox1.Text
DataGridView1.Item(1, totalrows).Value = TextBox2.Text
DataGridView1.Item(2, totalrows).Value = "N"
Me.Validate()
DataGridView1.EndEdit()
DataAdapter1.Update(ds, "Le")
End Sub
End Class
Ik heb een Microsoft Access tabel gekoppeld aan een Datagridview in Visual Basic Studio 2008.
Ik ben zover gekomen dat de gegevens die ik invul in TextBox1 en TextBox2 worden toegevoegd aan de Datagridview. Maar hoe ik deze gegevens in de Datagridview weer kan updaten naar de Microsoft Access tabel inclusief de gegevens die ik heb ingevuld, heb ik nog niet voor elkaar kunnen krijgen, en ik weet niet wat er mis gaat.
Hopelijk weet iemand een oplossing.
Hieronder code tot nu toe:
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.IO
Imports System
Imports System.Text
Imports Microsoft.Win32
Imports System.Data.DataTable
Public Class Form2
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
Dim Dirsetup As String
Dim DirBron As String
Dim ds As DataSet = New DataSet
Dim tables As DataTableCollection = ds.Tables
Dim DataAdapter1 As OleDbDataAdapter = New OleDbDataAdapter()
Dim con As OleDbConnection
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim d As DriveInfo
For Each d In allDrives
If d.IsReady = True Then
DirBron = ((d.Name))
End If
If My.Computer.FileSystem.DirectoryExists((d.Name) & My.Settings.SURDIR) Then
Dirsetup = ((d.Name) & My.Settings.SURDIR)
Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _
(Dirsetup) & My.Settings.DBNAME)
Dim sql As OleDbCommand = New OleDbCommand("SELECT * FROM AA2_LD2011", con)
DataAdapter1 = New OleDbDataAdapter(sql)
Dim ds As DataSet = New DataSet()
con.Open()
DataAdapter1.Fill(ds, "Le")
DataGridView1.DataSource = ds.Tables("Le").DefaultView
con.Close()
End If
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim totalrows As Integer = DataGridView1.RowCount - 1
DataGridView1.Item(0, totalrows).Value = TextBox1.Text
DataGridView1.Item(1, totalrows).Value = TextBox2.Text
DataGridView1.Item(2, totalrows).Value = "N"
Me.Validate()
DataGridView1.EndEdit()
DataAdapter1.Update(ds, "Le")
End Sub
End Class
