| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как програмно создать алиас в BDE [D6]

Grrey ©   (2002-08-16 08:50:00) 

Помню, что этот вопросуже не однократно бы на этом форуме, но поиск ничего не дал!
Эсли кто в курсе просьба помочь!

---

Grrey   (2002-08-16 14:01:00) [1]

Да, я так и сделал. Спасибо!!!
Все работает!

---

sniknik   (2002-08-16 12:52:00) [2]

если будеш использовать ADO то забудь про алиасы и BDEAdministrator.

из вкладки ADO полож на форму ADOConnection1 и ADODataSet1 у ADOConnection1 настрой ConnectionString или в программе присваивай как у SaS13. У ADODataSet1 свойство Connection на ADOConnection1, CommandType=cmdTable для доступа как к таблице в CommandText выбери таблицу. все. остальное как с BDE связка с гридами и т.д. через тот же DataSource1.
для начала хватит.

---

SaS13   (2002-08-16 12:41:00) [3]

у ADOQuery есть св-во ConnectionString.

---

Grrey   (2002-08-16 12:04:00) [4]

Не совсем понял про ConnectionString. Это вроде один из параметров, но в BDEAdministrator"e его нет! Куда его писать нужно?

---

SaS13   (2002-08-16 10:45:00) [5]

для ACCESS"а используй, к примеру:
Values["DATABASE NAME"] := "C:\mydb.mdb";
Session.AddAlias( TMP_ALIAS, "MSACCESS", Params )или через ADO:
ConnectionString := "Provider=Microsoft.Jet.OLEDB.4.0;" +
"Persist Security Info=False;" +
"Data Source=" + cPathBase + ";";

---

sniknik   (2002-08-16 10:41:00) [6]

к access"у через ADO гораздо проще подключатся, и более "прогрессивно". но конечно дело привычки.

---

Grrey   (2002-08-16 10:27:00) [7]

Мне нужно к access"у соединяться, а как не знаю?
Через BDE у меня не получилось:(

---

Grrey   (2002-08-16 10:04:00) [8]

А в ODBC?

---

SaS13   (2002-08-16 09:01:00) [9]

// Создание
const
TMP_ALIAS := "MyAlias";

if not Session.IsAlias( TMP_ALIAS ) then begin
Params := TStringList.Create;
with Params do
try
Values["SERVER NAME"] := "192.168.196.60";
Values["DATABASE NAME"] := "NSI";
Values["APPLICATION NAME"] := "GrafSPP";
Session.AddAlias( TMP_ALIAS, "MSSQL", Params )
finally
Free
end
end;
db.AliasName := TMP_ALIAS;
db.Open;
// Удаление
if Session.IsAlias( TMP_ALIAS ) then
Session.DeleteAlias( TMP_ALIAS );

---

Наверх