Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

²ËÄñÇë½Ì¹ØÓÚ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
ÏÈ̹°×Ï£¬ÒòΪ


Ïà¹ØÎÊ´ð£º

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

ÇóÖú£ºVBµ÷Óö¯Ì¬¿âÎÊÌâ - VB / »ù´¡Àà

¸÷λ´óϺ£º
  ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......

Vb.net Access CrystalReport - .NET¼¼Êõ / VB.NET

µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......

vbÖÐÈçºÎʵÏÖ¶ÔÏóÊôÐԵĶ¯Ì¬ÉèÖà - VB / »ù´¡Àà

±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
 A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ