Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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Ô´ÂëתΪVB.NET~

Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..


Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html

תΪVB.NETÔ´Âë.

СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ

ÎÒµÄEMAILÊÇ:4452 ......

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......

VB µ÷Óà vc ±àдµÄdll - C/C++ / C++ ÓïÑÔ

ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......

vbÉú³Éexe´íÎó - VB / »ù´¡Àà

±¨Õâ¸ö´í:
compile Error
sub or function not defined
ºÍÎÒÒýÓÃÕâ¸ö¿âº¯ÊýÓйØÏµÂð£¿
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
  "GetPrivatePr ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ