Скачать: CL | DM;

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

← →
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]

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

---

← →
Silla ©   (2003-08-28 14:09) [4]

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

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c