在DELPHI中编程生成ACCESS数据库文件并创建指向此连接的ODBC数据源.docVIP

在DELPHI中编程生成ACCESS数据库文件并创建指向此连接的ODBC数据源?? ??? 要实现创建ACCESS数据库文件，我们要用到Windows系统中用来完成ODBC 管理功能的DLL(odbccp32.dll)。 ?? 废话少说，让我们用个例子来演示吧！ （一）在DELPHI中新建一个工程，并在窗体上添加两个按钮。然后保存 （二）从系统中有哪些信誉好的足球投注网站odbccp32.dll和odbcint.dll，一般在C:\WINDOWS\system32中，并将这两个文件拷贝到在上一步我们创建的DELPHI工程的同级目录下 （三）在程序的中添加关于常量的定义??????? const? ODBC_ADD_DSN = 1; // 添加数据源? ODBC_CONFIG_DSN = 2; // 配置数据源? ODBC_REMOVE_DSN = 3; // 删除数据源? ODBC_ADD_SYS_DSN = 4; // 添加系统DSN? ODBC_CONFIG_SYS_DSN = 5; // 配置系统DSN? ODBC_REMOVE_SYS_DSN = 6; // 删除系统DSN （四）在程序的type处添加声明 type? TSQLConfigDataSource = function( hwndParent: HWND;??? fRequest: WORD;??? lpszDriver: LPCSTR;??? lpszAttributes: LPCSTR ) : BOOL; stdcall; （五）用来完成建立DSN并生成数据库文件的代码如下： procedure TForm1.Button1Click(Sender: TObject);var? pFn: TSQLConfigDataSource;? hLib: LongWord;? strDriver: string;? strAttr: string;? strFile: string;? fResult: BOOL;? srInfo : TSearchRec;begin? //获得程序所在路径? strFile := ExtractFilePath(ParamStr(0))+Test.MDB;? //加载动态库? hLib := LoadLibrary( ODBCCP32 );? if( hLib NULL ) then? begin??? @pFn := GetProcAddress( hLib, SQLConfigDataSource );??? if( @pFn nil ) then??? begin????? // 重新建立DSN????? strDriver := Microsoft Access Driver (*.mdb);????? strAttr := Format( DSN=TestDSN+#0+??????????????? DBQ=%s+#0+??????????????? Exclusive=1+#0+??????????????? Description=Test Data+#0+#0,??????????????? [strFile] );????? fResult := pFn( 0, ODBC_ADD_SYS_DSN, @strDriver[1], @strAttr[1] );?????? if not fResult then ShowMessage( 创建DSN失败! ); ?????? // 检测/创建同DSN关联的 MDB 文件?????? if( FindFirst( strFile, 0, srInfo ) 0 ) then?????? begin???????? strDriver := Microsoft Access Driver (*.mdb);???????? //，CREATE_DB的调用是Access（MS Jet引擎)的专有调用，类似的还有COMPACT_DB和REPAIR_DB等???????? strAttr := Format( DSN=TestDSN+#0+???????????????? DBQ=%s+#0+???????????????? Exclusive=1+#0+???????????????? Description=Test Data+#0+???????????????? CREATE_DB=%s#0+#0,???????????????? [strFile,strFile] );???????? fResult := pFn( 0, ODBC_ADD_SYS_DSN, @strDriver[1],