一个数据库的问题（在线等）

Question

procedure TForm1.Button1Click（Sender: TObject）;
begin
Tabe1.Append ;
Tabe1.FieldValues[' STUDNAME '] := Edit1.text;
Tabe1.FieldValues[' STUDNUM '] := StrToInt（Edit2 . text）;
Tabe1.Post ;
end ;谁能告诉我，上面的语句存储一个数据大概要多长时间

Answer 1

数据库如果是SQLserver用事件探查器跟踪一下试试

Answer 2

这个和网路什么的都有关系的
你在Append前面和Post后面各加一个时间显示，不就知道多长时间了吗？

Answer 3

用API 函数 
1.QueryPerformanceFrequency
2.QueryPerformanceCounter具体的用法var
StartCount,EndCount:TLargeInteger;
Frequency:TLargeInteger;
ElapsedTime:Extended;procedure TForm1.Button1Click（Sender: TObject）;
begin
QueryPerformanceFrequency(Frequency);Tabe1.Append ;
Tabe1.FieldValues[' STUDNAME '] := Edit1.text;
Tabe1.FieldValues[' STUDNUM '] := StrToInt（Edit2 . text）;
Tabe1.Post ;QueryPerformanceCounter(EndCount);
ElapsedTime:=(EndCount-StartCount)/Frequency;
memo1.Lines.Add('耗时：'+floattostr(ElapsedTime)+' 秒');
end ;

Answer 4

不是SQLserver，数据库是Accsee，我应怎么办？

Answer 5

用普通的Timer是不行的
精度不够，小于35ms的就不准了

Answer 6

数据库是Access 那我说的就可以了 

Answer 7

存入Accsee数据库中，最快的方法是什么阿？

Answer 8

没你说的那么慢吧？？
机器配置的问题？？我的是 AMD2500+（超频到2800+) 512MB内存

Answer 9

sxtdxvb(大傻瓜) ：
呵呵，，，小弟这个烂机子是：赛扬836，，，128＋128MB内存，，慢的要死

Answer 10

procedure TForm1.Button1Click（Sender: TObject）;
var
i,j:Cardinal;
begin
Tabe1.Append;
i:=GetTickCount;
Tabe1.FieldValues[' STUDNAME '] := Edit1.text;
Tabe1.FieldValues[' STUDNUM '] := StrToInt（Edit2 . text）;
Tabe1.Post;
j:=GetTickCount;
showmessage(Vartostr(j-i));
end ;