VPF::Переименование таблицы - Форум программистов

Pakshin A. S.

Дата 20.7.2003, 19:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 2
Всего: 61

База данных: Access
Средство работы: ADO
Среда: Delphi
Суть вопроса: Можно ли переименовать таблицу в базе данных? Если да, то приведите хотя бы какой-нибудь исходник.

Oleg

Дата 26.7.2003, 10:15 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 108
Регистрация: 16.9.2002

Репутация: нет
Всего: нет

VBA позволяет это сделать?

--------------------

...Знающий не доказывает. Доказывающий не знает...

Jonnik

Дата 7.3.2011, 01:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 90
Регистрация: 9.2.2006

Репутация: нет
Всего: нет

Здравствуйте.
Можно ли переименовать таблицу в базе данных? Если да, то приведите хотя бы какой-нибудь исходник.
Заранее спасибо

P/S/ Нашел эту информацию http://www.sql.ru/forum/actualthread.aspx?tid=99073

В следующем примере переименовывается таблица test в changed в БД, расположенной в c:\example.mdb.

Код


Call RenameTable("Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=c:\example.mdb", "test", "changed")

Но возникает вопрос как это реализовать в Delphi через ADO?

Это сообщение отредактировал(а) Jonnik - 7.3.2011, 02:11

Данкинг

Дата 7.3.2011, 02:30 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(Jonnik @ 7.3.2011, 01:54

)

Но возникает вопрос как это реализовать в Delphi через ADO?

А фантазию проявить? smile

Код


uses comobj;
...
procedure TForm1.Button1Click(Sender: TObject);
var
 bd:variant;
begin
 bd:=CreateoleObject('ADOX.Catalog');
 bd.ActiveConnection:='Provider=Microsoft.Jet.OLEDB.4.0; Data Source=i:\Progi\prg\Delphi\cdrom\cdrom.mdb;';
 bd.Tables['tab'].Name:='tab_new';
end;

--------------------

There's nothing left but silent epitaphs.

Jonnik

Дата 7.3.2011, 10:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 90
Регистрация: 9.2.2006

Репутация: нет
Всего: нет

Спасибо.
У меня сработало при этой конфигурации

Код


var
 bd:variant;
begin
 bd:=CreateoleObject('ADOX.Catalog');
 bd.ActiveConnection:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;
Data Source=DB.mdb;Mode=ReadWrite;Jet OLEDB:System database="";
Jet OLEDB:Registry Path="";Jet OLEDB:Database Password=qwerty;
Jet OLEDB:Engine Type=5;Jet OLEDB:Create System Database=False;';
 bd.Tables['tab'].Name:='tab_new';
end;

Это сообщение отредактировал(а) Jonnik - 7.3.2011, 10:29

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »