I have many problems finding ways to update my datagridview. I tried datagridview.refresh (), datagridview.Update () .... but it does not work ...
here is my code
Imports System.Data Imports System.Data.OleDb Imports System.Data.Odbc Imports System.Data.DataTable Public Class Form1 Dim provider As String Dim dataFile As String Dim connString As String Dim addstring As String Dim cnn As OleDbConnection = New OleDbConnection Dim ds As DataSet = New DataSet Dim da As OleDbDataAdapter Dim tables As DataTableCollection = ds.Tables Dim cmd As New OleDb.OleDbCommand Dim dr As System.Data.OleDb.OleDbDataReader Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load t_date.Text = Today provider = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" dataFile = "C:\Users\hp-2\Documents\Visual Studio 2012\Projects\Delta\Delta.mdb" connString = provider & dataFile cnn.ConnectionString = connString da = New OleDbDataAdapter("Select Customer_Name, Job, Amount from [Transaction] where Trans_date = Date()", cnn) da.Fill(ds, "Transaction") Dim view1 As New DataView(tables(0)) Dim source1 As New BindingSource() source1.DataSource = view1 showdata.DataSource = view1 showdata.Refresh() cnn.Close() End Sub
I tried this one but it doesn't work either.
Private Sub showdat() If Not cnn.State = ConnectionState.Open Then cnn.Open() End If showdata.Refresh() cnn.Close() End Sub
...
Private Sub btmclose_Click(sender As Object, e As EventArgs) Handles btmclose.Click Me.Close() End Sub Private Sub C_job_SelectedIndexChanged(sender As Object, e As EventArgs) Handles C_job.SelectedIndexChanged Dim selected As String = C_job.SelectedItem.ToString() If selected = "Internet" Then t_amount.Text = "20" php.Visible = True ElseIf selected = "Games" Then t_amount.Text = "10" php.Visible = True ElseIf selected = "Print (short)" Then t_amount.Text = "1" php.Visible = True ElseIf selected = "Print (long)" Then t_amount.Text = "2" php.Visible = True ElseIf t_amount.Text = "" Then php.Visible = False End If End Sub
here is my ADD button ... after I clicked ... the data was added successfully, but the datagridview is not updating ...
Private Sub btnadd_Click(sender As Object, e As EventArgs) Handles btnadd.Click provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" dataFile = "C:\Users\hp-2\Documents\Visual Studio 2012\Projects\Delta\Delta.mdb" connString = provider & dataFile cnn.ConnectionString = connString cnn.Open() cmd.Connection = cnn cmd.CommandText = "insert into [Transaction] (Customer_Name, Job, Trans_date, Amount ) " & _ " values ('" & C_name.Text & "','" & C_job.Text & "','" & t_date.Text & "','" & t_amount.Text & "')" cmd.ExecuteNonQuery() showdat() cnn.Close() End Sub End Class
source share