关于ODBC我倒是仔细研究过,还写了一个功能比较全的控制单元,
包括以下函数:
//取ODBC设置信息,返回值表示是否成功
function GetODBCSetting(SettingInfo:TStrings;out ErrMsg:String):Boolean;
//取ODBC文件数据源设置信息,返回值表示是否成功
function GetODBCFileDSNSetting(SettingInfo:TStrings;out ErrMsg:String):Boolean;
//取已安装的ODBC驱动程序,返回值表示是否成功
function GetODBCDrivers(Drivers:TStrings;out ErrMsg:String):Boolean;
//取某个已安装的ODBC驱动程序信息,返回值表示是否成功
function GetODBCDriverInfo(const DriverName:String;DriverInfo:TStrings;out ErrMsg:String):Boolean;
//取已安装的ODBC字符转换程序,返回值表示是否成功
function GetODBCTranslators(Translators:TStrings;out ErrMsg:String):Boolean;
//取某个已安装的ODBC程序信息,返回值表示是否成功
function GetODBCTranslatorInfo(const TranslatorName:String;TranslatorInfo:TStrings;out ErrMsg:String):Boolean;
//取已安装的ODBC数据源,返回值表示是否成功
function GetODBCDataSources(DataSources:TStrings;out ErrMsg:String):Boolean;
//取某个已安装的ODBC数据源信息,返回值表示是否成功
function GetODBCDataSourceInfo(const DataSourceName:String;DataSourceInfo:TStrings;out ErrMsg:String):Boolean;
//删除某个已安装的ODBC数据源,返回值表示是否成功
function DeleteODBCDataSource(const DataSourceName:String;out ErrMsg:String):Boolean;
//创建一个ODBC数据源,返回值表示是否成功
function CreateODBCDataSource(const DataSourceName,DriverName:String;
Params:array of String;Values:array of Variant;
out ErrMsg:String):Boolean;
带例子,源代码,8K
有人想要吗?写信给我(e.w@263.net)
我想那个什么ODBC EXPRESS应该也不过如此吧?