vbÁ¬½ÓACCESSÊý¾Ý¿âinsert intoÎÊÌâ

´úÂëÈçÏ£º
Dim cn1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim dogid As Integer
            dogid = 11602
            cn1.Open "Driver={Microsoft Access Driver (*.mdb)};
            DBQ=e:\data\data\hf2.mdb"
            Set rs1 = cn1.Execute("insert into ¼ÓÃܹ·ID values (dogid,0,'""','""')")
            cn1.Close
³öÏֵĴíÎóÊDzÎÊý²»×㣬ÆÚ´ýÊÇÒ»
´Ë ¼ÓÃܹ·ID ±í Ç°Á½¸öÁÐÊÇÊýÖµÐÍ£¬ºóÁ½¸öÊÇÕûÐÍ

ΪºÎ»á³öÏÖÕâÖÖ´íÎóÄØ

---

Set rs1 = cn1.Execute("insert into ¼ÓÃܹ·ID values (dogid,0,'""','""')")
ɾ³ýSet rs1 =

---

Â¥ÉϵÄÐֵܣ¬»¹ÊDz»ÐУ¬²»¹ý»¹ÊÇллÄãµÄ°ïæÁË

---

¡­¡­Äã°ÑinsertÓï¾äÇ°ºóµÄÀ¨ºÅÈ¥µô

---

ÕûÐÍÒ²ÊÇÊýÖµÐÍ.
Set rs1 = cn1.Execute("insert into ¼ÓÃܹ·ID(×Ö¶ÎÃû1,×Ö¶ÎÃû2) values (dogid,0)")

---

ÕûÐͲ»ÓÃ'' ,ÉÏÃæµÄд·¨ÊÇÖ¸¶¨ÐèҪдÈëµÄ×Ö¶Î.·ñÔò¿ÉÒÔд:
Set rs1 = cn1.Execute("insert into ¼ÓÃܹ·ID values (dogid,0,0,0)")
ÕâÑùºóÃæĬÈÏÌí¼ÓÁËÁ½¸ö0

---

http://download.csdn.net/source/1498324