Компонент tDataSource

TObject -> TPersistent -> TComponent -> TDataSource

Компонент DataSource (источник данных) обеспечивает связь между данными, представленными, например, компонентом ADODataSet, ADOTable или ADOQuery и компонентом, обеспечивающим отображение данных, например DBGrid, DBEdit, DBMemo или DBText. То есть у ряда компонент визуального отображения есть свойство DataSourсe, которое можно связать с компонентом ADOQuery.

Компонент TADOQuery

Используется для работы с набором данных с помощью запросов SQL. Может связываться с набором данных непосредственно, или через ADOConnection.

Доступ к базе данных осуществляется или с помощью строки соединения — свойства ConnectionString, или с помощью отдельного компонента ADOConnection. (то есть компонент ADOConnection можно и не использовать!!!!!)

Свойство ConnectionString представляет собой строку, содержащую параметры соединения. Отдельные параметры отделяются друг от друга точками с запятой. Соединение с базой данных осуществляется методом Open

Закрывается соединение с базой данных методом Close.

Текст запроса задается свойством

property SQL: TStrings;

Каждый компонент, обращающийся к хранилищу данных ADO самостоятельно, задавая параметры соединения в свойстве Connectionstring, открывает собственное соединение. Чем больше приложение содержит компонентов ADO, тем больше соединений может быть открыто одновременно.

Поэтому целесообразно реализовать механизм соединения ADO через специальный компонент — TADOconnection. Этот компонент открывает соединение, также заданное свойством Connectionstring и предоставляет разработчику дополнительные средства управления соединением.

Язык запросов SQL

SQL символизирует собой Структурированный Язык Запросов. Это - язык, который дает возможность создавать и работать в реляционных базах данных, являющихся наборами связанной информации, сохраняемой в таблицах.

Язык манипулирования данными используется, как это следует из его названия, для манипулирования данными в таблицах баз данных. Он состоит из 4 основных команд:

SELECT (выбрать)

INSERT (вставить)

UPDATE (обновить)

DELETE(удалить)

Пример работы с DB

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DB, Grids, DBGrids, ADODB;

type

TForm1 = class(TForm)

Button1: TButton;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

// ADOConnect: TADOConnection;

// DataSource: TDataSource;

ADOQuery: TADOQuery;

i: Integer;

s: String;

begin

// DataSource := TDataSource.Create(NIL);

// ADOConnect := TADOConnection.Create(NIL);

ADOQuery := TADOQuery.Create(NIL);

// DataSource.DataSet := ADOQuery;

Можно подключаться через ADOConnect

// ADOQuery.Connection := ADOConnect;

//ADOConnect.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=Study';

ADOQuery.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=Study';

ADOQuery.SQL.Clear;

ADOQuery.SQL.Add('SELECT * FROM DataStudy');

ADOQuery.Open;

ADOQuery.ExecSQL;

ADOQuery.First;

while not ADOQuery.Eof do

begin

s := '';

for i:= 0 to ADOQuery.FieldCount - 1 do

s := s + String(ADOQuery.Fields[i].Value) + ';';

Memo1.Lines.Add(s);

ADOQuery.Next;

end;

ADOQuery.Close;

ADOQuery.Free;

// ADOConnect.Free;

// DataSource.Free;

end;

end.