Hallo, ich habe mich an den SQL-Server herangewagt und bin dabei, ein Programm von Access zu SQL-Server umzustellen.
Entwicklungsumgebung XP, SQL 2005, Inno-Setup.
> Läuft.
Auf W7, SQL 2008 gibt es Fehlermeldungen.

Nun habe ich gelesen, dass SQL-DMO durch SMO ersetzt wurde,
und Delphi 6 das nicht unterstützt.

Wie gesagt ich bin noch Anfänger was den Server betrifft und habe mich an die tausende Skripte gehalten, die im Netz und in den Büchern zu finden sind - alle SQL-DMO.
Kann ich alle Kicken!?

In einem der wenigen Beiträge zu diesem Thema (was Delphi betrifft) habe ich gelesen, dass man alles mit SQL-Anweisungen erledigen kann.
Da bin ich jetzt überfordert.

ZB.: Server im Netzwerk? Läuft der Server? Einbinden einer DB? Backup? Properties? usw.

Wie mache ich das?
Habt Ihr darüber einen Link für mich? Oder eine Buchempfehlung?

Gruß imsueden

Für einen Teil der Fragen hätte ich zumindest Teillösungen

zusammenfalten · markieren

Delphi-Quellcode:

var
  i:Integer;

begin
ListAvailableSQLServers(Memo1.lines);
  for I := 0 to Memo1.lines.Count - 1 do
    begin
        TcpClient1.Close;
        TcpClient1.RemoteHost := Memo1.lines[i];
        try
          TcpClient1.Open;
          if TcpClient1.Connected then Memo1.lines[i] := Memo1.lines[i] + ' Active'
          else Memo1.lines[i] := Memo1.lines[i] + ' Not Active';
        except
          Memo1.lines[i] := Memo1.lines[i] + ' ERROR';
        end;
    end;
   TcpClient1.Close;
end;



procedure ListAvailableSQLServers(Names : TStrings);
var
  RSCon: ADORecordsetConstruction;
  Rowset: IRowset;
  SourcesRowset: ISourcesRowset;
  SourcesRecordset: _Recordset;
  SourcesName, SourcesType: TField;

    function PtCreateADOObject
             (const ClassID: TGUID): IUnknown;
    var
      Status: HResult;
      FPUControlWord: Word;
    begin
      asm
       FNSTCW FPUControlWord
      end;
      Status := CoCreateInstance(
                  CLASS_Recordset,
                  nil,
                  CLSCTX_INPROC_SERVER or
                  CLSCTX_LOCAL_SERVER,
                  IUnknown,
                  Result);
      asm
        FNCLEX
        FLDCW FPUControlWord
      end;
      OleCheck(Status);
    end;
begin
  SourcesRecordset :=
      PtCreateADOObject(CLASS_Recordset)
      as _Recordset;
  RSCon :=
      SourcesRecordset
      as ADORecordsetConstruction;
  SourcesRowset :=
      CreateComObject(ProgIDToClassID('SQLOLEDB Enumerator'))
      as ISourcesRowset;
  OleCheck(SourcesRowset.GetSourcesRowset(
       nil,
       IRowset, 0,
       nil,
       IUnknown(Rowset)));
  RSCon.Rowset := RowSet;
  with TADODataSet.Create(nil) do
  try
    Recordset := SourcesRecordset;
    SourcesName := FieldByName('SOURCES_NAME');
    SourcesType := FieldByName('SOURCES_TYPE');
    Names.BeginUpdate;
    try
      while not EOF do
      begin
        if
           (SourcesType.AsInteger = DBSOURCETYPE_DATASOURCE)
           and (SourcesName.AsString <> '') then
          Names.Add(SourcesName.AsString);
        Next;
      end;
    finally
      Names.EndUpdate;
    end;
  finally
    Free;
  end;
end;

Datenbanken erstellen/ändern ... sollte IMHO eh klar sein ??
Datenbankstrukturen/Fremdschlüssel/ (Sichten - Prozeduren - Funktionen) als Scripte(Struktur), Rechte etc. bekommt man auch alles über SQL.

Wenn Du da was brauchst, sag Bescheid dann hänge ich meine Rechteverwaltung und meinen DB-Dokumenter (ist schon etwas älter und Du müsstest um das HTML Geraffel herumlesen) an.