Home
Forums
New posts
Search forums
What's new
New posts
New profile posts
Latest activity
Members
Current visitors
New profile posts
Search profile posts
C# Community
Log in
Register
What's new
Search
Search
Search titles only
By:
New posts
Search forums
Menu
Log in
Register
Install the app
Install
Home
Forums
Database
Database General Discussion
Updating my datagrid
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Reply to thread
Message
<blockquote data-quote="David_nyh" data-source="post: 5365" data-attributes="member: 2151"><p>How can I save my datagrid? I tried everything. I can delete a row and cancel it but I can't save it.</p><p></p><p>Some of my code:</p><p>[CODE] </p><p>'Data van de tabel parameters ophalen</p><p>Private Sub fillDataSetParameters(ByVal paramSQLString As String)</p><p></p><p>'Data uit de tabel parameters ophalen</p><p>Dim paramDataSet As New DataSet()</p><p>Dim paramDataAdapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter()</p><p>Dim paramCommand As OleDb.OleDbCommand = New OleDb.OleDbCommand(paramSQLString)</p><p>paramCommand.CommandType = CommandType.Text</p><p>paramCommand.Connection() = myDbConnection</p><p>paramDataAdapter.SelectCommand = paramCommand</p><p>paramDataAdapter.TableMappings.Add("Table", "tabel_parameters")</p><p>paramDataAdapter.Fill(paramDataSet)</p><p></p><p>'Maximum aantal boeken en maximum aantal weken dat boeken mogen ontleend worden</p><p>lblMaxOntlBoek.DataBindings.Add("text", paramDataSet, "tabel_parameters.max_aant_boeken")</p><p>lblMaxOntlWeken.DataBindings.Add("text", paramDataSet, "tabel_parameters.max_ontl_tijd")</p><p></p><p>End Sub</p><p></p><p>'Data van de tabel leden ophalen</p><p>Private Sub fillDataSetLeden(ByVal ledenSQLString As String)</p><p></p><p>'Data uit de tabel leden ophalen</p><p>Dim ledenCommand As OleDb.OleDbCommand = New OleDb.OleDbCommand(ledenSQLString, myDbConnection)</p><p>Dim ledenReader As OleDb.OleDbDataReader = ledenCommand.ExecuteReader()</p><p></p><p>'Verwijder bestaande items in de ListView</p><p>lstLeden.Items.Clear()</p><p></p><p>'Lees alle rijen van de data</p><p>Dim ledenListViewItem As ListViewItem</p><p>While ledenReader.Read() = True</p><p>Try</p><p>'Voeg de items toe aan de ListView</p><p>ledenListViewItem = New ListViewItem()</p><p>ledenListViewItem.Text = ledenReader.Item("lid_id")</p><p>ledenListViewItem.SubItems.Add(ledenReader.Item("lid_voornaam"))</p><p>ledenListViewItem.SubItems.Add(ledenReader.Item("lid_naam"))</p><p>lstLeden.Items.Add(ledenListViewItem)</p><p>ledenListViewItem = Nothing</p><p>Catch</p><p>'???</p><p>End Try</p><p>End While</p><p>ledenReader.Close()</p><p></p><p>'Zet det focus op de listview en zorg ervoor dat de eerste rij actief is</p><p>lstLeden.Focus()</p><p>lstLeden.Items(0).Selected = True</p><p></p><p>End Sub</p><p></p><p>'Data van de tabel ontleningen ophalen</p><p>Private Sub loadIndividual()</p><p></p><p>Dim ontlSQLString As String</p><p>Dim ontlName As String</p><p>Dim ontlDataRow As DataRow</p><p>Dim oCtl As Object</p><p></p><p>ontlDataSet.Clear()</p><p></p><p>If Me.lstLeden.SelectedItems.Count > 0 Then</p><p>Try</p><p>'Data uit de tabel ontlening ophalen</p><p>ontlSQLString = "SELECT tabel_ontlening.ontl_id, tabel_boeken.boek_titel, tabel_ontlening.ontl_datum, tabel_ontlening.ontl_terug_datum FROM tabel_boeken INNER JOIN tabel_ontlening ON tabel_boeken.boek_id = tabel_ontlening.boek_id Where lid_id = " & Me.lstLeden.SelectedItems(0).Text</p><p>Dim ontlDataAdapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter()</p><p>Dim ontlCommand As OleDb.OleDbCommand = New OleDb.OleDbCommand(ontlSQLString)</p><p>ontlCommand.CommandType = CommandType.Text</p><p>ontlCommand.Connection() = myDbConnection</p><p>ontlDataAdapter.SelectCommand = ontlCommand</p><p>ontlDataAdapter.TableMappings.Add("Table", "tabel_ontlening")</p><p>ontlDataAdapter.Fill(ontlDataSet)</p><p></p><p>'Data binden aan de DataGrid</p><p>DataGrid1.SetDataBinding(ontlDataSet, "tabel_ontlening")</p><p></p><p>'Een stijl aan de DataGrid koppelen</p><p>Dim tableStyle As New DataGridTableStyle()</p><p>DataGrid1.TableStyles.Clear()</p><p>tableStyle.MappingName = "tabel_ontlening"</p><p></p><p>Dim column As New DataGridTextBoxColumn()</p><p>column.MappingName = "ontl_id"</p><p>column.HeaderText = "ID"</p><p>column.Width = 25</p><p>tableStyle.GridColumnStyles.Add(column)</p><p></p><p>column = New DataGridTextBoxColumn()</p><p>column.MappingName = "boek_titel"</p><p>column.HeaderText = "Boek titel"</p><p>column.Width = 304</p><p>tableStyle.GridColumnStyles.Add(column)</p><p></p><p>column = New DataGridTextBoxColumn()</p><p>column.MappingName = "ontl_datum"</p><p>column.HeaderText = "Datum ontleend"</p><p>column.Width = 110</p><p>tableStyle.GridColumnStyles.Add(column)</p><p></p><p>column = New DataGridTextBoxColumn()</p><p>column.MappingName = "ontl_terug_datum"</p><p>column.HeaderText = "Datum terug "</p><p>column.Width = 110</p><p>tableStyle.GridColumnStyles.Add(column)</p><p></p><p>DataGrid1.TableStyles.Add(tableStyle)</p><p></p><p>Catch oexpData As OleDb.OleDbException</p><p>MessageBox.Show("Error loading individual data: " & oexpData.Message)</p><p>Exit Sub</p><p>End Try</p><p></p><p>For Each oCtl In Me.Controls</p><p>If TypeOf oCtl Is TextBox Then</p><p>ontlName = Mid(oCtl.Name, 4)</p><p>Try</p><p>oCtl.text = ontlDataRow(ontlName).ToString</p><p>Catch oexp As Exception</p><p>End Try</p><p>End If</p><p>Next</p><p>End If</p><p></p><p>End Sub</p><p></p><p>'Verwijder de geselecteerde boek uit de DataGrid</p><p>Private Sub btnVerwijder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerwijder.Click</p><p></p><p>Dim Response As VariantType</p><p>Response = MessageBox.Show("Confirm Delete Record?", "Delete Confirmation", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)</p><p>If (Response = vbYes) Then</p><p>StatusBar1.Panels(0).Text = "Deleting..."</p><p>If (Me.BindingContext(ontlDataSet, "tabel_ontlening").Count > 0) Then</p><p>Me.BindingContext(ontlDataSet, "tabel_ontlening").RemoveAt(Me.BindingContext(ontlDataSet, "tabel_ontlening").Position)</p><p>Me.updateLabel()</p><p>Me.btnAllesAnuleren.Enabled = True</p><p>Me.btnAllesOpslaan.Enabled = True</p><p>End If</p><p>End If</p><p></p><p>End Sub</p><p></p><p>'Maak de wijzigingen ongedaan in de DataGrid</p><p>Private Sub btnAllesAnuleren_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAllesAnuleren.Click</p><p></p><p>Me.ontlDataSet.RejectChanges()</p><p>Me.updateLabel()</p><p>Me.btnAllesAnuleren.Enabled = False</p><p></p><p>End Sub</p><p></p><p>'Slaag alle wijzigingen in de DataGrid op</p><p>Private Sub btnAllesOpslaan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAllesOpslaan.Click</p><p>Me.ontlDataSet.AcceptChanges()</p><p>End Sub</p><p>[/CODE]</p></blockquote><p></p>
[QUOTE="David_nyh, post: 5365, member: 2151"] How can I save my datagrid? I tried everything. I can delete a row and cancel it but I can't save it. Some of my code: [CODE] 'Data van de tabel parameters ophalen Private Sub fillDataSetParameters(ByVal paramSQLString As String) 'Data uit de tabel parameters ophalen Dim paramDataSet As New DataSet() Dim paramDataAdapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter() Dim paramCommand As OleDb.OleDbCommand = New OleDb.OleDbCommand(paramSQLString) paramCommand.CommandType = CommandType.Text paramCommand.Connection() = myDbConnection paramDataAdapter.SelectCommand = paramCommand paramDataAdapter.TableMappings.Add("Table", "tabel_parameters") paramDataAdapter.Fill(paramDataSet) 'Maximum aantal boeken en maximum aantal weken dat boeken mogen ontleend worden lblMaxOntlBoek.DataBindings.Add("text", paramDataSet, "tabel_parameters.max_aant_boeken") lblMaxOntlWeken.DataBindings.Add("text", paramDataSet, "tabel_parameters.max_ontl_tijd") End Sub 'Data van de tabel leden ophalen Private Sub fillDataSetLeden(ByVal ledenSQLString As String) 'Data uit de tabel leden ophalen Dim ledenCommand As OleDb.OleDbCommand = New OleDb.OleDbCommand(ledenSQLString, myDbConnection) Dim ledenReader As OleDb.OleDbDataReader = ledenCommand.ExecuteReader() 'Verwijder bestaande items in de ListView lstLeden.Items.Clear() 'Lees alle rijen van de data Dim ledenListViewItem As ListViewItem While ledenReader.Read() = True Try 'Voeg de items toe aan de ListView ledenListViewItem = New ListViewItem() ledenListViewItem.Text = ledenReader.Item("lid_id") ledenListViewItem.SubItems.Add(ledenReader.Item("lid_voornaam")) ledenListViewItem.SubItems.Add(ledenReader.Item("lid_naam")) lstLeden.Items.Add(ledenListViewItem) ledenListViewItem = Nothing Catch '??? End Try End While ledenReader.Close() 'Zet det focus op de listview en zorg ervoor dat de eerste rij actief is lstLeden.Focus() lstLeden.Items(0).Selected = True End Sub 'Data van de tabel ontleningen ophalen Private Sub loadIndividual() Dim ontlSQLString As String Dim ontlName As String Dim ontlDataRow As DataRow Dim oCtl As Object ontlDataSet.Clear() If Me.lstLeden.SelectedItems.Count > 0 Then Try 'Data uit de tabel ontlening ophalen ontlSQLString = "SELECT tabel_ontlening.ontl_id, tabel_boeken.boek_titel, tabel_ontlening.ontl_datum, tabel_ontlening.ontl_terug_datum FROM tabel_boeken INNER JOIN tabel_ontlening ON tabel_boeken.boek_id = tabel_ontlening.boek_id Where lid_id = " & Me.lstLeden.SelectedItems(0).Text Dim ontlDataAdapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter() Dim ontlCommand As OleDb.OleDbCommand = New OleDb.OleDbCommand(ontlSQLString) ontlCommand.CommandType = CommandType.Text ontlCommand.Connection() = myDbConnection ontlDataAdapter.SelectCommand = ontlCommand ontlDataAdapter.TableMappings.Add("Table", "tabel_ontlening") ontlDataAdapter.Fill(ontlDataSet) 'Data binden aan de DataGrid DataGrid1.SetDataBinding(ontlDataSet, "tabel_ontlening") 'Een stijl aan de DataGrid koppelen Dim tableStyle As New DataGridTableStyle() DataGrid1.TableStyles.Clear() tableStyle.MappingName = "tabel_ontlening" Dim column As New DataGridTextBoxColumn() column.MappingName = "ontl_id" column.HeaderText = "ID" column.Width = 25 tableStyle.GridColumnStyles.Add(column) column = New DataGridTextBoxColumn() column.MappingName = "boek_titel" column.HeaderText = "Boek titel" column.Width = 304 tableStyle.GridColumnStyles.Add(column) column = New DataGridTextBoxColumn() column.MappingName = "ontl_datum" column.HeaderText = "Datum ontleend" column.Width = 110 tableStyle.GridColumnStyles.Add(column) column = New DataGridTextBoxColumn() column.MappingName = "ontl_terug_datum" column.HeaderText = "Datum terug " column.Width = 110 tableStyle.GridColumnStyles.Add(column) DataGrid1.TableStyles.Add(tableStyle) Catch oexpData As OleDb.OleDbException MessageBox.Show("Error loading individual data: " & oexpData.Message) Exit Sub End Try For Each oCtl In Me.Controls If TypeOf oCtl Is TextBox Then ontlName = Mid(oCtl.Name, 4) Try oCtl.text = ontlDataRow(ontlName).ToString Catch oexp As Exception End Try End If Next End If End Sub 'Verwijder de geselecteerde boek uit de DataGrid Private Sub btnVerwijder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerwijder.Click Dim Response As VariantType Response = MessageBox.Show("Confirm Delete Record?", "Delete Confirmation", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) If (Response = vbYes) Then StatusBar1.Panels(0).Text = "Deleting..." If (Me.BindingContext(ontlDataSet, "tabel_ontlening").Count > 0) Then Me.BindingContext(ontlDataSet, "tabel_ontlening").RemoveAt(Me.BindingContext(ontlDataSet, "tabel_ontlening").Position) Me.updateLabel() Me.btnAllesAnuleren.Enabled = True Me.btnAllesOpslaan.Enabled = True End If End If End Sub 'Maak de wijzigingen ongedaan in de DataGrid Private Sub btnAllesAnuleren_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAllesAnuleren.Click Me.ontlDataSet.RejectChanges() Me.updateLabel() Me.btnAllesAnuleren.Enabled = False End Sub 'Slaag alle wijzigingen in de DataGrid op Private Sub btnAllesOpslaan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAllesOpslaan.Click Me.ontlDataSet.AcceptChanges() End Sub [/CODE] [/QUOTE]
Insert quotes…
Verification
Post reply
Home
Forums
Database
Database General Discussion
Updating my datagrid
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.
Accept
Learn more…
Top
Bottom