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
Ïà¹ØÎÊ´ð£º
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
ÎÒ½«Ò»¶Î4000À´×ÖµÄÎı¾¸³Öµ¸øËüÔõô¾Í³ö´íÁË,ÌáʾÔËÐÐʱ´íÎó2176 Õâ¸öÊôÐÔµÄÉèÖÃֵ̫³¤?
ÄãÊÇÔõÑù¸³ÖµµÄ£¿
²âÊÔÁËһϣ¬Óñ¸×¢×ֶθøÎı¾¿ò×öÊý¾ÝÔ´£¬Ã»ÓÐÌáʾÉèÖÃֵ̫³¤,14893×Ö·û
ÒýÓÃÎÒ½«Ò»¶Î4000À´×ÖµÄÎ ......