动态的连接到数据库的方法-数据库专栏,SQL Server

     动态的连接到数据库的方法：
　这里我们创建一个后缀为ini的文件system.ini，在system.ini文件中写入如下代码：

　　　[dbms_profiles]
　　　current=odbc  
　　　profiles=
　　　[profile ]
　　　dbms=
　　　database=
　　　userid=
　　　databasepassword=
　　　logpassword=
　　　servername=
　　　logid=
　　　lock=
　　　dbparm=connectstring=dsn=ora8;uid=;pwd=　//ora8指数据库服务器名
　　　prompt=0
　　　autocommit=0

　　这样在应用程序的open事件中写入下代码：
　　string ls_inifile

　　ls_inifile = “system.ini”

 // profile system
    sqlca.dbms       =profilestring(ls_inifile,”database”, “dbms”,       “”)
    sqlca.database   =profilestring(ls_inifile,”database”, “database”,   “”)
    sqlca.userid     =profilestring(ls_inifile,”database”, “userid”,     “”)
    sqlca.dbpass     =profilestring(ls_inifile,”database”, “dbpass”,     “”)
   sqlca.logid      =profilestring(ls_inifile,”database”, “logid”,      “”)
   sqlca.logpass    =profilestring(ls_inifile,”database”, “logpassword”,””)
   sqlca.servername =profilestring(ls_inifile,”database”, “servername” ,””)
   sqlca.dbparm     =profilestring(ls_inifile,”database”, “dbparm”,     “”)

  connect using sqlca;
          open(w_frame)
       if sqlca.sqlcode<>0 then
           messagebox(“不能连接到数据库”,sqlca.sqlerrtext)
          return
     end if

 
*****代码测试通过pb8.0