Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎÊ´ð£º

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

Access²éÕÒÖØ¸´ÎÊÌâ - ÆäËûÊý¾Ý¿â¿ª·¢ / Access

ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......

ASP+ACCESSÊä³öÎÊÌâ - Web ¿ª·¢ / ASP

ÄÄÀï³ö´íÁË£¬Êä³öÕâÑùµÄ½á¹û£¿£¿
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ