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

¿ÞÁË£¡¹ØÓÚ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²éÕÒÖظ´ÎÊÌâ - ÆäËûÊý¾Ý¿â¿ª·¢ / Access

ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖظ´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖظ´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......

MSHFelxGrid Óë ACCESS MEMOÀàÐÍ×ֶεÄÒÉÎÊ

×î½ü×¼±¸Îª¹«Ë¾ÍøÕ¾ÓÃVB×ö¸ö²úƷչʾÉú³É£¬Éú³É²¿·Ö»ù±¾Ã»ÎÊÌ⣬
ÎÊÌâ³öÏÖÔÚ²éѯ²¿·Ö£¬Ê¹ÓÃÁËMSHFelxGrid(DATAGrid²»ÄÜÂú×ã²Ù×÷ÐèÇó)£¬±¾À´ÒÔΪÊÕ¹¤ÁË£¬×òÌìÔٴβâÊÔµÄʱºò·¢ÏÖÁËÒÔÏÂÎÊÌâ

µ±Êý¾Ý¿â×Ö¶ÎΪ¡ ......

ʹÓÃRepeater¶ÁÈ¡access±í£¬Ò³Ãæ´ò¿ª·Ç³£Âý

accessÊý¾Ý¿â£¬Ö±½ÓʹÓà select ×ֶΠfrom ±í  ¶ÁÈ¡Êý¾Ý
È»ºóÔÚÒ³ÃæÖÐʹÓÃRepeaterÀ´ÏÔʾ
ÕâÕűíÓÐ2000ÌõÊý¾Ý£¬ËùÒÔÒ³Ãæ´ò¿ªµÄºÜÂý
Çë½Ì¸÷λÅóÓÑ£¬ÓÐûÓа취½â¾ö£¬Ìá¸ßµãËٶȣ¡
Ò»´ÎÈ«²¿¶ÁÍê ......

AccessÖпÉÒÔ²åÈëʱ±È×îСֵСÓÚ1Âð£¿

ÎÒÕâÑùдδָÃ÷µÄ´íÎó£º
SQL code:
((select min(pview) from DSolution)-1)

select min(pview)-1 from DSolution

ÒýÓÃselect min(pview)-1 from DSolution

Õý½â¡£

insert into table1 (myvale ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ