我要新增一個資料庫前，我必需確認我已經成功加入了一個User，這我要如何以
程式表現及執行這個功能，以讓我的流程能順暢執行？謝謝指點。

用select * from pg_roles where...

------
Kevin

以下是我自己寫的，不是公物碼。貼給你參考
function TPostgreSQLObject.FoundUser (
ThisMasterDbDsnName : string ;
SuperUserName : string ;
SuperUserPassWord : string ;
ThisUserName : string ) : Boolean ;
var
MyAdoConnection : TAdoConnection ;
MyAdoQuery : TAdoQuery ;
begin
try
MyAdoConnection := TAdoConnection.Create(Application);
MyAdoConnection.Mode := cmShareDenyNone ;
MyAdoConnection.LoginPrompt := False ;
MyAdoQuery := TAdoQuery.Create(Application);
try
MyAdoConnection.Close ;
MyAdoConnection.ConnectionString :=
GetODBCConnectionString ( ThisMasterDbDsnName ,
SuperUserName ,
SuperUserPassWord );
MyAdoConnection.Open ;
MyAdoQuery.Connection := MyAdoConnection ;
MyAdoQuery.SQL.Add(LowerCase(
'Select count(*) from pg_roles where rolname='''
ThisUserName '''' ));
MyAdoQuery.Open ;
Result := MyAdoQuery.Fields[0].AsInteger > 0 ;
except
on E:Exception do
begin
File_Error (
'有錯誤發生：PostgreSQL.FoundUser--001' cEnter2
'請記下相關訊息及編號' cEnter2
E.Message ) ;
Result := False ;
end ;
end ;
finally
MyAdoQuery.Close ;
FreeAndNil ( MyAdoQuery ) ;
MyAdoConnection.Close ;
FreeAndNil ( MyAdoConnection ) ;
end ;
end ;
function TPostgreSQLObject.FoundUser (
ThisAdoConnection : TAdoConnection ;
ThisUserName : string ) : Boolean ;
var
MyAdoQuery : TAdoQuery ;
begin
try
MyAdoQuery := TAdoQuery.Create(Application);
try
if Not ThisAdoConnection.Connected then
ThisAdoConnection.Open ;
MyAdoQuery.Connection := ThisAdoConnection ;
MyAdoQuery.SQL.Add(LowerCase(
'Select count(*) from pg_roles where rolname='''
ThisUserName '''' ));
MyAdoQuery.Open ;
Result := MyAdoQuery.Fields[0].AsInteger > 0 ;
except
on E:Exception do
begin
File_Error (
'有錯誤發生：PostgreSQL.FoundUser--101' cEnter2
'請記下相關訊息及編號' cEnter2
E.Message ) ;
Result := False ;
end ;
end ;
finally
MyAdoQuery.Close ;
FreeAndNil ( MyAdoQuery ) ;
end ;
end ;

------
Kevin

編輯記錄

    有點看不太懂，這個ThisMasterDbDsnName是什麼？以及為何有分兩個函式的
理由。可能要請前輩回國後再請前輩釋疑了。
祝前輩一路順風。