WEB форумы на jedi
[Форум] [Помощь] [Поиск] [Выйти]
Добро пожаловать, [info]User

WEB форумы на jedi [ПОИСК] [Архив до 03.2006]

Тема спецы по ADO+Delphi7 и просто ADO... К предыдущему сообщению На следующее сообщение Программирование

Отправил xMixey в 23:28 23.11.2004[Ответить]
Подскажите как для ADO***.ConnectionString вызвать диалог построения оной (ну как в PropertyEditor) с выбором провайдера, БД, и всего остального?


Отправил bargan в 10:50 24.11.2004[Ответить]
Все очень просто

void CCommonDlg::OnBnClickedButtoncs()
{
// TODO: Add your control notification handler code here
_bstr_t strTemp;
CoInitialize(NULL);
MSDASC::IDataSourceLocatorPtr dl=NULL;
ADODB::_ConnectionPtr pConn=NULL;
dl.CreateInstance(__uuidof(MSDASC::DataLinks));
pConn=dl->PromptNew();
if(NULL==pConn)
return;
strTemp = pConn->GetConnectionString();
CoUninitialize();
csConnectionString = (char*) strTemp;
UpdateData(FALSE);
}


Отправил bargan в 10:18 25.11.2004[Ответить]
Кстати забыл, еще где нибудь выше надо написать:

#pragma warning ( disable : 4192 )
#import msado15.dll no_namespace rename( EOF, ADOEOF )
#import msado21.tlb rename(EOF,ADOEOF) rename(BOF,ADOBOF)
#import Oledb32.dll
#pragma warning ( default : 4192 )


Отправил xMixey в 01:44 09.12.2004[Ответить]
Borland известна недокументированностью своих шедевров. А все оказывается просто:
uses ...,ADODB
function PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString;
- сразу строка
или
uses ...,AdoConEd;
EditConnectionString(Component):{успех}boolean;
- правит сразу компоненту свойство ConnectionString
---
Бороться и искать, найти и ... перепрятать!