Мастера, помогите пожалуйста.

← →
denick (2003-08-28 13:48) [0]

Каким образом программно узнать существует ли таблица?

← →
DenK_vrtz © (2003-08-28 13:52) [1]

сделать к ней запрос

← →
sniknik © (2003-08-28 13:56) [2]

ADOConnection1.GetTableNames

← →
Жук © (2003-08-28 13:56) [3]

...и поймать ошибку :-)

Вот пример из моего проекта

procedure ExistsTblContractInsideSillMounter(PathToBase, DataBaseName: String;
ADOConnection: TADOConnection);
begin
TablesList := TStringList.Create;
try
ADOConnection.GetTableNames(TablesList);
if TablesList.IndexOf("ContractInsideSillMounter")<0 then
begin
// создаем
Tab := TADOCommand.Create(nil);
Tab.CommandText := "Create table ContractInsideSillMounter ("+
"Id INTEGER not null primary key," +
"IdContractProduction INTEGER,"+
"IdMounter INTEGER,"+
"IdUser INTEGER," +
"UserDate DATE);";
Tab.Connection := ADOConnection;
Tab.Execute;
Tab.Free;
end;
finally
TablesList.Free;
end;
end;

Мастера, помогите пожалуйста. Найти похожие ветки