| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Мастера, помогите пожалуйста. [D7, Access]
denick © (2003-08-28 13:48:00)
Каким образом программно узнать существует ли таблица?
Silla (2003-08-28 14:09:00) [1]
Вот пример из моего проекта
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;
sniknik (2003-08-28 13:56:00) [2]
ADOConnection1.GetTableNames
Жук (2003-08-28 13:56:00) [3]
...и поймать ошибку :-)
DenK_vrtz (2003-08-28 13:52:00) [4]
сделать к ней запрос
| |
