xodbc.txt

来自「我自己用的Delphi函数单元 具体说明见打包文件的HELP目录下面」· 文本 代码 · 共 13 行

unit xODBC;

const
    ODBC_ADD_DSN=1;
    ODBC_CONFIG_DSN=2;
    ODBC_REMOVE_DSN=3;
    ODBC_ADD_SYS_DSN=4;
    ODBC_CONFIG_SYS_DSN=5;
    ODBC_REMOVE_SYS_DSN=6;
    ODBC_REMOVE_DEFAULT_DSN=7;

function SetODBC(opCode:WORD;const sDriver,sAttributes:string):Boolean;