²ËÄñÇë½Ì¹ØÓÚ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
ÏÈ̹°×Ï£¬ÒòΪ
Ïà¹ØÎÊ´ð£º
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......
±¨Õâ¸ö´í:
compile Error
sub or function not defined
ºÍÎÒÒýÓÃÕâ¸ö¿âº¯ÊýÓйØÏµÂð£¿
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivatePr ......