Datagridview speichern Sie die änderungen der Datenbank vb.net

Hallo, ich habe eine Datenbank, die ich laden Sie zu Datagridview in vb.net -Anwendung.
es lädt gut, aber wenn ich versuche die save the date-es funktioniert nicht.
hier ist der 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

Aktualisieren erfordert einen gültigen InsertCommand, wenn übergeben DataRow-Auflistung mit neuen Zeilen.
was soll ich tun?

den accessdatabase 3 colmuns und die ID ist primary key
ID Feld1 Feld2

InformationsquelleAutor FPGA | 2012-07-07

4

So müssen Sie definieren eine InsertCommand für Sie DataAdapter

Seite-Hinweis: Die Linie DSet.AcceptChanges() ist redundant, da die Vorherige Zeile Dadapter.Update rufen AcceptChanges implizit.

Sollten Sie verwenden using-statement für alles, was die Umsetzung IDisposable wie eine Verbindung. Das nennen würde Dispose(das schließt die Verbindung) implizit auch im Fall einer Ausnahme.

So ersetzen:
```
con.Open()
Dadapter.Update(DSet, "Table1")
DSet.AcceptChanges()
con.Close()
```
mit
```
Using con =  New OleDbConnection(myConString)
    con .Open()
    Dadapter.Update(DSet, "Table1")
End Using
```
danke, aber noch was ist ein insert-Befehl?!meine Datenbank hat nur 3 Felder ID Feld1 Feld2..also wie sollte mein insert-Befehl Aussehen?
Bearbeitet meine Antwort zu bieten, die msdn-link zur OleDbDataAdapter.InsertCommand. Es ist ein Beispiel für eine sql - INSERT - Anweisung.
Super..jetzt nehmen wir an, ich füllte das datagrid-view 2000 neue Werte mit einer Schleife für verschiedene Felder..und ich möchten, speichern Sie diese, was ist der beste Ansatz, um dies zu tun? das einlegen sollte während der Schleife nicht nach der Schleife?
Haben Sie einen Blick auf diese Beispiel-code zeigt die Vorgehensweise zum binden eines DataGridView in eine Access-Datenbank und wie Sie select -, update -, delete-und insert: dreamincode.net/forums/topic/...
Vielen Dank, es hat geklappt!

InformationsquelleAutor Rango

Müssen Sie einmal Lesen, das dataset aus der datagrid -

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

InformationsquelleAutor Mark

Meine VB.NET code für die 4 Art der Datenbanken (update der Daten aus DataGridView in Datenbank)

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

InformationsquelleAutor Maxim Galushkin

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.