So while I've been able to pick up a great deal just stumbling through on my own with the several apress books I've gotten a hold of I've figured out a great deal and have some half decent forms for data entry but for the life of me I can't figure out how to get the databinding to do whatever it does again after having entered data into the database.
My problem placed more concisely
My form's data grid populates from a stored procedure via a binding source.
My form's button then uses another stored procedure to enter in the data into the database.
What I want to do is have the datagrid recall the stored procedure and refresh the grid with the newly modified data included.
This is what I've been racking my brain over for some time, and scouring the internet and my various apress books for, is figuiring out why none of my attempts at doing this are working.
I'm just finding most all of the stuff out there about datagrids and the such are not at all tailored towards a person trying to do all their interactions via stored procedures. I know I can do the basics, and the forms work and I know that if I just close the form and access it manually again that the datagrid reloads with the newly input data, but I'm really trying to get it so that I'm making a UI that is as easy to use as I can get it.
Expand|Select|Wrap|Line Numbers
- Imports System
- Imports System.Data
- Imports System.Data.SqlClient
- Public Class WholeAppleInsertion
- ' This form is for entering Apple Names with their corresponding
- ' Type. I'm presently trying to get it to work where after submitting
- ' the new name that the data grid will reset itself via calling upon the
- ' stored procedure originally used to populate the grid so that it can
- ' repopulate it, giving an updated view to the user
- Private Sub WholeAppleInsertion_Load( _
- ByVal sender As System.Object, _
- ByVal e As System.EventArgs) _
- Handles MyBase.Load
- 'TODO: This line of code loads data into the 'VaedaAlefDataSet1.spSelectallWholeApple' _
- ' table. You can move, or remove it, as needed.
- Me.spSelectallWholeAppleTableAdapter1.Fill(Me.VaedaAlefDataSet1.spSelectallWholeApple)
- Me.spSelectAppleTypeTableAdapter.Fill(Me.VaedaAlefDataSet.spSelectAppleTypeTableAdapterType)
- Me.spSelectallWholeAppleTableAdapter.Fill( _
- Me.VaedaAlefDataSet.spSelectallWholeApple)
- End Sub
- ' This is the data grid that holds the list of Apple names with their types
- ' that are found in the database. THIS is the data grid that I want to get to
- ' update, to refresh, or however you'd say it, whenever the button is pushed.
- Private Sub DataGridView1_CellContentClick( _
- ByVal sender As System.Object, _
- ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) _
- Handles DataGridView1.CellContentClick
- End Sub
- '########THIS IS THE BUTTON CLICK EVENT I WANT TO
- '########TRIGGER THE REFRESHING OF THE DATAGRID
- Public Function EnterApple_Click( _
- ByVal sender As System.Object, _
- ByVal e As System.EventArgs) As SqlDataReader _
- Handles EnterApple.Click
- Using sqlconn As New SqlConnection
- Dim retval As Integer
- sqlconn.ConnectionString = "Data Source=SQUASHERZ-PC\SQLEXPRESS;Initial Catalog=VaedaAlef;Integrated Security=True"
- sqlconn.Open()
- Dim sqlComm As New SqlCommand
- sqlComm.Connection = sqlconn
- sqlComm.CommandType = CommandType.StoredProcedure
- sqlComm.CommandText = "spInserlectWholeApple"
- Try
- sqlComm.Parameters.Add("@Name", SqlDbType.VarChar)
- sqlComm.Parameters.Add("@Type", SqlDbType.SmallInt)
- sqlComm.Parameters("@Name").Direction = ParameterDirection.Input
- sqlComm.Parameters("@Name").Value = TxtAppleName.Text
- sqlComm.Parameters("@Type").Direction = ParameterDirection.Input
- sqlComm.Parameters("@Type").Value = ParameterDirection.Input = ComboBox1.SelectedValue
- retval = sqlComm.ExecuteNonQuery()
- Catch Sqlex As SqlException
- MessageBox.Show(Sqlex.Message)
- End Try
- TxtAppleName.Text = ""
- If retval >= 1 Then
- MsgBox("something happened")
- End If
- ' //Here below are my attempts at getting this to refresh
- ' //It likely makes it clear that I don't know what I'm doing
- ' PLEASE HELP!
- Me.WholeAppleInsertion_ResetBindings()
- Me.spSelectallWholeAppleBindingSource1.ResetItem(0)
- Me.DataGridView1.Refresh()
- sqlconn.Close()
- End Using
- End Function
- Private Sub TextBox1_TextChanged( _
- ByVal sender As System.Object, _
- ByVal e As System.EventArgs) _
- Handles TxtAppleName.TextChanged
- End Sub
- Private Sub ComboBox1_SelectedIndexChanged( _
- ByVal sender As System.Object, _
- ByVal e As System.EventArgs)
- End Sub
- Private Sub ComboBox1_SelectedIndexChanged_1( _
- ByVal sender As System.Object, _
- ByVal e As System.EventArgs) _
- Handles ComboBox1.SelectedIndexChanged
- End Sub
- Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, _
- ByVal e As System.ComponentModel.DoWorkEventArgs) _
- Handles BackgroundWorker1.DoWork
- End Sub
- Private Sub spSelectallWholeAppleBindingSource1_CurrentChanged _
- (ByVal sender As System.Object, _
- ByVal e As System.EventArgs) _
- Handles spSelectallWholeAppleBindingSource1.CurrentChanged
- End Sub
- 'This sub is the binding source that retrieves the data for the data grid
- 'This is what I'm trying to figure out how to get it to refresh so that the data
- 'grid displays the new information whenever a new name is submitted via the 'submit
- 'new button' button.
- Private Sub spSelectallWholeAppleBindingSource_CurrentChanged _
- (ByVal sender As System.Object, _
- ByVal e As System.EventArgs) _
- Handles spSelectallWholeAppleBindingSource.CurrentChanged
- End Sub
- End Class