Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Database vb.net在数据库更改时自动更新datagridview_Database_Vb.net_Sql Server 2005_Datagridview - Fatal编程技术网

Database vb.net在数据库更改时自动更新datagridview

Database vb.net在数据库更改时自动更新datagridview,database,vb.net,sql-server-2005,datagridview,Database,Vb.net,Sql Server 2005,Datagridview,我有一个应用程序,多个用户可以连接到一个数据库,当数据库发生变化时,datagridview需要自动更新。没有计时器也可以吗?-我不能保证它不会在引擎盖下使用计时器,但听起来这就是你要去的地方。-我不能保证它不会在引擎盖下使用计时器,但听起来这就是你要去的地方我不能保证它不会在引擎盖下使用计时器,但听起来这就是你要去的地方。 Public Class Form1 Dim dbDataAdapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDa

我有一个应用程序,多个用户可以连接到一个数据库,当数据库发生变化时,datagridview需要自动更新。没有计时器也可以吗?

-我不能保证它不会在引擎盖下使用计时器,但听起来这就是你要去的地方。-我不能保证它不会在引擎盖下使用计时器,但听起来这就是你要去的地方我不能保证它不会在引擎盖下使用计时器,但听起来这就是你要去的地方。
Public Class Form1
    Dim dbDataAdapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter
    Dim dbDataSet As DataSet = New DataSet

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim con As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\database1.accdb;Persist Security Info=False;")  ' Use relative path to database file
        Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand("SELECT * FROM Table1", con)

        con.Open()

        'Dim dbDataAdapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter
        dbDataAdapter = New OleDb.OleDbDataAdapter(cmd)

        'Here one CommandBuilder object is required.
        'It will automatically generate DeleteCommand,UpdateCommand and InsertCommand for DataAdapter object  
        Dim builder As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(dbDataAdapter)

        'Dim dbDataSet As DataSet = New DataSet
        dbDataAdapter.Fill(dbDataSet, "MyTable")
        DataGridView1.DataSource = dbDataSet.Tables("MyTable").DefaultView

        con.Close()
        con = Nothing
    End Sub

    Private Sub DataGridView1_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
        Me.Validate()
        Me.dbDataAdapter.Update(Me.dbdataset.Tables("MyTable"))
        Me.dbDataSet.AcceptChanges()
    End Sub
End Class