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Â¥ÕýÈ·