Posted on

DataGridView current cell after new data input

Hi guys, I have one question about Visual Basic and DataGridView behaviour.
So, after I type all the text boxes and click on button (save data), I would like user to get focus on that new data. Now, each time button is clicked, DataGridView goes on a first row. New data can be on many positions, depending on user input.

This is my code, and I wonder if there is a way to catch TextBox1 value, and after button completes its tasks to find apropriate row based on a TextBox1 value.

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        '     Dim inn As Integer  = Convert.ToInt32(TextBox1.Text)
        Dim test As Boolean = False
        For Each row In DataGridView1.Rows
            If TextBox1.Text = Trim(row.Cells("NewEntry").Value.ToString) Then
                test = True
                MsgBox("Double entry, try with a new one")
                TextBox1.Focus()
                TextBox1.BackColor = Color.Red
            End If
        Next
        If test = False Then
            If TextBox1.Text = "" Or String.IsNullOrEmpty(TextBox1.Text) Or TextBox2.Text = "" Or String.IsNullOrEmpty(TextBox2.Text) Or TextBox3.Text = "" Or String.IsNullOrEmpty(TextBox3.Text) Then
                MessageBox.Show("Check for all data")
            Else
                con.Open()
                Dim cmd As SqlCommand = New SqlCommand("Insertjmj", con)
                cmd.Parameters.AddWithValue("@NewEntry", Trim(TextBox1.Text))
                cmd.Parameters.AddWithValue("@NewMark", Trim(TextBox2.Text))
                cmd.Parameters.AddWithValue("@NewDescription", Trim(TextBox3.Text))
                cmd.Connection = con
                cmd.CommandType = CommandType.StoredProcedure
                Try
                    Dim rdr As SqlDataReader = cmd.ExecuteReader
                    Dim dt As New DataTable
                    dt.Load(rdr)
                    rdr.Close()
                    DataGridView1.DataSource = dt
                    con.Close()
                    '              DataGridView1.CurrentCell = DataGridView1.Rows(inn).Cells(0)

                Catch ex As SqlException
                    MessageBox.Show(ex.Message.ToString(), "Error Message")
                End Try
            End If
        End If
    End Sub
Posted on

How to populate table from two different BindingSources to third?

Hi, I have one form with multiple reading data (using BindingSource) and I want to store those data + some text entry to third table (also using BindingSource DataGrid)

Is it possoble to do that using sql statement ? I have connection to database. Picture is to show what I have on my mind.

If someone can give me example, just as guidelines it would be great.

foe example, how to save into database
combobox1.text (PID)
textbox1.text (PVAL)
combobox3.text (Customer)

This is code on my form from attachment 

Public Class Form2
    Dim con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\invoicedb.accdb")

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
        Form1.Show()

    End Sub

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'InvoicedbDataSet.rac' table. You can move, or remove it, as needed.
        Me.RacTableAdapter.Fill(Me.InvoicedbDataSet.rac)

        Try
            con.Open()

            If con.State = ConnectionState.Open Then
                Label5.Text = "Connected"
            Else
                Label5.Text = "Not Connected"

            End If
        Catch ex As Exception
            MsgBox(ex.Message)
            Label5.Text = "Not Connected"
        Finally
            con.Close()

        End Try
        'TODO: This line of code loads data into the 'InvoicedbDataSet.invoice' table. You can move, or remove it, as needed.
        Me.InvoiceTableAdapter.Fill(Me.InvoicedbDataSet.invoice)
        'TODO: This line of code loads data into the 'InvoicedbDataSet.customer' table. You can move, or remove it, as needed.
        Me.CustomerTableAdapter.Fill(Me.InvoicedbDataSet.customer)
        'TODO: This line of code loads data into the 'InvoicedbDataSet.company' table. You can move, or remove it, as needed.
        Me.CompanyTableAdapter.Fill(Me.InvoicedbDataSet.company)

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs)

    End Sub
End Class

Thanks

vb.png