delphi+MySQLÎÊÌâ

Ö÷Òª´úÂ룺
Delphi(Pascal) code:

QueryDataset := TADODataSet.Create(nil);
with QueryDataset do
begin
Active := False;
AutoCalcFields := True;
CommandType := cmdText;
CommandTimeout := 30;
CacheSize := 1;
AutoCalcFields := True;
CursorLocation := clUseClient;
CursorType := ctKeyset;
EnableBCD := True;
Filtered := False;
Prepared := False;
LockType := ltOptimistic;
MarshalOptions := moMarshalAll;
StoreDefs := False;
Tag := 0;
connectionstring := '';
try
Connection := Conn;
except
on e:Exception do begin
Result := False;
end;
CommandText := 'Select * from table order by idx';
end;
while not QueryDataset.Eof do
begin
Inc(NumberOfQueryResult);
QueryDataset.Next();
end;
Freeandnil(QueryDataset);



Èç¹ûtable²»×öinsert²Ù×÷£¬Ã»ÓÐÎÊÌ⣬µ«Èç¹ûinsert ¼¸ÌõÊý¾Ýµ½tableÀïÃ棬
È»ºóÔÙÔËÐÐÒÔÉϳÌÐò£¬QueryDataset.Next();ÕâÀﱨ´í£¬ºÃÏñAdoDatasetÖ¸Õë²»¶ÔÁË

MySQL°æ±¾£º
mysql> select @@version;
+---------------------+
| @@version          |
+---------------------+
| 5.0.81-community-nt |
+---------------------+
1 row in set (0.00 sec)

û¼û¹ýµÄ벡£¬Î¬»¤ÀϲúÆ·ÓõÄdelphi6.0¿ª·¢¡£

---

Äã insert ʱµÄ´úÂëÊÇʲôÑù£