2008年08月09日星期六 [集日]　[旧版首页]

我不介意你恨我	啵一个	一首歌	真爱地图	相反词	来跳舞吧
爱在现实面前	雨霖铃	树叶的崇拜	日不落	完美故事	冰冰
快乐童话	嘟嘟娃娃	路太弯	差一点	让我看着你	客串情人

当前位置：首页 >> VFP专区 >> 谈谈类在SQL连接中的小应用

在线连续剧免费播放: 五星大饭店奋斗血色浪漫家有儿女荣归大明天子连城诀

谈谈类在SQL连接中的小应用

作者:　发布时间:2005-03-18 >>　 -收藏本页-

　　在你经常使用到SQL连接时，你就会为SQL连接的判断所恼火，先时要测试连接是否成功？SQL命令执行是否成功？如果不成功，你还要记得把链接给断掉。要是程序发生错误中途退出，你还必须记得手工来SQLDISCONNECT连接，能不能简单些，让系统自动来替我们断开连接呢？用一下对象吧！轻松搞掂！！

·添加到565key网摘 ·添加到vivi收藏 ·添加到网摘中国

·相关代码：

#DEFINE DSN_SOURCE  "testdb"
local loSql, lcExec
loSql = NewObject("z_sql",DSN_SOURCE, DSN_USER, DSN_PASSWORD)
if !loSql.toConnect()
  return .f.
endif
lcExec = "select * from tbTest"
if loSql.toExec(lcExec, "cur_bk")
  *!* 成功SELECT
endif
RETURN .T.
****************************************
* 功能说明：  
*   SQL连接类！实现SQL连接和EXEC功能。
* 
* 方法说明：  
*   toConnect 进行连接
*   toExec 执行SQL命令
*   destroy 断开连接
* 
* 日    期：  2001.08.28
* 作    者：  天涯闲人
* 
* 修改记录：  
****************************************
DEFINE CLASS z_sql AS custom
  cDataSource=""  &&SQL的ODBC数据源
  cUserName=""  &&SQL用户
  cPassword=""  &&SQL口令
  nConnect=0  &&连接句柄
  PROCEDURE Init
    lParameters tcData, tcUser, tcPwd
    if parameters() = 3
      this.cDataSource = tcData
      this.cUserName = tcUser
      this.cPassword= tcPwd
    endif
  ENDPROC
  PROCEDURE toConnect
    this.nConnect = sqlconnect(this.cDataSource, this.cUserName, this.cPassword)
    if this.nConnect <= 0
      =messagebox(Z_MESS_CONNECT_ERR)
    endif
  ENDPROC
  PROCEDURE toExec
    lparameters  tcSQLCommand, tcCursorName
    if parameters() # 2
      =messagebox(Z_MESS_PARA_ERR)
      return .f.
    endif
    if this.nConnect <= 0
      =messagebox("Z_MESS_NOCONNECT")
      return .f.
    endif
    lnExec = sqlexec(this.nConnect, tcSQLCommand, tcCursorName)
    if lnExec <= 0
      =messagebox(Z_MESS_EXEC_ERR)
      return .f.
    endif
    return .t.
  ENDPROC
  PROCEDURE destroy
    if this.nConnect > 0
      sqldisconnect(this.nConnect)
    endif
  ENDPROC
enddefine