• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

动态的连接到数据库的方法_sqlserver

sqlserver 搞代码 3年前 (2018-06-16) 125次浏览 已收录 0个评论

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

   [DBMS_PROFILES]
   CURRENT=ODBC  

http://www.gaodaima.com/35583.html动态的连接到数据库的方法_sqlserver

   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

欢迎大家阅读《动态的连接到数据库的方法_sqlserver,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址