利用循环可以把数组中的所有值取出吧!?, 把值用‘OR’,连接在SQL语句中就行了啊!! 例如: var sql:Strign; begin sql:='Select * FROM TableName WHERE 字段名=数组[0]' for i:=1 to 数组的最大下标 do sql:=sql+‘OR’+数组[i]; //删掉最后的‘OR’即可。 end;
=======Try====== //把您选中的随机数读到yourselectedNO中来,然后执行以下代码: adoquery1.close; adoquery1.sql.clear; adoquery1.sql.add('select * from yourtalbe where 试题号=:selectNO'); adoquery1.parambyname('selectNO').value:=yourselectedNO; try adoquery1.open; except end;
ADOQuery1.Locate('试题号', A[I], []);
把全部的试题放在TStringList中
(如果你的试题是多行文本可以转换成十六进制)
随机取直接取TStringList的元素即可
所以我要问你的库表结构
把值用‘OR’,连接在SQL语句中就行了啊!!
例如:
var sql:Strign;
begin
sql:='Select * FROM TableName WHERE 字段名=数组[0]'
for i:=1 to 数组的最大下标 do
sql:=sql+‘OR’+数组[i];
//删掉最后的‘OR’即可。
end;
//把您选中的随机数读到yourselectedNO中来,然后执行以下代码:
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from yourtalbe where 试题号=:selectNO');
adoquery1.parambyname('selectNO').value:=yourselectedNO;
try
adoquery1.open;
except
end;