¿ÞÁË£¡¹ØÓÚEXCELµ¼ÈëACCESSµÄÎÊÌ⣡
°¦£¬ÓÉÓÚ²»É÷£¬²Ù×÷´ò°üÈí¼þµÄʱ¼ä°ÑÎÒ×öµÄϵͳŪ¶ªÁË£¬ÕæÊÇÎÞÄΣ¬ÏÖÔÚÓгöÏÖеÄÎÊÌâÁË£¬ÒÔǰ»¹ºÃºÃµÄ£¬ÕâÊÇÎÒ½«ECXELµ¼ÈëACCESSµÄ´úÂë¡£
Private Sub Command1_Click()
ExportExcelSheetToAccess "Sheet1", "D:\¹Ü¼Ó³µ¼äÐÅϢϵͳ\guanjiaxitong.xls", "xinxi", "D:\¹Ü¼Ó³µ¼äÐÅϢϵͳ\db1.mdb"
End Sub
Private Sub ExportExcelSheetToAccess(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(sExcelPath, True, False, "Excel 8.0;IMEX=1")
Call db.Execute("Delete from [;database=" & sAccessDBPath & "]." & sAccessTable)
Call db.Execute("Insert into [;database=" & sAccessDBPath & "]." & sAccessTable & " Select * from [" & sSheetName & "$]")
MsgBox "Table exported successfully.", vbInformation, "Yams"
End Sub
ÒÔǰµÄÊý¾ÝΪʲô¿ÉÒÔÅúÁ¿µ¼È룬ͬÑùµÄ´úÂëÊý¾ÝΪʲô²»ÄÜÅúÁ¿µ¼È룬ÏÖÔÚÖ»Äܵ¼ÈëÒ»ÌõÊý¾Ý£¬ÎÒÕæÊÇÎÞÄÎÁË£¬ÓôÃÆËÀÁË¡£Ï£Íû´ó¼ÒÄܰïæ½â¾öÏ£¬ÕâÊÇ×îºóÒ»µã·ÖÁË¡£
²âÊÔûÓÐÎÊÌ⣬¿´Êý¾ÝÄÄÀïÓÐÊ²Ã´ÌØÊâ
ûÓÐʲôµØ·½ÌØÊâµÄ£¬¾ÍÊÇÓÐЩµØ·½Êý¾ÝºÍ×Ö·û»ìºÏ¡£
Õâ¸öÎÊÌâ±È½Ï¸´ÔÓ,ÈçÐèÒªexcelÊý¾ÝÓë¿â±íÖеÄ×Ö¶ÎÀàÐÍÒ»ÖÂ;excelÖÐÓÐûÓÐÌØÊâ¸ñʽ;¹
Ïà¹ØÎÊ´ð£º
access ÖÐÖ´ÐÐsql updateÓï¾äʱÓÐʱºò³É¹¦ÓÐʱºò²»³É¹¦£¬µ«ÊÇaccessÖв»³ö´íÎóÐÅÏ¢£¬²»ÖªµÀÊÇʲôÔÒò£¬ÓÐÄÄλ´óÏÀÖªµÀ£¬Çë°ïæ°¡
ÌùSQLÓï¾ä£¬¼ì²é±í¡¢×ֶεÄÓÐЧÐÔÉèÖÃ
sql ÔÚ²éѯ·ÖÎöÆ÷ÀïÃæ Ö´ÐкÜÕý³£
ÊÇ ......
ÎÒµÄÊý¾Ý¿âÊǼòÌåsqlserver2000 ,ÎÒÏëÔÚ·±ÌåaccessÏÂÁ¬½Ó,ͨ¹ýodbcÊÇ¿ÉÒÔÁË,µ«ÔÚaccessϳöÏÖ´ò¿ªµÄ±íÈ«ÖÐ"#ÒÑɾ³ý"
²»ÖªµÀÒªÔõô²Ù×÷²Å¿ÉÒÔÓÃACCESS·±ÌåÁ¬½Ó¼òÌåsqlserver2000.лл!!!
´ó¼Ò¶¼ ......
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
×î½ü×¼±¸Îª¹«Ë¾ÍøÕ¾ÓÃVB×ö¸ö²úƷչʾÉú³É£¬Éú³É²¿·Ö»ù±¾Ã»ÎÊÌ⣬
ÎÊÌâ³öÏÖÔÚ²éѯ²¿·Ö£¬Ê¹ÓÃÁËMSHFelxGrid(DATAGrid²»ÄÜÂú×ã²Ù×÷ÐèÇó)£¬±¾À´ÒÔΪÊÕ¹¤ÁË£¬×òÌìÔٴβâÊÔµÄʱºò·¢ÏÖÁËÒÔÏÂÎÊÌâ
µ±Êý¾Ý¿â×Ö¶ÎÎ ......
×î½ü×¼±¸Îª¹«Ë¾ÍøÕ¾ÓÃVB×ö¸ö²úƷչʾÉú³É£¬Éú³É²¿·Ö»ù±¾Ã»ÎÊÌ⣬
ÎÊÌâ³öÏÖÔÚ²éѯ²¿·Ö£¬Ê¹ÓÃÁËMSHFelxGrid(DATAGrid²»ÄÜÂú×ã²Ù×÷ÐèÇó)£¬±¾À´ÒÔΪÊÕ¹¤ÁË£¬×òÌìÔٴβâÊÔµÄʱºò·¢ÏÖÁËÒÔÏÂÎÊÌâ
µ±Êý¾Ý¿â×Ö¶ÎΪ¡ ......