- 博客(12)
- 资源 (1)
- 收藏
- 关注
原创 财富(储蓄)目标算法
{* 财富目标算法 *}{* p^n - 1 *}{* b = a * p^n + m * ---------------- *}{*
2009-08-09 09:42:00
1139
原创 如何处理CLOB字段值超过4000字节时提示:“ORA-01704:文字字符串过长”的错误
往oracle函CLOB、LONG字段类型的数据表插入值超过4000字节时,在执行INSERT INTO提示:ORA-01704:文字字符串过长错误,这种情况下,如果想用SQL实现的话,可以通过ORACLE存储过程实现。--处理方法一:用EXECUTE IMMEDIATE 实现--ASQL:带参数的INSERT INTO 语句--ALongVar1 : 参数值,大于4000字节CREATE
2007-11-01 10:08:00
10609
转载 转载:Oracle备份与恢复——初学者指南
初学者指南这篇文章是去年写的了,最初发表在chinaunix.net的oracle论坛里,收录在旧版文集中,可能很多没有看到,总有人写信要,今天乘改版之际就把它单独拿出来了。(gototop 2003.6.24注) RMAN(Recovery Manager)是DBA的一个重要工具,用于备份、还原和恢复oracle数据库,前一段时间有网友找我要,可惜没时间,趁这两天出差在外没什么事,就写了
2007-10-10 09:23:00
1022
原创 SQL SERVER 存储过程分页的3种通用方法
以前用程序写了很多效率不错分页方法,但很麻烦也都不通用。最近抽空编写了用SQL SEVER后台存储过程实现分页通用的方法,此过程提供3种分页技术方法,可以根据具体情况采用不同的方法。--exec get_page T_Table,*,xh,100,6,0,0, , lb like 1%CREATE PROCEDURE get_page@tblNam
2007-09-21 15:23:00
818
原创 delphi Ado 执行带有冒号字符语句的处理。
用DELPHI的程序员都知道ADO的易用性,用ADO控件操作数据库是非常受欢迎的,但使用ADO也会碰到一些麻烦问题,就像DELPHI 5下如果要用ADO就要先装好ADO补丁,有的SQL的语句在数据库工具里执行可以成功但用DELPHI的AdoQuery执行不一定能成功。今天又碰到这问题:ADO要执行的SQL语句里同时包含有": 时就会有问题,如下面SQL语句:AdoQuery1.Close;
2007-08-20 11:50:00
3057
原创 破解加密存储过程
CREATE PROCEDURE sp_decrypt(@objectName varchar(50))ASBEGINSET NOCOUNT ONBEGIN TRANDECLARE @objectname1 varchar(100) , @orgvarbin varbinary(8000)DECLARE @sql1 nvarchar(4000) , @sql2 varchar(800
2005-06-01 12:27:00
1050
原创 万年日
/** 万年日 **/declare @BegYymm char(6)declare @EndYymm char(6)declare @calendar table(週次 int,星期日 char(2),星期一 Char(2),星期二 Char(2),星期三 char(2),星期四 char(2),星期五 char(2),星期六 char(2),月份 char(10))set @BegYymm
2005-06-01 12:25:00
2333
原创 取得SQLSERVEREB服务器列表涵数。
function TForm3.InitFrm: Boolean;begin GetSQLServerList(ListBox1); Result:=True;end; Function GetSQLServerList(var List: TListBox): boolean;//取得SQLSERVEREB服务器列表涵数。var i: integer; SQLServer: Varian
2004-07-09 16:26:00
929
原创 获得控件的所有属性及方法
获得控件的所有属性及方法之前uses单元TypInfo,简单吧 procedure GetClassProperties(AClass: TObject; AStrings: TStrings);{ This method retrieves the property names and types for the given object and adds that information
2004-07-09 16:23:00
1175
原创 给数据添加计算字段
{>------------------------------------------------------------ 过程功 能: 给数据添加计算字段 修改改说明: 增加参数: name : string Xtype: integer 用以指定字段类型 0: 为Integer 1:为String 作用: 用以指
2004-07-09 16:21:00
1394
原创 拖动窗体
procedure TLeadForm.ImgTitleMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin {=================拖动窗体====================================} ReleaseCapture; SystemParametersInfo(SP
2004-07-09 16:20:00
795
原创 判断类型及是否符合类型值函数
//判断类型及是否符合类型值函数function TReportForm.ControlType(FType : TNrType ; FValue : String): Boolean;Var i : integer;function CountSubStr(SubStr, Source: string): Integer;begin result := 0; while pos(SubSt
2004-07-09 16:16:00
921
造字程序详解及其共享发布
2008-01-15
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人