£¨ÔÚÏߵȴý£©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ÄÜÕý³£µÄÔËÐÐ
Ïà¹ØÎÊ´ð£º
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
ÈçºÎÐÞ¸Ämsysobjects±íÖеÄÊý¾ÝÄØ£¿Ð»Ð»
ɶ¶¼Ã»ÓÐ,Òâ˼²»Ã÷È·,ÔÙÏêϸµã°É
²»Òª¸ÄsysobjectsÀïµÄ¶«Î÷¡£
ÓÃÆäËü·½·¨¸Ä£¬±íÃû»òÆäËû¡£
ÒªÔÚACCESS»·¾³ÏÂÅäÖÃȨÏÞ£¬²ÅÄÜ·ÃÎÊϵͳ±í...
лл´ó¼Ò¡£
ÊÇÕâÑù£¬¿´ ......
ÎÒÔÚǰ̨ҳÃæÊäÈë¿òÊäÈë 20091208 µã»÷Ìá½»Ö®ºó±¨´í,˵ÀàÐͲ»Æ¥Åä.
Êý¾Ý¿âÀï Õâ¸ö×ֶεĸñʽӦ¸ÃÊÇ 2009-12-8 14:27:40
ÊDz»ÊÇÒª°Ñ 20091208 ת»»³É¸ñʽ 2009-12-8 14:27:40
ÇëÎÊÎ ......
֮ǰÓÃACCESS×öµÄÒ»¸öϵͳ£¬ÏÖÔÚ½«±í¶¼×ªµ½SQLÀȻºóÓÃODBCÁ¬½ÓSQL±í¡£
ÏÖÔÚÓиöÎÊÌâ¾ÍÊÇ£¬ÎÒÆäÖÐÓÐÒ»¸ö±íµÄÊý¾ÝÊÇ´ÓEXCELÀïµ¼ÈëµÄ£¬Èç¹û±íÔÚACCESS±¾µØµ¼ÈëÕý³££¬ÏÖÔÚÓÃÁ´½Ó±íµ½SQL£¬µ¼ÈëʱÌáʾ³É¹¦£¬µ«±íÄÚÎÞÊý ......
vcÖÐÓÃodbcµÄ·½·¨·ÃÎÊaccessÊý¾Ý¿â£¬Óõ½ÁËcdatabaseÀàºÍcrecordsetÀà¡£Êý¾ÝÔ´ÔÚ´°¿Ú³õʼ»¯µÄʱºò±»´ò¿ªg_datasource.Open("data",FALSE,FALSE); µã»÷Ò»¸ö°´Å¥Æô¶¯Ò»¸ö¶¨Ê±Æ÷£¬ÔÚ¶¨Ê±Æ÷ÄÚÍê³ÉÒÔϲÙ×÷£¬¶¨ ......