ÎÄÕª¡¶'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ÖÐÊý¾Ý¿âתÒå×Ö·û¹æÔò£º
²åÈë¡¢¸üС¢=Æ¥Åä Êý¾Ýʱ£¬Îı¾ÀàÐÍÈçÓÃ''À¨ÆðÀ´£¬Öмä¿ÉÒÔÓÐ ",*,%,[,],\,/,?,(,),{,}µÄÈÎÒâ×éºÏ£¬ÈçÒª²åÈëÒ»¸ö',Ðèд''²¢ÔÚÕû¸ö±í´ïʽÍâÌ×Ò»¶Ô''
È磬²åÈë 'ÕÅ''Èý',Êý¾Ý¿âÀï¾ÍÊÇ ÕÅ'Èý£¬Ó÷½À¨ºÅÊDz»¿ÉÒÔµÄ
²åÈë¡¢¸üС¢=Æ¥Åä Êý¾Ýʱ£¬Îı¾ÀàÐÍÈçÓÃ""À¨ÆðÀ´£¬Öмä¿ÉÒÔ ......
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µÄʱºòÏëÓÃËüÁ¬½ÓÊý¾Ý¿â£¬²»¹ýwxWidgetsµÄѧϰ×ÊÁϷdz£ÉÙ£¬ºÍODBCÓйصľ͸üÉÙ£¬ÍøÂçÉÏÕÒµ½µÄ¶¼²»ÖªµÀΪʲôÎÞ·¨ÕýÈ·ÔËÐС£ÕâÊÇÔÚCSDNÉÏÅóÓѵİïÖúϸ㶨µÄ£¬×Ô¼ºÑéÖ¤¹ý¿ÉÒÔÕýÈ·±àÒëºÍÔËÐС¢³É¹¦¶ÁÈ¡Êý¾ÝÄÚÈݵĴúÂ룺
wxWidgets°æ±¾£º2.8.10£¨2.9ÒÔºóµÄ°æ±¾²»Ö§³ÖODBC ......
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 ......
ÔÚ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 ......