MS SQL Server和Access分别取得随机记录

名站网址导航为大家提供关于数据库教程相关的教程网站知识。

Access 和 SQL Server数据类型的比较
Access和SQL Server数据类型各有不同，使用脚本进行数据定义时，这些类型说明还是有用。,Access数据类型的说明,DATETIME： 8 个字节介于 100 到 9999 年的日期或时间数值。,UNIQUEIDENTIFIER： 128 个位用于远程过程调用的唯一识别数字。,REAL： 4 个字节单精度浮点数，负数范围是从 –3.402823E38 到 –1.401298E-45，正数从1.401298E-45 到 3.402823E38，和 0。,FLOAT： 8 个字节双精度浮点数，负数范围是从 –1.79769313486232E308 到 –4.94065645841247E-324，正数从 4.94065645841247E-324 ,SMALLINT： 2 个字节介于 –32,768 到 32,767 的短整型数。,INTEGER： 4 个字节介于 –2,147,483,648 到 2,147,483,647 的长整型数。,DECIMAL： 17 个字节容纳从 1028 - 1到 - 1028 - 1. 的值的精确的数字数据类型。您可以定义精度 (1 - 28) 和符号 (0 - 定义精度)。缺省精度和符号分别是18,TEXT：每一字符两字节(参见注意) 从零到最大 2,14 千兆字节。,IMAGE：视实际需要而定从零到最大 2,14 千兆字节。用于 OLE 对象。,ChARACTER：每一字符两字节(参见注意) 长度从 0 到 255 个字符。

这是博主用在一个项目上的源码片断，无论是速度、均衡性，还是随机度都非常好，当然这更不可能抽到重复记录了。

一、在MS SQL Server 2000中生成随机记录的最好办法：

with tk_query do

begin

Close;

sql.clear;

sql.Add('select top ' inttostr(st_count) ' tk.ID,标准答案 from 题库表 tk');

sql.Add('where pid is null and tk.题型=' quotedstr(tx) ' and tk.知识点=' quotedstr(zsd));

sql.add('and tk.难易度=' quotedstr(nyd) ' and tk.课程号=' quotedstr(kcdm) ' order by newid()');

Open;

end;

二、网站数据库为Access2000时生成随机记录的最好办法：

由于Access中没有newid()这一随机函数，故要想在Access中直接由SQL数据库语句生成咱们所希望的随机记录不太可能，因此咱们只好在开发语言中生成合适SQL数据库语句，让Access执行了(博主的开发相关工具为Delphi)。

//获取题库表中的随机ID，组成一个字符串，类似这样 (3,8,2,25,49,1,7,10,6,83....)

//kcdm:课程具体相关代码,tx:题型,zsd:知识点,nyd:难易度,t_count:某一题型某一知识点某一难度下的要抽取的题量

function TTest_Srv_RDataForm.Get_Random_ID(const kcdm,tx,zsd,nyd,t_count:string):string;

var

sl: TStrings;

i,ii,kk: integer;

begin

try

Result := '';

sl := TStringList.Create;

with TADOQuery.Create(nil) do

begin

try

Connection := Adoconnection1;

SQL.Text := ' select ID from 题库表 where pid is null and 题型=' quotedstr(tx)

' and 知识点=' quotedstr(zsd) ' and 难易度=' quotedstr(nyd)

' and 课程号=' quotedstr(Kcdm);

Open;

while not Eof do

begin

sl.Add(Fields[0].AsString);

Next;

end;

Close;

finally

Free;

end;

end; //end with ....

if sl.Count=0 then

Exit;

for i := 0 to StrToIntDef(t_count,0)-1 do

begin

kk := sl.Count;//随机因子

Randomize;

ii := Random(kk); //取得随机数

if Result='' then

Result := sl.Strings[ii]

else

Result := Result ',' sl.Strings[ii];

sl.Delete(ii); //为了避免有可能出现的重复，此ID被抽取过后把它删了

if sl.Count=0 then //假如如果无题可抽了退出循环

Break;

end;

Result := '(' Result ')'; //给结果串前后加上(......)，最终形成(24,36,5,89,72,3,6,1....)的串样

finally

sl.Free;

end;

//=============================================== 课程号,题型,知识点,难易度,题量

function TTest_Srv_RDataForm.Get_Random_Sql(const kcdm,tx,zsd,nyd,t_count:string):string;

begin

Result := Get_Random_ID(kcdm,tx,zsd,nyd,t_count);

if Result <> '' then

Result := ' select top ' t_count ' tk.ID,标准答案 from 题库表 tk where id in ' Result

else

Result := ' select top ' t_count ' tk.ID,标准答案 from 题库表 tk where 1=1 ';

end;

//以下为调用上述函数生成随机抽题的具体相关代码片断

.......

with tk_query do

begin

Close;

sql.Clear;

sql.Text := Get_Random_Sql(Kcdm,tx_str,zsd_str,nyd_str,txzsd_count_str);

Open;

end;

关于数据库教程相关的教程网站知识今天我们就说到这里了，希望可以帮到大家。

MS SQL Server和Access分别取得随机记录

宝贝市场2023-02-08

夺宝助手2023-02-08

查诚信2023-02-08

车价天天报2023-02-08

考勤助理小程序2023-02-08

汽车报价大全查询2023-02-08