VB 6.0 SQL Êý¾Ý¿â¸üÐÂÎÊÌâ
¸÷λ´óÏÀ СµÜÔÙ´ÎÓöµ½Ò»¸öÎÊÌ⣬Ê×ÏÈ£¬ÎÒÔÚÊý¾Ý¿âÖн¨Á¢ÁËÁ½Õűí tbs_xsqf(ѧÉúÇ··Ñ)ºÍtbs_xsxx£¨Ñ§ÉúÐÅÏ¢£©£¬tbs_xsqf±í×ֶΣºID name money tbs_xsxx±í×ֶΣºID name class money ÎÒÏëʵÏֵŦÄÜÊÇÈà tbs_xsxx±íÖеÄmoneyµÈÓÚtbs_xsqf±íÖеÄmoney ÎÒÔÚдSQLÓï¾ä¿ÉÒÔʵÏÖÕâ¸ö¹¦ÄÜ¡£¶øÔÚVBÖв»ÖªµÀÔõôд´úÂ룬SQLÓï¾äÈçÏ£º SQL code: update tbs_xsxx set money=tbs_xsqf.money1 from tbs_xsxx inner join tbs_xsqf on tbs_xsxx.name=tbs_xsqf.name лл¸÷λÁË£¡
лл1#£¡£¡ ¹¦ÄÜÒѾʵÏÖ£¡£¡£¡ ½áÌù×ßÈËÒýÓà Dim cn As New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\tyq.mdb;Persist Security Info=False;" sql= "update tbs_xsxx set money=tbs_xsqf.money1 " _ & "from tbs_xsxx inner join tbs_xsqf on tbs_xsxx.name=tbs_xsqf.name " cn.Execute sql 1Â¥ÕýÈ·
Ïà¹ØÎÊ´ð£º
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»Áß´Í½Ì 1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£ Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯ Picture1.Left = -HScroll1.Value + bcW ' ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ 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 ......
ÎÒÓÐÒ»¸ö±í£¬½á¹¹ÊÇÕâÑù¡£ ת³ö µ¥Î» תÈ뵥λ ±ÊÊý ½ð¶î date(Ö÷) outid(Ö÷) inid(Ö÷) num amt 2009 1 2 1 500 Ϊ 1 µ¥Î» ÔÚ2009Ä ......
±¾ÈËʹÓõÄÊÇVB6.0°æ±¾ ¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬 A.B1,A.B2,... µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......
<table style="width: 1000px"><tr> <td style="height: 38px; width: 35px;"> ÐÕÃû</td> ......