动态连接数据库的配置问题 ACCESS +SQL 2000

来源：互联网发布：cydia软件源2016 编辑：程序博客网时间：2024/05/22 09:50

Access的动态配置问题
string path,pathb,dbpath,result
int k
path="HKEY_CURRENT_USER/Software/ODBC/ODBC.INI/dsn_name"
pathb="HKEY_CURRENT_USER/Software/ODBC/ODBC.INI/ODBC Data Sources/"
k=registryget(path, "DBQ", result)
if k<>1 then
dbpath=GetCurrentDirectory( )+"/db_name.mdb"
registrySet(path, "DBQ", RegString!,dbpath)
registrySet(path, "Driver", RegString!,"C:/WINDOWS/system32/odbcjt32.dll")
registrySet(path, "DriverId", ReguLong!,25)
registrySet(path, "FIL", RegString!, "MS Access")
registrySet(path, "UID", RegString!, "")
registrySet(path, "PWD", RegString!, "")
registrySet(path, "SafeTransactions", ReguLong!, 0)
registrySet(pathb, "dsn_name", RegString!, "Microsoft Access Driver(*.mdb)")
end if

配置时可打开注册表，参照一下里面的内容，就知道为什么要这么配置了。

************************************************************************************
怎样在程序中动态配置连接SQL SERVER的ODBC

建立一个system DSN:
////////////////////////////////////
    GetMem(WinDir,256);
    GetWindowsDirectory(WinDir,128);
//////////////////////////////////////////////////////////
    MyReg:=TRegistry.Create;
    MyReg.RootKey:=HKEY_LOCAL_MACHINE;
    if not MyReg.KeyExists('SoftWare/ODBC/ODBC.INI/_ODBC_Name')then
      begin
        MyReg.OpenKey('SoftWare/ODBC/ODBC.INI/_ODBC_Name',True);
      end
    else
      begin
        MyReg.OpenKey('SoftWare/ODBC/ODBC.INI/_ODBC_Name',False);
      end;
    MyReg.WriteString('Database','_dataBaseName ');
    MyReg.WriteString('Driver',WinDir+'/System32/SQLSRV32.dll');
    MyReg.WriteString('LastUser',_帐号);
    MyReg.WriteString('Server','(local)');
    MyReg.CloseKey;
////////////////////////////////
    if not MyReg.KeyExists('SoftWare/ODBC/ODBC.INI/ODBC Data Sources')then
      begin
        MyReg.OpenKey('SoftWare/ODBC/ODBC.INI/ODBC Data Sources',True);
      end
    else
      begin
        MyReg.OpenKey('SoftWare/ODBC/ODBC.INI/ODBC Data Sources',False);
      end;
    MyReg.WriteString('_ODBC_Name','SQL Server');
    MyReg.CloseKey;
    MyReg.Free;
///////////////////////////
带“_”的为自定义的字符串。