Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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Êý¾Ý¿âÓëVB¿ª·¢µÄÈí¼þ½øÐл¥Á¬ÍøÁ¬½Ó

±¾À´ÎÒÊÇÓÃACCESS+VB½¨Á¢Ò»¸öÈí¼þ£¨¾ÖÓòÍø£©£¬ÏÖÔÚÓÉÓڰ칫µØµãÓб䶯£¬Ïà»»³ÉINTERNATµÄ£¬ÓÐûÓа취½â¾ö£¬

ÏóÕâÑùµÄÇé¿ö£¬Èç¹ûÊǹãÓòÍø£¬×îºÃ¸Ä³É£ºB\SµÄ
Èç¹ûÊǾÖÓòÍøµÄ£¬×îºÃ¸Ä³É£ºC\SµÄ
http://downlo ......

ÈçºÎͨ¹ýADOʹÓþۺϺ¯ÊýÀ´²éѯ(Êý¾Ý¿âΪACCESS)

_RecordsetPtr CMyAdo::SelectRecord(string &where, string &tablename,string &field, int way )
{
    int ret = 0;
  _RecordsetPtr pset;
CString  sql;
& ......

ASP+ACCESSÊä³öÎÊÌâ - Web ¿ª·¢ / ASP

ÄÄÀï³ö´íÁË£¬Êä³öÕâÑùµÄ½á¹û£¿£¿
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......

ÇóÖú£º¹ØÓÚAccessÖС¾ÓÐЧÐÔ¹æÔò¡¿ ÔÚÏßµÈ

Access2007ÖÐÓÐÒÔÏÂÁ½¸ö±í¡£
A±í:×Ö¶Î_A1£¬×Ö¶Î_A2
B±í:×Ö¶Î_B1

ÎÒÏëʵÏÖµÄÊÇ£ºÓÃjava³ÌÐò²åÈ롾×Ö¶Î_B1¡¿µÄÖµÖ»ÄÜÊÇ¡¾×Ö¶Î_A1¡¿µÄÖµ£¬·ñÔòÌáʾ´íÎó£¬ÓÐûÓÐÕâÑùµÄÓÐЧÐÔ¹æÔò£¿

×¢£ºÎÒÔÚ¡¾²éÔÄ¡ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ