- 博客(12)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 财富(储蓄)目标算法
{* 财富目标算法 *}{* p^n - 1 *}{* b = a * p^n + m * ---------------- *}{*
2009-08-09 09:42:00
1123
原创 如何处理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
10376
转载 转载：Oracle备份与恢复——初学者指南
初学者指南这篇文章是去年写的了，最初发表在chinaunix.net的oracle论坛里，收录在旧版文集中，可能很多没有看到，总有人写信要，今天乘改版之际就把它单独拿出来了。（gototop 2003.6.24注） RMAN(Recovery Manager)是DBA的一个重要工具，用于备份、还原和恢复oracle数据库，前一段时间有网友找我要，可惜没时间，趁这两天出差在外没什么事，就写了
2007-10-10 09:23:00
995
原创 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
804
原创 delphi Ado 执行带有冒号字符语句的处理。
用DELPHI的程序员都知道ADO的易用性，用ADO控件操作数据库是非常受欢迎的，但使用ADO也会碰到一些麻烦问题，就像DELPHI 5下如果要用ADO就要先装好ADO补丁，有的SQL的语句在数据库工具里执行可以成功但用DELPHI的AdoQuery执行不一定能成功。今天又碰到这问题：ADO要执行的SQL语句里同时包含有": 时就会有问题，如下面SQL语句:AdoQuery1.Close;
2007-08-20 11:50:00
3027
原创 破解加密存储过程
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
1035
原创 万年日
/** 万年日 **/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
2315
原创 取得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
918
原创 获得控件的所有属性及方法
获得控件的所有属性及方法之前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
1162
原创 给数据添加计算字段
{>------------------------------------------------------------ 过程功 能: 给数据添加计算字段 修改改说明: 增加参数: name : string Xtype: integer 用以指定字段类型 0: 为Integer 1:为String 作用: 用以指
2004-07-09 16:21:00
1374
原创 拖动窗体
procedure TLeadForm.ImgTitleMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin {=================拖动窗体====================================} ReleaseCapture; SystemParametersInfo(SP
2004-07-09 16:20:00
783
原创 判断类型及是否符合类型值函数
//判断类型及是否符合类型值函数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
901
造字程序详解及其共享发布
2008-01-15
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人