-

- 加为好友
- 发送私信
- 在线聊天
|
| 发表于:2008-05-24 12:18:18 楼主 |
lnv_connectserv = Create using "n_connectservice" If lnv_connectserv.of_ConnectDB ( ) = 0 Then Open ( w_frame ) End if Destroy lnv_connectserv n_connectservice中的constructor中代码为: string ls_dbms, ls_database, ls_userid, ls_dbpass, ls_logid, ls_logpass string ls_server, ls_dbparm, ls_lock, ls_autocommit If of_GetConnectionInfo ( ls_dbms, ls_database, ls_userid, ls_dbpass, ls_logid, ls_logpass, ls_server, ls_dbparm, ls_lock, ls_autocommit ) = 1 Then SQLCA.DBMS = ls_dbms SQLCA.Database = ls_database SQLCA.UserID = ls_userid SQLCA.DBPass = ls_dbpass SQLCA.LogID = ls_logid SQLCA.LogPass = ls_logpass SQLCA.ServerName = ls_server SQLCA.DBParm = ls_dbparm SQLCA.Lock = ls_lock Choose Case Lower ( ls_autocommit ) Case "1", "true", "on", "yes" SQLCA.AutoCommit = True Case "0", "false", "off", "no" SQLCA.AutoCommit = False Case Else SQLCA.AutoCommit = False End Choose End If 问,这样做有什么好处?? |
|
|
|
20
修改
删除
举报
引用
回复
| |