vb.net 连接access在datagridview显示,修改

vb.net 连access

Public Class Form1

Public customers As DataSet = New DataSet
Public sq As String
Public myconnectstring As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sq = “SELECT * FROM 联系 where 标识='供应商 '”
Dim adapter As New OleDb.OleDbDataAdapter
myconnectstring = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:testdatazl.accdb;Persist Security Info=True;Jet OLEDB:Database Password=****”
Using connection As New OleDb.OleDbConnection(myconnectstring)
adapter.SelectCommand = New OleDb.OleDbCommand(sq, connection)
Dim builder As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(adapter)

‘数据集
Dim MYDATASET As New DataSet
adapter.Fill(MYDATASET)
Me.DataGridView1.DataSource = MYDATASET.Tables(“table”)’=MyTable

填充数据表

Dim MyTable As New DataTable()
mytable.Clear()
adapter.Fill(mytable)

Me.DataGridView1.DataSource = MyTable

update:

Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim adapter As New OleDb.OleDbDataAdapter
Using connection As New OleDb.OleDbConnection(myconnectstring)
adapter.SelectCommand = New OleDb.OleDbCommand(sq, connection)
Dim builder As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(adapter)
connection.Open()
adapter.Update(customers)
connection.Close()
MsgBox(“OK”)
End Using

End Sub