{--------------------------------------------------------------------} unit CreateODBC; interface function CreateSQLServerDSN(const FDSN, FServer, FUser: string): boolean; imple****tion function CreateSQLServerDSN(const FDSN, FServer, FUser: string): boolean;
//找到Software/ODBC/ODBC.INI/ODBC Data Sources //找到或创建Software/ODBC/ODBC.INI/MyAccess,写入DSN配置信息 function CreateDB2DSN(const FDSN: string): Boolean; function createOracleDSN(const FDSN,FServer,Fuser:string):boolean; RegisterTemp.RootKey:=HKEY_LOCAL_MACHINE; //首先判断此DSN是否已经存在,如在,则不用继续下去 Result := True;
end. |
自动创建ODBC数据源(Access,Sql Server,DB2
最新推荐文章于 2022-01-07 18:14:31 发布