发信人: zeng_zhe()
整理人: hunter__fox(2002-03-16 23:35:39), 站内信件
|
1、您的问题在于：
LOCAL M_CURDBC
M_CURDBC=SET("DATABASE")
SET DATABASE TO TRY
CREATE CONNECT ....
SET DATABASE TO (M_CURDBC)
2、您直接在TRY数据库中创建连接，会产生不必要的冗余和维护量。
3、比较有效的办法是创建一个临时数据库，在临时数据库中创建连接和视图。
4、因此有必要建立一个通用的类，可以根据指定连接的参数
和指定视图的参数在临时数据库中创建临时连接和视图。
方法如下：
o_mytemp=createobject("dbcsqltemp")
o_mytemp.tempview("existconn","existview",m_userid,m_password,"crea
tepara")
5、类dbcsqltemp设计如下：
define class dbcsqltemp as custom
this.ccurdbc=set("database")
this.ctempdbc="_"+right(sys(2015),7)
在INIT事件中：
create database (this.ctempdbc)
set database to (this.ccurdbc)
在DESTROY事件中：
set database to (this.ctempdbc)
close data
set database to (this.ccurdbc)
local m_dbcfile
m_dbcfile=this.ctempdbc+".dbc"
erase (m_dbcfile)
local m_dbtfile
m_dbtfile=this.ctempdbc+".dbt"
erase (m_dbtfile)
local m_dcxfile
m_dcxfile=this.ctempdbc+".dcx"
erase (m_dcxfile)
在tempview事件中:
大意：读取当前连接的13个参数到数组，在临时数据库中根据参数建立连接。
读取当前视图的9个属性参数数组和字段数组，在临时数据库中根据参数建立
视图。
最后USE视图后返回当前数据库。
6、祝您好运！
--
※ 修改:．zeng_zhe 于 Jun 1 20:56:07 修改本文．[FROM: 202.96.190.124]
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.96.190.124]
|
|