如何在delphi中，编程打开ODBC对话框？

Question

能给段源程序看看吗？多谢了！！

Answer 1

我用VC写的配置数据源,参考一下:
CFileDialog m_FileDlg(TRUE,"mdb","",OFN_OVERWRITEPROMPT,"Microsoft Access 应用程序(*.mdb)|*.mdb|所有文件(*.*)|*.*||",this);
if(m_FileDlg.DoModal()==IDOK)
{
char* pDSN;
pDSN=new char[255];
int iLen;
sprintf(pDSN,"DSN=DSN_DbCom?DBQ=%s?",m_FileDlg.GetFileName());
iLen=strlen(pDSN);
for(int iIndex=0;iIndex<iLen;iIndex++)
{
if(pDSN[iIndex]=='?')
{
pDSN[iIndex]='\0';
}
}
SQLConfigDataSource(NULL,ODBC_ADD_DSN,"Microsoft Access Driver (*.mdb)\0",(LPCSTR)pDSN);
}

Answer 2

我惯用手法，你建立一个空文本文件，然后将扩展名改为.udl,双击文件，打开ODBC配置对话框，然后配置，完毕后，更改扩展名为ini或txt看看,OK.
至于编程举例，我想说到这儿你就知道该怎么做了，呵呵。