·¹ýµÄ´óϺÃÇ£¬°ï°ïСµÜÎÒ°É£¬Ò»¸öVB+SQLµÄÎÊÌâ
Êý¾Ý¿âѧ¼®¹ÜÀíÀïÓÐÈýÕÅ±í£º
±íXS°üÀ¨×ֶΣº ѧºÅ£¬ÐÕÃû£¬×¨Òµ£¬ÐԱ𣬳öÉúÈÕÆÚ£¬×Üѧ·Ö£¬±¸×¢
±íXSKC°üÀ¨×ֶΣºÑ§ºÅ£¬ÐÕÃû£¬¿Î³ÌÃû£¬³É¼¨£¬×Üѧ·Ö£¬×¨Òµ
±íKC°üÀ¨×ֶΣº רҵ£¬¿Î³ÌÃû
´°Ìåform1ÀïÓиöDatagrid¿Ø¼þ£¬±àд¿Ø¼þË«»÷ʼþÈçÏ£¬µ¯³ö´°Ìåshowstukc,´°ÌåshowstukcÉÏÓÐÁ½¸ö¿Ø¼þ£¬ADODCºÍDatagrid,Ãû×Ö·Ö±ðÊÇstukcado,studg¡£
ÎÒÏëʵÏÖ¹¦ÄÜÊÇ£¬Ë«»÷form1ÖеÄdatagrid¿Ø¼þ£¬µ¯³ö´°Ìåshowstukc£¬µ¯³ö´°ÌåÖÐÏÔʾ²éѯÐÅÏ¢£¬´úÂëÈçÏ£º
Private Sub DataGrid1_DblClick()
showstukc.stukcado.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=ѧ¼®¹ÜÀí" 'ADODCÖÐÉú³É×Ö·û´®Õ³ÔÚÒýºÅÖмä
showstukc.stukcado.RecordSource = "select XS.ѧºÅ,XS.ÐÕÃû,KC.¿Î³ÌÃû,XSKC.³É¼¨,KC.רҵ from XS,XSKC,KC where XSKC.¿Î³ÌÃû=KC.¿Î³ÌÃû and XSKC.רҵ=KC.רҵ and XS.ѧºÅ='" + stuado.Recordset.Fields("ѧºÅ") + "'"
showstukc.stukcado.Refresh
Set showstukc.studg.DataSource = showstukc.stukcado
showstukc.Show
End Sub
ÎÒÔËÐв»ÕýÈ·£¬VBÏÔʾʵʱ´íÎó424£¬ÒªÇó¶ÔÏ󣬿ÉÊÇÎÒ²»ÖªµÀÄÄÀï³öÏÖÎÊÌâÁË£¬¸÷λ´óϺ°ï°ïÎÒ°É£¬ÏÖÔÚ¶¼¼±µÃÎÒÕâôÍíÁË˯²»×ŽÌѽ~~
ÄÄÒ»¾ä³ö´í£¿
.net ϲ»ÊǺÜÊì
Set showstukc.studg.DataSource = showstukc.stukcado
¶ÔÂð£¿
»¹ÕæÊǶþ¥˵µÄÄÇÑù°¡£¬È·ÊµÊǿؼþÃû²»Ò»Ö£¬ÎÒ¸ÄÁËһϣ¬³ÉÁË~~
²»¹ýÏÖÔÚÓÖÓÐÎÊÌâÁË£¬Âé·³Äã°ï濴һϰɣ¬Ð»Ð»ÁË0.0
Dim sqlstr As String
Publ
Ïà¹ØÎÊ´ð£º
sql 2005Êý¾Ý¿âÎÒÏëµÃµ½Ò»×Ö·û´®Îª:
sldkf|||sdeww
erkv|||rltdk
jemcl|||ligf
¾ÍÊÇ|||ºóÃæµÄ×Ö·ûÓÐʲôº¯ÊýÄܵõ½Âð£¿ÊÇÔÚsqlÓï¾äдµÄ£¬²»ÊÇÔÚÒ³ÃæÐ´µÄ£¬ÄÇλ¸ßÊÖÀ´Ö¸½ÌÏ£¬ÐÂÊÖ£¬Ð»Ð»
ÔÎ µ ......
³¡¾°ÈçÏ£º
¿Í»§°Ñ±¸·ÝºÃµÄÊý¾Ý¿â£¬·¢¸øÎÒ£¬ÎÒÔÚ±¾»ú»¹Ôºó£¬ÔËÐÐдºÃµÄ´æ´¢¹ý³Ì£¬±È½Ï¿ì£¬²¢ÇÒÔÚʵʩÄDZßÔËÐÐͬÑù±È½Ï¿ì¡£µ«Êǵ±ÊµÊ©ÔÚ¿Í»§ÄDZßÔËÐеÄʱºòËٶȾͷdz£µÄÂý£¬Ê±¼ä³¬³öÁ˳ÌÐòµÄʱ¼äÏÞÖÆ¡£Ô¶³ÌÔÚ¿Í»§ÄÇ ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
¿ÉÄÜÒòΪ¹¤×÷µÄÔÒò ½Ó´¥Êý¾Ý¿âÕâ¿é±È½ÏÉÙ£¬Ö®Ç°¶¼ÊÇ×ö³ÌÐòÕâ¿é£¬Êý¾Ý¿âÕâ¿é¶¼ÓÐרÃŵÄÈËÀ´×ö ·Ö¹¤¶¼ºÜÃ÷ϸ ËùÒÔ¶ÔÊý¾Ý¿âÕâÒ»¿éÍêÈ«²»Á˽⡣ǰ¶Îʱ¼ä È¥ÃæÊÔÁ˼¸¼Ò¹«Ë¾ ¼¸ºõ¶¼ÊÇÔÚÊý¾Ý¿âÕâ¿é¹ÒµôµÄ Á¬¸ö¼òµ¥µÄSQ ......