16,717
社区成员
发帖
与我相关
我的任务
分享 '使用DataSet连接数据库()
Dim ds As New DataSet
Dim cn As New OleDb.OleDbConnection
Dim dataAdapter As OleDbDataAdapter
Dim commandBuilder As New OleDbCommandBuilder(dataAdapter)
Dim selectCommand As String = "select * from Setting"
Dim connectionStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\set.mdb;" 'User ID=admin;Password=1111"
cn.ConnectionString = connectionStr
dataAdapter = New OleDbDataAdapter(selectCommand, cn)
'视图填充,使用DataSet中Setting
dataAdapter.Fill(ds, "Setting")
'绑定到DataGridView1
Me.DataGridView1.DataSource = ds.Tables("Setting")
cn.Close()