Задание 6

Повторить функциональные возможности приложения для Лаб. 4 с помощью простого связывания. Обьекты необходимые для реализации задания определить в коде (не используя визарды)

Dim mcon As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\temp\WindowsApplication1\WindowsApplication1\NWIND.MDB")

Dim queryString As String = _

"SELECT CustomerID, CompanyName FROM Customers"

Dim adapter As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter(_

queryString, mcon)

mcon.Open()

Dim customers As DataSet = New DataSet

adapter.Fill(customers, "Customers")

a1 = customers.Tables(0).Rows(1)(0)

b1 = customers.Tables(0).Rows(1)(1)

Dim b As New Binding("Text", customers, "City")

TextBox2.DataBindings.Add(b)

b.BindingManagerBase.Position += 1

Задание 7

Выполнить требования задания 6 и обеспечить возможность фильтрации данных в соответствии с любым выбранным студентом критерием.

DataTable myt= new DataTable ();

System.Data.OleDb.OleDbConnection ncon = new System.Data.OleDb.OleDbConnection();

System.Data.OleDb.OleDbCommand ncom = new System.Data.OleDb.OleDbCommand();

string mystr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\\2012-program-Dip\\Бази даних та знань\\proect\\adonet_cc#\\WindowsFormsApplication1\\BIBLIO.MDB";

ncon.ConnectionString = mystr;

ncon.Open();

ncom.CommandText = "SELECT Authors.* FROM Authors";

ncom.Connection = ncon;

System.Data.OleDb.OleDbDataAdapter myadapt = new System.Data.OleDb.OleDbDataAdapter(ncom);

myadapt.Fill(myt);

dataGridView1.AutoGenerateColumns = true;

DataView view1 = new DataView(myt);

BindingSource source1 = new BindingSource();

source1.DataSource = view1;

dataGridView1.DataSource = source1;

source1.Filter = "Au_ID=19";