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

ÎÄÕª¡¶'excelµ¼Èëaccess¡·

'excelµ¼Èëaccess ,ÒýÓÃADO
Private Sub Command1_Click()
    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    On Error Resume Next
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\dbemp.mdb;" & "Persist Security Info=False"
    conn.Open
    conn.Execute "Drop Table [Emptable]"
    conn.Close
    ExportExcelSheetToAccess "Sheet1", "D:\Test.xls", "Emptable", "D:\dbemp.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")
    Call db.Execute("Select * into [;database=" & sAccessDBPath & "]." & sAccessTable & " from [" & sSheetName & "$]")
    MsgBox "µ¼Èë³É¹¦£¡", vbInformation, "Ìáʾ"
    'ReShow
End Sub
±¾ÎÄÀ´×ÔCSDN²©¿Í£¬×ªÔØÇë±êÃ÷³ö´¦£ºhttp://blog.csdn.net/asftrhgjhkjlkttttttt/archive/2009/12/01/4914132.aspx


Ïà¹ØÎĵµ£º

AccessµÄ×ªÒÆ×Ö·û

AccessÖÐÊý¾Ý¿âתÒå×Ö·û¹æÔò£º
 
²åÈë¡¢¸üС¢=Æ¥Åä Êý¾Ýʱ£¬Îı¾ÀàÐÍÈçÓÃ''À¨ÆðÀ´£¬Öмä¿ÉÒÔÓÐ ",*,%,[,],\,/,?,(,),{,}µÄÈÎÒâ×éºÏ£¬ÈçÒª²åÈëÒ»¸ö',Ðèд''²¢ÔÚÕû¸ö±í´ïʽÍâÌ×Ò»¶Ô''
È磬²åÈë 'ÕÅ''Èý',Êý¾Ý¿âÀï¾ÍÊÇ ÕÅ'Èý£¬Ó÷½À¨ºÅÊDz»¿ÉÒÔµÄ
 
²åÈë¡¢¸üС¢=Æ¥Åä Êý¾Ýʱ£¬Îı¾ÀàÐÍÈçÓÃ""À¨ÆðÀ´£¬Öмä¿ÉÒÔ ......

VC++ÖÐʹÓÃADO·½Ê½²Ù×÷ACCESSÊý¾Ý¿â(×ªÔØ)

VC++ÖÐʹÓÃADO·½Ê½²Ù×÷ACCESSÊý¾Ý¿â
×ªÔØ£ºhttp://www.programbbs.com/doc/3078.htm
ADO(ActiveX Data Object)ÊÇMicrosoftÊý¾Ý¿âÓ¦ÓóÌÐò¿ª·¢µÄнӿڣ¬Êǽ¨Á¢ÔÚOLE DBÖ®Éϵĸ߲ãÊý¾Ý¿â·ÃÎʼ¼Êõ£¬¼´Ê¹Äã¶ÔOLE DB£¬COM²»Á˽âÒ²ÄÜÇáËɶԸ¶ADO,ÒòΪËü·Ç³£¼òµ¥Ò×Óã¬ÉõÖÁ±ÈÄãÒÔÍùËù½Ó´¥µÄODBC API¡¢DAO¡¢RDO¶¼ÒªÈÝÒ×ʹÓ㬲¢² ......

ʹÓÃwxWidgetsµÄODBCÁ´½ÓACCESSÊý¾ÝÔ´

    ѧϰwxWidgetsµÄʱºòÏëÓÃËüÁ¬½ÓÊý¾Ý¿â£¬²»¹ýwxWidgetsµÄѧϰ×ÊÁϷdz£ÉÙ£¬ºÍODBCÓйصľ͸üÉÙ£¬ÍøÂçÉÏÕÒµ½µÄ¶¼²»ÖªµÀΪʲôÎÞ·¨ÕýÈ·ÔËÐС£ÕâÊÇÔÚCSDNÉÏÅóÓѵİïÖúϸ㶨µÄ£¬×Ô¼ºÑéÖ¤¹ý¿ÉÒÔÕýÈ·±àÒëºÍÔËÐС¢³É¹¦¶ÁÈ¡Êý¾ÝÄÚÈݵĴúÂ룺
    wxWidgets°æ±¾£º2.8.10£¨2.9ÒÔºóµÄ°æ±¾²»Ö§³ÖODBC ......

AccessÊý¾Ý¿â²Ù×÷Àà

AccessÊý¾Ý¿â²Ù×÷ÀàAccessHelper
using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using System.Data.OleDb ......

using OPENDATASOURCE Select Access Data Base data

ÔÚSQL Server ÄÚ²éѯAccess Êý¾Ý, ²¢½«Êý¾Ý±£´æµ½SQL Server
'Jet OLEDB:Database Password=; /*Access ÃÜÂë*/
Data Source=C:\temp\Test.mdb; /*Access Êý¾Ý¿â·¾¶*/
Password=;/*Access¹¤×÷×éÃÜÂë*/
1. ²éѯAccess ±íÄÚËùÓÐÊý¾Ý
SELECT *
from OPENDATASOURCE
('Microsoft.Jet.OLEDB.4.0',
'Jet OLEDB:Database ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ