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 ÒªÇó·¢»õÈÕÆÚ>½ñÌìÈÕÆÚ
Ïà¹ØÎÊ´ð£º
ÓÐÒ»¸öÊý¾Ý¿âÀïÖ»ÓÐ2WÌõÊý¾Ý²»µ½£¬È´ÓÐ500MÄÇô´ó,Ôõô»ØÊ°¡£¿ÊÇACCESSµÄÊý¾Ý¿â¡£ºóÀ´ÎÒ°ÑACCESSµ¼Èëµ½MSSQLÖУ¬Ò²Õ¼ÓÃÁË500M×óÓҵĿռ䣬Èç¹ûѹËõÊý¾Ý¿âÄØ£¿Çë¸ßÊÖÖ¸µã
ѹËõÊý¾Ý¿â£¿ÄÜ×öµ½Ã´...
ÆÚ´ý¸ßÈËÖ¸µã ÎÒ ......
rt£¬ÎÒÊÔÁËÍøÉÏÖ±Á¬AccesÊý¾Ý¿âµÄ·½·¨,windowsÏÂûÓÐÎÊÌâ,µ«ÊÇÔÚlinuxϲ»ÐУ¬ËÄܸøµãÌáʾ£¿Ð»Ð»
ÄãÔõôÁ¬µÄ£¿
AccesÊý¾Ý¿â..
ÄãÔõôÁ·µÄÄØ£¿
Java code:
static String DBDRIVER = "sun.jd ......
ÎÒÊÖ¶¯Ìí¼Ó»ùÓÚCRecordSetÀàµÄÅÉÉúÀàCODBCDemoSetÀà,ÊÇÀûÓÃclass wizardÌí¼ÓµÄ¡£²¢ÇÒ¶¨ÒåÁËÒ»¸öÈ«¾Ö±äÁ¿CODBSDemoSet*m_pCommon.µ«ÊÇÎÒ³ÌÐò²»ÄÜÔËÐС£ÎÒ¸ú×ÙÁËһϣ¬µ½ÁËm_pCommon->Isopen£¨£©´¦·¢Éú´íÎ󣬣 ......
¸Õ¸Õ½Ó´¥VB.NET£¬¶Ô.NET»ù±¾Ê²Ã´Ò²²»¶®£¬Çë¸ßÊÖ¸øÒ»¶Î½ÏÍêÕû´´½¨accessÊý¾Ý¿âµÄʾÀý´úÂ룬ÈÃÎÒѧϰһÏ¡£
Ëùν½ÏÍêÕû´´½¨Êý¾Ý¿âʱ¶¨Òå¸÷¸ö×Ö¶ÎÀàÐ͵ıíʾ·½·¨£¬ÈçÕûÊýÐÍ£¬¸¡µãÐÍ£¬×Ö·ûÐÍ£¨¶¨Ò峤¶ÈÈçºÎ±íʾ£©¡£Ð»Ð» ......