Access mdbの共有について (ID：30018)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

>アプリケーションが不正終了した場合はldbファイルが正しく削除されないことがあり

この部分に対応できてるか怪しいですが下記のHP参考にしてはどうでしょう？
http://www.delphi3000.com/printarticle.asp?ArticleID=3988

確認の際にDBに接続しますので最低でもユーザー名は一つ返ってくる（自分自身）と思います。２つ以上だと誰か繋いでいるという状態になるんですかね・・・？

procedure ReadLoggedUsers(AConnection:TADOConnection; ExtractUsers:boolean;
      List:TStrings);

const JET_SCHEMA_USERROSTER = '{947bb102-5d43-11d1-bdbf-00c04fb92675}';

procedure TForm1.ReadLoggedUsers(AConnection:TADOConnection; ExtractUsers:boolean;
  List:TStrings);
var
  Dataset : TADODataset;
  s : string;
begin
  if (AConnection<>nil) and (List<>nil) then begin
    List.Clear;
    Dataset := TADODataset.Create(nil);
    try
      Dataset.Connection := AConnection;
      AConnection.OpenSchema(siProviderSpecific, EmptyParam,
        JET_SCHEMA_USERROSTER, Dataset);
      while not Dataset.EoF do begin
        if ExtractUsers
          then s := Dataset.FieldByName('LOGIN_NAME').AsString
          else s := Dataset.FieldByName('COMPUTER_NAME').AsString;
        List.Add(s);
        Dataset.Next;
      end;
    finally
      Dataset.Free;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  aaa: TStrings;

begin

aaa := TStringList.Create;
  try
    ReadLoggedUsers(ADOConnection1, False, aaa);
    ShowMessage(aaa.Text);
  finally
    aaa.Free;
  end;

end;

←解決時は質問者本人がここをチェックしてください。

戻る