level 6
PCDLRN
楼主
Imports System.Data.OleDb
Dim conn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\qc6\Desktop\presons.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456")
da = New OleDbDataAdapter("select * from grade", conn)
ds = New DataSet()
da.Fill(ds, "grade")
DataGridView1.DataSource = ds.Tables("grade")
2013年05月15日 01点05分
1
Dim conn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\qc6\Desktop\presons.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456")
da = New OleDbDataAdapter("select * from grade", conn)
ds = New DataSet()
da.Fill(ds, "grade")
DataGridView1.DataSource = ds.Tables("grade")