Клиент-серверное приложение, создание сервера через MS SQL Server и подключение c ADO (CRM)

[StuDenT5x3]

Здравствуйте, необходимо создать клиент-серверное приложение в Delphi с помощью ADO и MS SQL Server. У меня был опыт разработки файл-серверного приложения с помощью Access, но клиент-серверную еще не делал.
Я понять не могу, как создать сам сервер через MS SQL Server и подключиться к нему?

[Stilet]

как подключиться через нее к серверу

Вот тебе пример работы с АДО в сопроцессе

unit Unit1;

interface

uses    activex,adodb,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    ADOTable1: TADOTable;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

    Threda_find = class(TThread)
  public
   StopStop:boolean;
  private     ado:TADOQuery;
    { Private declarations }
  protected
    procedure Execute; override;
  end;

var t:Threda_find;
  Form1: TForm1;

implementation

{$R *.dfm}

{ Threda_find }

procedure Threda_find.Execute;
var i:integer;
begin
  inherited;
  CoInitialize(0); // Инициализируем ActiveX для БД
  ado:=TADOQuery.Create(nil); // Создаем компнент
  // Указываем ему строку подключения - это например для Оракла. Для Сиквела
  // Она будет другой, но смысл остается таким же
  ado.ConnectionString:='Provider=MSDAORA.1;Password=qwerty1234;User ID=ogk5299;Data Source=orant;Persist Security Info=True'; 
 // Проводим запрос
  ado.SQL.Text:='select * from ois_ready.relcomp where obizdkuda='+QuotedStr('1К660Ф3');
  // И открываем набор
  ado.Open;
  // НУ и дальше с ним чо-то делаем например считываем
  with form1.StringGrid1 do begin
   RowCount:=ado.RecordCount+1;
   ColCount:=ado.Fields.Count+1;
   while (not ado.Eof)and(not StopStop) do begin
    for i:=0 to ado.Fields.Count-1 do begin
     Cells[i+1,ado.RecNo]:=ado.Fields[i].AsString;
    end;
    ado.Next;
   end;
  end;
  ShowMessage('Хватит');
// После освобождаем объект и деинициализируем ActiveX
  ado.Close;ado.Free;
  CoUninitialize;
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
 t:=Threda_find.Create(true);
 t.FreeOnTerminate:=true;
 t.StopStop:=false;
 t.Resume;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if t<>nil then
  t.StopStop:=true;
end;

end.

Идея понятна?

как создать сам сервер через MS SQL Server?

Ты его проинсталлировать пробовал? SQL Express возьми.

[StuDenT5x3]

Да понятна, но я не знаю как создать сам сервер.

[Stilet]

Просто проинсталлируй MS SQL Express, желательно со всеми потрохами. Он сядет как служба. К нему же есть в придатке мнеджер БД, в нем создашь базу.
К этой базе и обращайся в строке подключений.
Я ж говорю - просто проинсталлируй Микрософт сделал свою СУБД максимально простой в использовании.

[StuDenT5x3]

Я установил SQL Server, но почему-то у меня нет сервера. Возможно что то не правильно установил, попробую заново переустановить. За код спасибо.

[Stilet]

но почему-то у меня нет сервера.

В службах нет? Посмотри в службы, может его просто нужно запустить.