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Êý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
ÎÊÌ⣱
ÎÒÓÃADOÁ¬½ÓÉèÁËÓû§ÃûÃÜÂëµÄÊý¾Ý¿â
µ«ÊÇÎÒ·¢ÏÖÎÒ²»ÊäÈë Óû§ÃûºÍÃÜÂë ¶¼¿ÉÒÔÁ¬½Ó³É¹¦ ¶øÇÒ»¹ÄܰÑÊý¾Ý¶Á³öÀ´
¼ôÁËÒ»¸öÃûΪtestÊý¾Ý¿â ½¨ÁËÒ»¸öÃûΪpeopleµÄ±í
¼ûÁËÒ»¸ö Óû§Ãû1234 ÃÜÂë1234 µÄ ......
´ó¼Ò°ïÏÂæÁË
Çë½ÌÒ»¸öSQL²éѯµÄÎÊÌâ
±ÈÈçÎÒÏÖÔÚ²éѯ
SELECT * from XS WHERE רҵÃû='¼ÆËã»ú'
²éѯÍê³ÉÖ®ºóÎҿɲ»¿ÉÒÔÔÚÉϴβéѯµÄ»ù´¡Ö®ÉÏÔÚ½øÐÐÏà¹Ø²éÑ¯ÄØ£¿
±ÈÈçÎÒÔÚ²éÍê¼ÆËã»úרҵµÄËùÓÐѧÉúÖ®ºó£¬Ïë²é³ö¼ ......
ÎÒÔÚaccessÖд´½¨Ò»¸ö±í..ÎÒÔõô»ñÈ¡ËûµÄ´´½¨Óï¾ä..
ÎÒÖ÷ÒªÊÇÏë»ñÈ¡ËûµÄ´´½¨Óï¾äÓÃÓÚCMSµÄ°²×° »òÕßÔÚsqlserverÖа²×°ÓÃÓÃ..
VB code:
CreateDatabase Method Example
This example uses CreateDatabase to ......