£¨ÔÚÏߵȴý£©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ÄÜÕý³£µÄÔËÐÐ
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÇ°Ì¨Ò³ÃæÊäÈë¿òÊäÈë 20091208 µã»÷Ìá½»Ö®ºó±¨´í,˵ÀàÐͲ»Æ¥Åä.
Êý¾Ý¿âÀï Õâ¸ö×ֶεĸñʽӦ¸ÃÊÇ 2009-12-8 14:27:40
ÊDz»ÊÇÒª°Ñ 20091208 ת»»³É¸ñʽ 2009-12-8 14:27:40
ÇëÎÊÎ ......
֮ǰÓÃACCESS×öµÄÒ»¸öϵͳ£¬ÏÖÔÚ½«±í¶¼×ªµ½SQLÀȻºóÓÃODBCÁ¬½ÓSQL±í¡£
ÏÖÔÚÓиöÎÊÌâ¾ÍÊÇ£¬ÎÒÆäÖÐÓÐÒ»¸ö±íµÄÊý¾ÝÊÇ´ÓEXCELÀïµ¼ÈëµÄ£¬Èç¹û±íÔÚACCESS±¾µØµ¼ÈëÕý³££¬ÏÖÔÚÓÃÁ´½Ó±íµ½SQL£¬µ¼ÈëʱÌáʾ³É¹¦£¬µ«±íÄÚÎÞÊý ......
´ó¼Ò°ïÏÂæÁË
Çë½ÌÒ»¸öSQL²éѯµÄÎÊÌâ
±ÈÈçÎÒÏÖÔÚ²éѯ
SELECT * from XS WHERE רҵÃû='¼ÆËã»ú'
²éѯÍê³ÉÖ®ºóÎҿɲ»¿ÉÒÔÔÚÉϴβéѯµÄ»ù´¡Ö®ÉÏÔÚ½øÐÐÏà¹Ø²éÑ¯ÄØ£¿
±ÈÈçÎÒÔÚ²éÍê¼ÆËã»úרҵµÄËùÓÐѧÉúÖ®ºó£¬Ïë²é³ö¼ ......
vcÖÐÓÃodbcµÄ·½·¨·ÃÎÊaccessÊý¾Ý¿â£¬Óõ½ÁËcdatabaseÀàºÍcrecordsetÀà¡£Êý¾ÝÔ´ÔÚ´°¿Ú³õʼ»¯µÄʱºò±»´ò¿ªg_datasource.Open("data",FALSE,FALSE); µã»÷Ò»¸ö°´Å¥Æô¶¯Ò»¸ö¶¨Ê±Æ÷£¬ÔÚ¶¨Ê±Æ÷ÄÚÍê³ÉÒÔϲÙ×÷£¬¶¨ ......