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

accessÊý¾Ý²åÈëʱ´íÎó

Dim myConn1 As String = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source=E:\ÏîÄ¿\»ù±¾Êý¾Ý¿â.mdb"
Dim myConn As OleDbConnection = New OleDbConnection(myConn1)
myConn.Open()
Dim strInsert As String = "INSERT INTO ÒѾ­·¢»õ±í1(¿Í»§Ãû,ÒÇÆ÷Ãû,»úÏä,¹¦ÄÜ,ÊýÁ¿,ϵ¥ÈÕÆÚ,ÒѾ­·¢»õÈÕÆÚ) SELECT »ù±¾Êý¾Ý±í1(¿Í»§Ãû,ÒÇÆ÷Ãû,»úÏä,¹¦ÄÜ,ÊýÁ¿,ϵ¥ÈÕÆÚ,ÒѾ­·¢»õÈÕÆÚ) from »ù±¾Êý¾Ý±í1 WHERE DATEDIFF('d',»ù±¾Êý¾Ý±í1.ÒªÇó·¢»õÈÕÆÚ,»ù±¾Êý¾Ý±í1.½ñÌìÈÕÆÚ)<0"
Dim inst As OleDbCommand = New OleDbCommand(strInsert, myConn)
inst.ExecuteNonQuery()

myConn.Close()


´íÎóÌáʾ£º¡°System.Data.OleDb.OleDbException¡±ÀàÐ͵ÄÒì³£ÔÚ System.Data.dll Öз¢Éú£¬µ«Î´ÔÚÓû§´úÂëÖнøÐд¦Àí

ÆäËûÐÅÏ¢: ²éѯֵµÄÊýÄ¿ÓëÄ¿±ê×Ö¶ÎÖеÄÊýÄ¿²»Í¬¡£

ÇëÎÊÓ¦¸ÃÔõÑùÐ޸İ¡£¿


ÆäʵÕâ¸öÎÊÌâÎÒÒѾ­½â¾öÁË£¬ÊÇÕâÑù½â¾öµÄ£ºDim strInsert As String = "INSERT INTO ÒѾ­·¢»õ±í1(¿Í»§Ãû,ÒÇÆ÷Ãû,»úÏä,¹¦ÄÜ,ÊýÁ¿,ϵ¥ÈÕÆÚ,ÒѾ­·¢»õÈÕÆÚ) SELECT »ù±¾Êý¾Ý±í1(¿Í»§Ãû,ÒÇÆ÷Ãû,»úÏä,¹¦ÄÜ,ÊýÁ¿,ϵ¥ÈÕÆÚ,ÒѾ­·¢»õÈÕÆÚ) from »ù±¾Êý¾Ý±í1 WHERE ÒªÇó·¢»õÈÕÆÚ>½ñÌìÈÕÆÚ


Ïà¹ØÎÊ´ð£º

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 ......

VCÁ¬½ÓACCESSÊý¾Ý¿âÎÊÌâ - VC/MFC / Êý¾Ý¿â

ÎÊÌ⣱
ÎÒÓÃADOÁ¬½ÓÉèÁËÓû§ÃûÃÜÂëµÄÊý¾Ý¿â
µ«ÊÇÎÒ·¢ÏÖÎÒ²»ÊäÈë Óû§ÃûºÍÃÜÂë ¶¼¿ÉÒÔÁ¬½Ó³É¹¦ ¶øÇÒ»¹ÄܰÑÊý¾Ý¶Á³öÀ´
¼ôÁËÒ»¸öÃûΪtestÊý¾Ý¿â ½¨ÁËÒ»¸öÃûΪpeopleµÄ±í 
¼ûÁËÒ»¸ö Óû§Ãû1234 ÃÜÂë1234 µÄ ......

²éѯACCESSÖзûºÏÌõ¼þ¼Ç¼µÄÓï·¨¸ñʽ

ÎÒ×öÁËÒ»¸öС³ÌÐò£¬ÏëʵÏֵŦÄܾÍÊÇÔÚÎı¾¿òÖÐÊäÈëÐÕÃû£¬µã»÷²éѯ°´Å¥£¬¾ÍÄܲ鵽ACCESSÊý¾Ý¿âÖдËѧÉúµÄÐÅÏ¢£¨±àºÅ£¬ÐÕÃû£¬ÐÔ±ð£¬ÄêÁ䣩¿ÉÎÒ²»ÖªµÀÓï·¨¸ñʽ£¬ÎÒ×Ô¼ºÐ´µÄÓï¾äµ÷ÊÔÄÜͨ¹ý£¬¿ÉÊÇÔËÐÐʱ³ö´í£¨µã»÷²éѯ°´ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ