好,能不能帮一下,怎样把数据库中的内容倒入到一个二维数组中去。 这是我的代码,大家帮看看好吗?我用的是ACCESS数据库,我的问题是只执行一次循环,N只加了一次。 procedure TDbEditForm.Button5Click(Sender: TObject); var n:integer; begin n:=1; with adoquery1 do begin close; SQL.Clear; sql.Add('select * from data_yc'); open;
if not eof then begin QMessage[n][0]:=adoquery1.Fields[3].Value; QMessage[n][1]:=adoquery1.Fields[4].Value; QMessage[n][2]:=adoquery1.Fields[5].Value; QMessage[n][3]:=adoquery1.Fields[6].Value; QMessage[n][4]:=adoquery1.Fields[7].Value; QMessage[n][5]:=adoquery1.Fields[8].Value; adoquery1.Recordset.MoveNext; n:=n+1; end; end; end;
这是我的代码,大家帮看看好吗?我用的是ACCESS数据库,我的问题是只执行一次循环,N只加了一次。
procedure TDbEditForm.Button5Click(Sender: TObject);
var n:integer;
begin
n:=1;
with adoquery1 do
begin
close;
SQL.Clear;
sql.Add('select * from data_yc');
open;
if not eof then
begin
QMessage[n][0]:=adoquery1.Fields[3].Value;
QMessage[n][1]:=adoquery1.Fields[4].Value;
QMessage[n][2]:=adoquery1.Fields[5].Value;
QMessage[n][3]:=adoquery1.Fields[6].Value;
QMessage[n][4]:=adoquery1.Fields[7].Value;
QMessage[n][5]:=adoquery1.Fields[8].Value;
adoquery1.Recordset.MoveNext;
n:=n+1;
end; end;
end;
3 加唯一值索引
设置 主键 或 加唯一值索引
SQL 2000 会自己避免用户同时更新的问题吗?? 谢谢