Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionImports System.Data.OleDb Public Class Form1 Dim connetionString As String Dim connection As OleDbConnection Dim oledbAdapter As OleDbDataAdapter Dim oledbCmdBuilder As OleDbCommandBuilder Dim ds As New DataSet Dim changes As DataSet Dim i As Integer Dim sql As String 'Ouvrir et afficher dans Datagridview Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\LePivert\Documents\Visual Studio 2010\Projects\Creer_Connecter__bddaccess_W8\Connecter_bddaccess_W8\bin\Debug\Mabase_exemple.mdb;" 'adapter le chemin de la base connection = New OleDbConnection(connetionString) sql = ("Select * from Clients") 'adapter le nom de la table Try connection.Open() oledbAdapter = New OleDbDataAdapter(sql, connection) oledbAdapter.Fill(ds) DataGridView1.DataSource = ds.Tables(0) Catch ex As Exception MsgBox(ex.ToString) End Try End Sub 'enregistrer dans la base Access Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Try oledbCmdBuilder = New OleDbCommandBuilder(oledbAdapter) changes = ds.GetChanges() If changes IsNot Nothing Then oledbAdapter.Update(ds.Tables(0)) End If ds.AcceptChanges() MsgBox("Save changes") Catch ex As Exception MsgBox(ex.ToString) End Try End Sub End Class
Imports System.Data.OleDb Public Class Form2 Dim connetionString As String Dim connection As OleDbConnection Dim oledbAdapter As OleDbDataAdapter Dim oledbCmdBuilder As OleDbCommandBuilder Dim ds As New DataSet Dim changes As DataSet Dim i As Integer Dim sql As String 'Ouvrir et afficher dans Datagridview Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click connetionString = "Provider=Microsoft.Jet.OLEDB.4.0 ; data source = demo.mdb;" 'adapter le chemin de la base connection = New OleDbConnection(connetionString) sql = ("Select * from FICHE") 'adapter le nom de la table Try connection.Open() oledbAdapter = New OleDbDataAdapter(sql, connection) oledbAdapter.Fill(ds) DataGridView1.DataSource = ds.Tables(0) Catch ex As Exception MsgBox(ex.ToString) End Try End Sub 'enregistrer dans la base Access Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Try oledbCmdBuilder = New OleDbCommandBuilder(oledbAdapter) changes = ds.GetChanges() If changes IsNot Nothing Then oledbAdapter.Update(ds.Tables(0)) End If ds.AcceptChanges() MsgBox("Save changes") Catch ex As Exception MsgBox(ex.ToString) End Try End Sub Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub End Class
connetionString = "Provider=Microsoft.Jet.OLEDB.4.0 ; data source = demo.mdb;" 'adapter le chemin de la bas
connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\demo.mdb;"
data source = demo.mdb;" 'adapter le chemin de la bas</code>
Non, toujours pareil....
Merci d'avoir essayer et désolé de t'avoir fait perdre ton temps.
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click cnx = New OleDbConnection cnxstr = "provider = microsoft.jet.oledb.4.0 ; data source = demo.mdb;" cnx.ConnectionString = cnxstr Dim access As String '--------------------------Marche en sélectionnant seulement champs modifiés------------------------------------------------------------------------------------------------- access = "UPDATE FICHE SET COCNE = '" & TextBox1.Text & "', COPERAUT = '" & TextBox3.Text & "', NUFICHE ='" & TextBox4.Text & "', NOM ='" & TextBox5.Text & "' WHERE NUPERMIS ='" & TextBox2.Text & "'" ' & Chr(34) Dim cmd As New OleDbCommand(access, cnx) cnx.Open() cmd.ExecuteNonQuery() cnx.Close() dts.Clear() dta.Fill(dts, "FICHE") dtt = dts.Tables("FICHE")
j'arrive a modifier mon dataset,est contradictoire de
mais on avance mon dataset.getchanges () est a Null...
'modification des données dtr("COCNE") = DB1.Rows(e.RowIndex).Cells(0).Value dtr("NUPERMIS") = DB1.Rows(e.RowIndex).Cells(1).Value dtr("COPERAUT") = DB1.Rows(e.RowIndex).Cells(2).Value dtr("NUFICHE") = DB1.Rows(e.RowIndex).Cells(3).Value dtr("NOM") = DB1.Rows(e.RowIndex).Cells(4).Value
(comme indiqué dans le lien qu'à donné LePivert dans le message 5)
Modifié le 26 janv. 2021 à 11:39
AJOUTER UN ENREGISTREMENT
parce que ce n'est pas la manière dont tu procèdes!
si tu téléchargeais l'exemple tu comprendrais mieux la façon de procéder
Tu trouveras d'autres exemples ici:
https://codes-sources.commentcamarche.net/source/list/visual-basic-vb-net-1/17-base-de-donnees/last
@+