£¨ÔÚÏߵȴý£©ListBoxÖÐÏÔʾAccessÖ¸¶¨×ֶεļǼ
±¾ÈËÊǸÕѧϰDelphi×Å£¬ÏÖÓöµ½ÈçÏÂÒ»¸öÎÊÌ⣺
ÎÒÏëÔÚListBoxÖÐÏÔʾAccessÊý¾Ý¿âTB±íµÄPeople×Ö¶ÎÀïÃæµÄ¼Ç¼¡£
ÀýÈ磺
TB±íÖеÄ×Ö¶ÎPeopleÀïÃæ¼Ç¼£ºA,B,C,D......
ÔÚListBoxÖÐÏÔʾ£¬ListBox.Item[0]:=A
ListBox.Item[1]:=B
ListBox.Item[2]:=C
ListBox.Item[3]:=D
Ò²¾ÍÊÇPeopleÖеÄÒ»¸ö¼Ç¼ÔÚListBoxÒ»¸öÐÐÖÐÏÔʾ¡£
·Ç³£¸Ðл£¬Ï£Íû¸÷λ¸ßÊÖ¼°Ê±°ïÖú¡£
ListBox1.Items.Strings[0] := ×Ö¶Î1µÄÖµ+':'+×Ö¶Î2µÄÖµ+':'+×Ö¶Î3µÄÖµ+':'+×Ö¶Î4µÄÖµ
ÓÃ':'ºÅ·Ö¸ô¿ª£¬¶ÁȡʱÔÙÒÔ':'ºÅ·ÖÀëÌáÈ¡
¿ÉÒÔÔÙÏêϸһµãÂð£¿ÈçºÎ´ÓPeopleÖжÁȡÿһ¸ö¼Ç¼°¡£¿Í¨¹ýʲô°ì·¨£¿
var
TempStr: string;
i, j: integer;
People.First;
for i:=0 to People.recordcount-1 do
begin
TempStr := '';
for j:=0 to People.Fields.count-1 do
begin
TempStr := TempStr + People.Fields[j].AsString;
if j <> People.Fields.count-1 then
TempStr := TempStr + ':';
end;
ListBox1.Items.Add(TempStr);
end;
PeopleÊÇÊý¾Ý±íÖеÄ×Ö¶ÎÃû£¬ÎÒÒªÔõô¶¨Òå²ÅÄÜÈÃÉÏÃæµÄ´úÂëʵÏÖ°¡£¿ÈçPeople.FirstÄÜÕý³£µÄÔËÐÐ
Ïà¹ØÎÊ´ð£º
ÎÒ½«Ò»¶Î4000À´×ÖµÄÎı¾¸³Öµ¸øËüÔõô¾Í³ö´íÁË,ÌáʾÔËÐÐʱ´íÎó2176 Õâ¸öÊôÐÔµÄÉèÖÃֵ̫³¤?
ÄãÊÇÔõÑù¸³ÖµµÄ£¿
²âÊÔÁËһϣ¬Óñ¸×¢×ֶθøÎı¾¿ò×öÊý¾ÝÔ´£¬Ã»ÓÐÌáʾÉèÖÃֵ̫³¤,14893×Ö·û
ÒýÓÃÎÒ½«Ò»¶Î4000À´×ÖµÄÎ ......
ÎÒдÁËÒ»¸öÈí¼þ£¬ÒªÓõ½ACCESSÊý¾Ý¿â£¬ÎÒÔÙ·ÃÎÊACCESSµÄʱºò£¬ÎÒÐèÒª´Ó±íÀï¶Á³öÒ»ÐÐÊý¾Ý£¬ÎҵijÌÐòÊÇÕâÑùдµÄ£¬SQLSTRING="SELECT * from '" &ME.TEXTBOX1.TEXT &"' WHERE ID = '"& ......
ÎÒÔÚÇ°Ì¨Ò³ÃæÊäÈë¿òÊäÈë 20091208 µã»÷Ìá½»Ö®ºó±¨´í,˵ÀàÐͲ»Æ¥Åä.
Êý¾Ý¿âÀï Õâ¸ö×ֶεĸñʽӦ¸ÃÊÇ 2009-12-8 14:27:40
ÊDz»ÊÇÒª°Ñ 20091208 ת»»³É¸ñʽ 2009-12-8 14:27:40
ÇëÎÊÎ ......
ÎÒ»ú×ÓÀïÃæÃ»ÓÐACCESS,ÇëÎÊÔÚ²»ÖØ×°ÏµÍ³µÄÇé¿öϸÃÈçºÎ°ÑËü×°ÉÏ,֮ǰÎÒÊÔ×°¹ýÆäËü°æ±¾µÄSP3 OFFICE,µ«»¹ÊÇ×°²»ÉÏ,
ÇëÎÊÓÐʲôºÃ°ì·¨Âð?
°²×°OFFICE £¬Ñ¡Ôñ°²×°ACCESS¾Í¿ÉÒÔѽ ¡£
ÒýÓÃ
°²×°OFFICE £¬Ñ¡Ôñ°²×° ......