%{String} 用于创建一个使用双引号括起来的字符串
%Q{String} 用于创建一个使用双引号括起来的字符串
%Q!Some String of “Characters”! <==> ” Some String of \”Characters\” “
%q{String} 用于创建一个使用单引号括起来的字符串
%q!Some String of “Characters”! <==> ‘Some String of Characters’
%r{String} 用于创建一个正则表达式字面值
%r{/usr/bin/} <==> /\/usr\/bin\//
%w{String} 用于将一个字符串以空白字符切分成一个字符串数组，进行较少替换
%W{String} 用于将一个字符串以空白字符切分成一个字符串数组，进行较多替换
%W(North South East West) <==> ["North", "South", "East", "West"]
%s{String} 用于生成一个符号对象
%x{String} 用于执行String所代表的命令
%x{ ls /usr/local } <==> `ls /usr/local`
PS：上面几个%表示法中用{}扩住了String，其实这个{} 只是一种分割符，可以换成别的字符，比如()，那么%表示法就是%(String)，当然还可以是别的 ......
查询语句只要这样写,就可以随机取出记录了
SQL="Select top 6 * from Dv_bbs1 where isbest = 1 and layer = 1 order by newID() desc"
在ACCESS里
SELECT top 15 id from tablename order by rnd(id)
SQL Server：
Select TOP N * from TABLE Order By NewID()
Access：
Select TOP N * from TABLE Order By Rnd(ID)
Rnd(ID) 其中的ID是自动编号字段，可以利用其他任何数值来完成，比如用姓名字段(UserName)
Select TOP N * from TABLE Order BY Rnd(Len(UserName))
MySql：
Select * from TABLE Order By Rand() Limit 10
SQL数据库有个newid函数，可以很方便的用SQL语句得到表中的随机数据。但access数据库没这么方便，虽然有个Rnd，可以通过“select top 10 * from tb order by rnd(id)”得到随机数据，可惜在VB中使用，产生的随机序列是一样的。
有人说在程序中加上Randomize初始化随机种子，那么这只说对了一半，在程序中简单的加上Randomize，是没作用的，道理很简单，Randomize不可能影响SQL语句中的rnd,那只不过是个字符串，SQL语句是放到jet中去执行的。
前些天在论坛上看到有人说用time，那么只用rnd(time)这样是不行的，rnd中必须要包� ......
查询语句只要这样写,就可以随机取出记录了
SQL="Select top 6 * from Dv_bbs1 where isbest = 1 and layer = 1 order by newID() desc"
在ACCESS里
SELECT top 15 id from tablename order by rnd(id)
SQL Server：
Select TOP N * from TABLE Order By NewID()
Access：
Select TOP N * from TABLE Order By Rnd(ID)
Rnd(ID) 其中的ID是自动编号字段，可以利用其他任何数值来完成，比如用姓名字段(UserName)
Select TOP N * from TABLE Order BY Rnd(Len(UserName))
MySql：
Select * from TABLE Order By Rand() Limit 10
SQL数据库有个newid函数，可以很方便的用SQL语句得到表中的随机数据。但access数据库没这么方便，虽然有个Rnd，可以通过“select top 10 * from tb order by rnd(id)”得到随机数据，可惜在VB中使用，产生的随机序列是一样的。
有人说在程序中加上Randomize初始化随机种子，那么这只说对了一半，在程序中简单的加上Randomize，是没作用的，道理很简单，Randomize不可能影响SQL语句中的rnd,那只不过是个字符串，SQL语句是放到jet中去执行的。
前些天在论坛上看到有人说用time，那么只用rnd(time)这样是不行的，rnd中必须要包� ......
选择指定条数语句：
db2：select * from tabname fetch frist n rows only
informix：select first n *
from tabname
oralce：select * from tabname where rownum <= n
sql server :select top n * from tabname ......
触发器的定义与分类:
只要触发器所在表上的对应时间发生,就会自动执行该触发器的代码.实际上,我们并不能直接调用触发器,唯一的方法是在分配哦触发器的表上执行某种行为方可激活触发器. [触发器是一种特殊的存储过程,他在执行特定的语言事件时生效
SQL Server包括两大类触发器:DDL(数据定义语言)触发器和DML(数据操作语言)触发器
DDL触发器:
当服务器或数据库中发生数据定义语言(DDL)时,将调用这些触发器.DDL触发器是一种特殊的触发器,在影响数据定义语言语句时出发,可以用于在数据中执行管理任务,例如审核以及规范数据库中的操作.
例如:Drop table,Create table
例1:
create trigger tr_1
on database
for Create_Table --|| Drop_Table
......
{-----------------------------------------------------------------------------
Unit Name: HashTable
Author: LiuHeng
Date: 2010-04-13
Purpose: 封装Delphi的HashTable
History:
-----------------------------------------------------------------------------}
unit HashTable;
interface
uses
Classes,IniFiles;
type
THashTable = class(THashedStringList)
public
procedure AddStrItem(const ItemName: string;const ItemValue: string);
function ObjectValue(const ObjName: string): TObject;
end;
implementation
{ THashTable }
procedure THashTable.AddStrItem(const ItemName: string;const ItemValue: string);
begin
Add(ItemName+'='+ItemValue);
end;
function THashTable.ObjectValue(const ObjName: string): TObject;
var
AIndex: integer;
begin
Find(ObjName,AIndex);
if AIndex>=0 then
Re ......
unit MyADO;
interface
uses
SysUtils, Classes,ADODB,DB,Variants,StdCtrls,Dialogs;
type
TMyADO = class(TComponent)
private
Connection: TADOConnection;
Query: TADOQuery;
Table: TADOTable;
FConnectionString:string;
procedure InitQuery(InputQuery: TADOQuery; QueryString: String);
function CheckParaEqual(QueryString: String; ParameterList: TStringList):Boolean;
procedure InitParameter(InputQuery:TADOQuery;QueryString:string;ParameterList:TStringList);
public
constructor Create(ConnectionString: String);virtual;
destructor Destory;virtual;
procedure SetConnectionString(ConnectionString: string);
function GetConnection():TADOConnection;overload;virtual;
function GetConnection(ConnectionString: String): TADOConnection;overload;virtua ......
最新文章 :