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
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
ÄÄÀï³ö´íÁË£¬Êä³öÕâÑùµÄ½á¹û£¿£¿
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......