本文以access为例

　　需要文件 odbcinst.h（bcb或vc的include目录）　odbccp32.dll（winnt\system32\目录） implib.exe（通过dll生成lib库） coff2omf.exe （将coff库转化为omf库）

　　首先将上面文件拷贝到工程目录，

　　执行下面命令：

　　implib.exe odbccp32.lib odbccp32.dll

　　coff2omf odbccp32.lib

　　下面程序的功能为当应用程序启动时，动态添加/修改一个指向当前目录的,名为test的系 统数据源。

　　新建一个工程,在工程主文件（含有winmain函数）中添加

　　#include <odbcinst.h>

　　uselib("odbccp32.lib");//lib在工程当前目录

　　修改后的代码如下;

　　//---------------------------------------------------------------------------
#include <vcl.h>
#include <odbcinst.h>
#pragma hdrstop
useform("main.cpp", form1);
//工程的其他单元申明.....
uselib("odbccp32.lib");
//---------------------------------------------------------------------------
winapi winmain(hinstance, hinstance, lpstr, int)
{
　　　　 try
　　　　 {
　　　　　　　　  application->initialize();
　　　　　　　　  ansistring　data,datapath,dbpath;
　　　　　　　　  unsigned char temp[255];//接收转化后的连接字符串
　　　　　　　　  lpstr ch;//字符串指针相当于char *
　　　　　　　　  datapath=getcurrentdir();//获取当前目录　　　　　　 
　　　　　　　　  data=datapath+"\\test.mdb\b";//假定当前数据库为test.mdb
　　　　　　　　  dbpath="dsn=test\bdbq="+data+"defaultdir="+datapath+"\b\b";
　　　　　　　　　 //构造odbc连接字符串，test为数据源名，非法字符先用\b代替
　　　　　　　　  
　　　　　　　　  ch=dbpath.c_str();//将ansistring转化为字符串
　　　　　　　　　 int i=0;
　　　　　　　　  while(*ch!='\0')//查找并替换非法字符，并装入字符数组
　　　　　　　　  {
　　　　　　　　　 if(*ch=='\b')
　　　　　　　　　  *ch='\0';
　　　　　　　　　  temp[i]=*ch;
　　　　　　　　　  ch++;
　　　　　　　　　  i++;
　　　　　　　　  }
　　　　　　　　  
　　　　　　　　  if(::sqlconfigdatasource(null,odbc_add_sys_dsn,(lpstr)"microsoft access driver (*.mdb)\0",(lpstr)temp))//修改或添加数据源，如果成功，程序正常启动
　　　　　　　  {
　　　　　　　　  
　　　　　　　　  application->title = "动态设定odbc数据源";
　　　　　　　　  application->createform(__classid(tform1), &form1);
　　　　　　　　  
　　　　　　　　  application->run();
　　　　　　　　  }
　　　　　　　　  else
　　　　　　　　  {
　　　　　　　　　 showmessage("数据库设定失败！");
　　　　　　　　　 application->terminate();
　　　　　　　　  }
　　　　 }
　　　　 catch (exception &exception)
　　　　 {
　　　　　　　　  application->showexception(&exception);
　　　　 }
　　　　 return 0;
}