²ËÄñÇë½Ì¹ØÓÚVBÊý¾Ý¿âûÓÐÖ¸¶¨¼Ç¼ԴµÄÎÊÌâ
ÎÒµÄstudent.mdbÖаüº¬Á½Õűí
Ò»ÕÅÊÇ »ù±¾Çé¿ö £º
ѧºÅ ÐÕÃû
1 ÕÅÈý
2 ÀîËÄ
3 Íõ¶þ
4 Âé×Ó
Ò»ÕÅÊÇ Ñ§Éú³É¼¨±í£º
ѧºÅ ÓïÎÄ Êýѧ Ó¢Óï
1 85 98 68
2 75 62 95
3 56 74 42
4 85 95 41
ÎÒÔÚ´°ÌåÉÏÌí¼ÓÁË Adodc,MsChart,DataGrid ¸÷Ò»¸öÏëͨ¹ý MsChart,DataGrid Á¬½ÓAdodc£¬È»ºóͨ¹ý´úÂë²Ù×÷AdodcµÄRecordSourceÀ´¿ØÖÆMsChart,DataGridµÄÏÔʾ£º£¨DataGridÈçÏ£¬MsChartµÄ¸ñʽÎÒ²»ºÃд³öÀ´£¬¾ÍÊǺáÖáÊÇÐÕÃû£¬×ÝÖáÊÇÿÈ˵Ä×î¸ß×îµÍ·Ö£¬Ö±·½Í¼ £©
DataGrid£º
ÐÕÃû ƽ¾ù³É¼¨ ×îµÍ·ÖÊý
¡£¡£ ¡£¡£¡£ ¡£¡£¡£
ÎÒ±àдµÄ´úÂëÈçÏ£º
Private Sub Form_Load()
Dim sql As String, mlink As String
sql = "select »ù±¾Çé¿ö.ÐÕÃû,Avg(³É¼¨) as ƽ¾ù³É¼¨,min(³É¼¨) as ×îµÍ³É¼¨"
sql = sql + " from »ù±¾Çé¿ö,ѧÉú³É¼¨±í where »ù±¾Çé¿ö.ѧºÅ=ѧÉú³É¼¨±í.ѧºÅ"
sql = sql + " group by ѧÉú³É¼¨±í.ѧºÅ,»ù±¾Çé¿ö.ÐÕÃû order by avg(³É¼¨) desc"
mlink = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\ÎÒµÄÎĵµ\×ÀÃæ\student.mdb;Persist Security Info=False"
Adodc1.ConnectionString = mlink
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = sql
Adodc1.Refresh
End Sub
ÏÈ̹°×Ï£¬ÒòΪ
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......