테이블이 비어 있는지 확인하십시오. (MSAccess Database + Delphi)

Question

생성 된 테이블에 항목이 있는지 여부를 알아야합니다.

Function IsTableEmpty:Boolean; 
Var 
    DataSource : string; 
Begin 
    DataSource := 
    'Provider=Microsoft.Jet.OLEDB.4.0'+ 
    ';Data Source=c:\mydb.mdb'+ 
    ';Persist Security Info=False'; 

    Form2.ADOConnection1.ConnectionString := DataSource; 
    Form2.ADOConnection1.LoginPrompt := False; 
    Form2.ADOCommand1.Connection := Form2.ADOConnection1; 
    Form2.ADOTable1.ConnectionString := DataSource; 
    Form2.ADOTable1.Connection := Form2.ADOConnection1; 
    if (Form2.ADOTable1.IsEmpty)then 
     result := true 
    else 
     result := false; 
End; 

그러나이 기능은 테이블의 상태에 관계없이 true를 돌려 : I는 무엇이 필요

, 내가 할 목적으로 작성했습니다 무엇

if (TableIsEmpty) then 
    do_something 
else 
    do_something_else; 

입니다!

편집 *** 수정 된 코드 :

Function IsTableEmpty:Boolean; 
Var 
    DataSource, cs : string; 
Begin 
    DataSource := 
    'Provider=Microsoft.Jet.OLEDB.4.0'+ 
    ';Data Source=c:\Users.mdb'+ 
    ';Persist Security Info=False'; 

    Form2.ADOConnection1.ConnectionString := DataSource; 
    Form2.ADOConnection1.LoginPrompt := False; 
    Form2.ADOCommand1.Connection := Form2.ADOConnection1; 
    Form2.ADOTable1.Connection := Form2.ADOConnection1; 
    Form2.ADOTable1.TableName := 'userIdentification'; 
    Form2.ADOTable1.Active := True; 
    cs := 'Select * from userIdentification'; 
    Form2.ADOCommand1.CommandText := cs; 
    Form2.ADOCommand1.Execute; 
    if Form2.ADOTable1.RecordCount <= 0 then 
    result := true 
    else 
    result := false; 
    Form2.ADOConnection1.Close; 
End; 

이 함수는 항상 false를 반환!

Answer 1

if Form2.ADOTable1.RecordCount =< 0 then 
    do_something 
else 
    do_something_else; 

실행이