2011年7月20日水曜日

→→→DataGridに表示する

'スタンダード<DataGrid表示>

Dim dSet As DataSet = New DataSet("t_テスト")
Dim dAdp As OleDbDataAdapter
Dim ocn As OleDbConnection = New OleDbConnection
ocn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4..0;
                                Data Source=D:\***.mdb;Persist Security Info = False"
dAdp = New OleDbDataAdapter("SELECT * FROM テスト", ocn )
dAdp.Fill( dSet, "t_テスト" )

DataGrid1.SetDataBinding(dSet, "t_テスト")

0 件のコメント:

コメントを投稿