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Êý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
ÎÒ×öÁËÒ»¸öС³ÌÐò£¬ÏëʵÏֵŦÄܾÍÊÇÔÚÎı¾¿òÖÐÊäÈëÐÕÃû£¬µã»÷²éѯ°´Å¥£¬¾ÍÄܲ鵽ACCESSÊý¾Ý¿âÖдËѧÉúµÄÐÅÏ¢£¨±àºÅ£¬ÐÕÃû£¬ÐÔ±ð£¬ÄêÁ䣩¿ÉÎÒ²»ÖªµÀÓï·¨¸ñʽ£¬ÎÒ×Ô¼ºÐ´µÄÓï¾äµ÷ÊÔÄÜͨ¹ý£¬¿ÉÊÇÔËÐÐʱ³ö´í£¨µã»÷²éѯ°´ ......