Datagridview enregistrer les modifications apportées à la Base de données vb.net

Bonjour, j'ai un databse que je charge à Datagridview dans vb.net application.
il se charge bien, mais quand j'essaie d'enregistrer la date, ça ne fonctionne pas.
voici le code

    Private myConString As String
Private con As OleDbConnection = New OleDbConnection
Private Dadapter As OleDbDataAdapter
Private DSet As DataSet
Private DSet2 As DataSet
Private ConCMD As OleDb.OleDbCommand

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    myConString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=e:\Database31.accdb"
    con.ConnectionString = myConString
    con.Open()
    Dadapter = New OleDbDataAdapter("select * from Table1", con)
    DSet = New DataSet
    Dadapter.Fill(DSet, "Table1")
    DataGridView1.DataSource = DSet.Tables("Table1")
    con.Close()
End Sub


Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    con.Open()
    Dadapter.Update(DSet, "Table1")
    DSet.AcceptChanges()
    con.Close()
End Sub

Mise à jour nécessite un valide InsertCommand lorsqu'il est passé DataRow collection avec de nouvelles lignes.
que suis-je censé faire?

la accessdatabase 3 colmuns et l'ID est la clé primaire
ID Champ1 Champ2

OriginalL'auteur FPGA | 2012-07-07

4

De sorte que vous devez définir une InsertCommand pour vous DataAdapter

Note: La ligne DSet.AcceptChanges() est redondante, car la ligne précédente Dadapter.Update appellera AcceptChanges implicitement.

Vous devez utiliser using-statement pour quoi que ce soit la mise en œuvre de IDisposable comme une Connexion. Que ferait appel Dispose(qui ferme la connexion) implicitement, même dans le cas d'une exception.

Pour le remplacer:
```
con.Open()
Dadapter.Update(DSet, "Table1")
DSet.AcceptChanges()
con.Close()
```
avec
```
Using con =  New OleDbConnection(myConString)
    con .Open()
    Dadapter.Update(DSet, "Table1")
End Using
```
merci, mais encore ce qui est une commande insert?!ma base de données n'a que 3 champs ID Champ1 Champ2..donc comment dois-je insérer la commande?
Édité ma réponse à fournir à la msdn lien pour OleDbDataAdapter.InsertCommand. Il y a un exemple de sql INSERT déclaration.
grande..supposons maintenant que j'ai rempli le datagrid view 2000 nouvelles valeurs avec une boucle pour les différents domaines..et je veux sauver ce quelle est la meilleure approche pour ce faire? l'introduction doit être au cours de la boucle et non après la boucle?
Jetez un oeil à cet exemple de code qui montre comment lier un DataGridView à une base de données Access et comment select,update,delete et insert: dreamincode.net/forums/topic/...
Merci beaucoup, cela a fonctionné!

OriginalL'auteur Rango

Vous avez besoin de lire les données de la grille de données

con.Open()
DSet = DataGridView1.DataSource  '<<<<<<<<<<<<<<<<<<<<<<<
Dadapter.Update(DSet, "Table1")
DSet.AcceptChanges()
con.Close()

OriginalL'auteur Mark

Mon VB.NET code pour les 4 types de bases de données (mise à jour des informations de DataGridView à la Base de données)

Private Sub sqldb_savedata()
Dim connectionString As String = "Server='" & sql_server & "';Database='" & sql_database & "';User Id='" & sql_user & "';Password='" & sql_pass & "'"
Dim sqlCon = New SqlConnection(connectionString)
If (sqlCon.State = ConnectionState.Closed) Then sqlCon.Open()
Dim SQLAdapter = New SqlDataAdapter("SELECT * FROM clinics", sqlCon)
Dim SQLDataSet As New DataSet
Dim myTable = DataGridViewClinic.DataSource
Dim cmdbuilder As New SqlCommandBuilder(SQLAdapter)
SQLAdapter.Update(myTable, "clinics")
MsgBox("Updated!", MsgBoxStyle.OkOnly, "")
End Sub
Private Sub mysqldb_savedata()
Dim connectionString As String = "Server='" & mysql_server & "';Database='" & mysql_database & "';User Id='" & mysql_user & "';Password='" & mysql_pass & "'"
Dim sqlCon = New MySqlConnection(connectionString)
If (sqlCon.State = ConnectionState.Closed) Then sqlCon.Open()
Dim SQLAdapter = New MySqlDataAdapter("SELECT * FROM clinics", sqlCon)
Dim SQLDataSet As New DataSet
Dim myTable = DataGridViewClinic.DataSource
Dim cmdbuilder As New MySqlCommandBuilder(SQLAdapter)
SQLAdapter.Update(myTable, "clinics")
MsgBox("Updated!", MsgBoxStyle.OkOnly, "")
End Sub
Private Sub firebirddb_savedata()
Dim connectionString As String = "Database='" & firebird_server & "';User=SYSDBA;Password=masterkey;Dialect=3;ServerType=1"
Dim sqlCon = New FirebirdSql.Data.FirebirdClient.FbConnection(connectionString)
If (sqlCon.State = ConnectionState.Closed) Then sqlCon.Open()
Dim SQLAdapter = New FirebirdSql.Data.FirebirdClient.FbDataAdapter("SELECT * FROM clinics", sqlCon)
Dim SQLDataSet As New DataSet
Dim myTable = DataGridViewClinic.DataSource
Dim cmdbuilder As New FirebirdClient.FbCommandBuilder(SQLAdapter)
SQLAdapter.Update(myTable, "clinics")
MsgBox("Updated!", MsgBoxStyle.OkOnly, "")
End Sub
Private Sub localdb_savedata()
DBconn = New SqlCeConnection("Data Source=Data Source=|DataDirectory|\Database.sdf")
If (DBconn.State = ConnectionState.Closed) Then DBconn.Open()
Dim SQLAdapter = New SqlCeDataAdapter("SELECT * FROM clinics", DBconn)
Dim SQLDataSet As New DataSet
Dim myTable = DataGridViewClinic.DataSource
Dim cmdbuilder As New SqlCeCommandBuilder(SQLAdapter)
SQLAdapter.Update(myTable, "clinics")
MsgBox("Updated!", MsgBoxStyle.OkOnly, "")
End Sub

OriginalL'auteur Maxim Galushkin

Vous devez vous connecter pour publier un commentaire.