導(dǎo)讀:1建站知識(shí)這是博主用在一個(gè)項(xiàng)目上的源碼片斷，無(wú)論是速度、均衡性，還是隨機(jī)度都非常好，當(dāng)然這更不可能抽到重復(fù)記錄了。 一、在MS SQL Server 2000中生成隨機(jī)記網(wǎng)站seo優(yōu)化診斷工具網(wǎng)站建設(shè)公司。

這是博主用在一個(gè)項(xiàng)目網(wǎng)站seo優(yōu)化培訓(xùn)上的源碼片斷，無(wú)論是速度、均衡性，還是隨機(jī)度都非常好，當(dāng)然這更不可能抽到重復(fù)記錄了。

一、在MS SQL Server 2000中生成隨機(jī)記錄的最好辦法：

with tk_query do

begin

Close;

sql.clear;

sql.Add('select top '+inttostr(st_count)+' tk.ID,標(biāo)準(zhǔn)答案 from 題庫(kù)表 tk');

sql.Add('where pid is null and tk.題型='+quotedstr(tx)+' and tk.知識(shí)點(diǎn)='+quotedstr(zsd));

sql.add('and tk.難易度='+quotedstr(nyd)+' and tk.課程號(hào)='+quotedstr(kcdm)+' order by newid()');

Open;

end;

注：關(guān)鍵就是 order by newid() 這條語(yǔ)句!隨機(jī)因子就是從這里產(chǎn)生的。

二、數(shù)據(jù)庫(kù)為Access2000時(shí)生成隨機(jī)記錄的最好辦法：

由于Access中沒(méi)有newid()這一隨機(jī)函數(shù)，故要想在Access中直接由SQL語(yǔ)句生成我們所希望的隨機(jī)記錄不太可能，因此我們只好在開(kāi)發(fā)語(yǔ)言中生成合適SQL語(yǔ)句，讓Access執(zhí)行了(博主的開(kāi)發(fā)工具為Delphi)。

//獲取題庫(kù)表中的隨機(jī)ID，組成一個(gè)字符串，類似這樣 (3,8,2,25,49,1,7,10,6,83....)

//kcdm:課程代碼,tx:題型,zsd:知識(shí)點(diǎn),nyd:難易度,t_count:某一題型某一知識(shí)點(diǎn)某一難度下的要抽取的題量

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 題庫(kù)表 where pid is null and 題型='+quotedstr(tx)+

' and 知識(shí)點(diǎn)='+quotedstr(zsd)+' and 難易度='+quotedstr(nyd)+

' and 課程號(hào)='+quotedstr(Kcdm);

Open;

while not Eof do

begin

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

Next;

end;

Close;

finally

F網(wǎng)站seo優(yōu)化課程ree;

end;

end; //end with ....

if sl.Count=0 then

Exit;

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

begin

kk := sl.Count;//隨機(jī)因子

Randomize;

ii := Random(kk); //取得隨機(jī)數(shù)

if Result='' then

Result := sl.Strings[ii]

else

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

sl.Delete(ii); //為了避免有可能出現(xiàn)的重復(fù)，此ID被抽取過(guò)后把它刪了

關(guān)鍵詞標(biāo)簽: 標(biāo)題 標(biāo)簽 SQL