Вопрос по БД
Как програмно создать alias. Вообщем мне надо чтобы моя программа (с БД) могла работать на разных компьютерах. Как при переносе програмно соединиться с БД. Заранее спасибо.
Не совсем понятно чего Вы хочите...
Чтобы при переносе программа нашла комп в сети с БД?
Или БД переносится вместе с программой и нужно просто завести алияс?
Что именно Вы подразумеваете под "програмно соединиться с БД"?
Как програмно создать alias. Вообщем мне надо чтобы моя программа (с БД) могла работать на разных компьютерах.
Воспользоваться TDatabase, задать все требуемые параметры вручную и забить на alias.
Не совсем понятно чего Вы хочите...
Чтобы при переносе программа нашла комп в сети с БД?
Или БД переносится вместе с программой и нужно просто завести алияс?
Что именно Вы подразумеваете под "програмно соединиться с БД"?
Просто БД переносится с программой. Как на другом компе, где нет моего alias'а работать с ней?
2 smartsoft Обязательно так попробую!!!
Правда я нашел где в реестре хранится все что связано с ODBC. Можно через него попробовать. Если есть еще какие мысли...пишите
Правда я нашел где в реестре хранится все что связано с ODBC. Можно через него попробовать.
А причем тут ODBC? Какая база используется?
А причем тут ODBC? Какая база используется?
БД Paradox 5.x Доступ через объекты ADO.
БД Paradox 5.x Доступ через объекты ADO.
В парадокс через ADO и ODBC...
Нормально, только чего ж так через жопу та
java script:smilie(':-?')
В парадокс через ADO и ODBC...
Нормально, только чего ж так через жопу та
java script:smilie(':-?')
Почему через жопу??? Растолкуй где она (жопа)?
Успехов.
//---------------------------------------------------------------------------
bool __fastcall TDM::CheckAlias(AnsiString alName,AnsiString path)
{
TStringList* pslAliasParams = new TStringList();
bool rez=false;
if(Session->IsAlias(alName))
{ Session->GetAliasParams(alName,pslAliasParams);
if(pslAliasParams->Values["PATH"]!=path)
{ pslAliasParams->Values["PATH"] =path;
Session->ModifyAlias(alName,pslAliasParams);
rez=true;
}
}
else { Session->AddStandardAlias(alName,path,"PARADOX");
rez=true;
}
delete pslAliasParams;
return rez;
}