发信人: 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]
|
|