论坛交流
首页办公自动化| 网页制作| 平面设计| 动画制作| 数据库开发| 程序设计| 全部视频教程
应用视频: Windows | Word2007 | Excel2007 | PowerPoint2007 | Dreamweaver 8 | Fireworks 8 | Flash 8 | Photoshop cs | CorelDraw 12
编程视频: C语言视频教程 | HTML | Div+Css布局 | Javascript | Access数据库 | Asp | Sql Server数据库Asp.net  | Flash AS
当前位置 > 文字教程 > asp教程
Tag:入门,文摘,实例,技巧,iis,表单,对象,上传,数据库,记录集,session,cookies,存储过程,注入,分页,安全,优化,xmlhttp,fso,jmail,application,防盗链,stream,组件,md5,乱码,缓存,加密,验证码,算法,ubb,正则表达式,水印,,日志,压缩,url重写,控件,函数,破解,触发器,socket,ADO,初学,聊天室,留言本,视频教程

借助组件使用asp连接informix全方案

文章类别:asp | 发表日期:2008-10-5 20:49:17

注意:本文方案适用于asp通过自开发组件连接所有类型的数据库

现在某些企业的数据库用的是informix,多数开发者对这个数据库操作的比较少,

因为当前该公司已经被IBM吃掉,而IBM主推的是其DB2,不多述

使用olddb组件,通过server.createobject("adodb.connection")建立的连接,连

接都可以成功,但是速度是在满的让人惊慌,尤其数据条数超过2条的表,即使只

是查询一条,也几乎差不出来,整个asp主机的效率直线下降,内存占用增加。对

待此问题,我使用delphi写了一个简单的组件。

主要代码如下:
unit main;
{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ActiveX, Mtsobj, Mtx, ComObj, aspbde_TLB, StdVcl,DB,dbtables,SysUtils;

type
  Tbdeasp = class(TMtsAutoObject, Ibdeasp)
  protected
    function open(const sqlstr, aliname: WideString): OleVariant;

safecall;
    function execute(const sqlstr, connstr: WideString): OleVariant;

safecall;
    { Protected declarations }
  end;

implementation

uses ComServ;

function Tbdeasp.open(const sqlstr, aliname: WideString): OleVariant;
var
  tmpre:variant;
begin
    tmpre:=createoleobject('adodb.recordset');
    try
     tmpre.open(sqlstr,aliname);
    except

    end;
    result:=tmpre;
end;

function Tbdeasp.execute(const sqlstr, connstr: WideString): OleVariant;
var
  tmpre:variant;
begin
    tmpre:=createoleobject('adodb.connection');
    try
     tmpre.open(connstr);
     tmpre.execute(sqlstr);
     result:=1;
    except
     result:=0;
    end;

end;


initialization
  TAutoObjectFactory.Create(ComServer, Tbdeasp, Class_bdeasp,
    ciMultiInstance, tmBoth);
end.

本程序中只写了最简单的两个方法 open,execute ,大家可以根据自己的需求添加

其他方法、属性等。

调用方法如下:
ser var=server.createobject("appname.bdeasp")
set rs=var.open("sql语句","数据库连接语句")

rs使用方法与 adodb.recordset对象完全一样,经测试,速度明显加快!!!系统

消耗大量下降,2000万条的数据表,查询速度非常迅速。

欢迎大家实验!!                  --Sonic_qd 2003-10

视频教程列表
文章教程搜索
 
Asp推荐教程
Asp热门教程
看全部视频教程
购买方式/价格
购买视频教程: 咨询客服
tel:15972130058