²ËÄñÇë½Ì¹ØÓÚ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
ÏÈ̹°×Ï£¬ÒòΪ
Ïà¹ØÎÊ´ð£º
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......