ÎÄÕª¡¶'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ÓëSqlServerÊý¾ÝÀàÐÍ±È½Ï Microsoft Access Êý¾ÝÀàÐÍ SQL Server Êý¾ÝÀàÐÍ ÊÇ/·ñ£¬£¨0ºÍ-1£©
1 룬²»ÔÊÐíÓÐ Null Öµ¡£ bit(1¡¢0 »ò NULL) Êý×Ö£¨×Ö½Ú£©£ ......
ÊìϤSQL SERVER 2000µÄÊý¾Ý¿â¹ÜÀíÔ±¶¼ÖªµÀ£¬ÆäDTS¿ÉÒÔ½øÐÐÊý¾ÝµÄµ¼Èëµ¼³ö£¬Æäʵ£¬ÎÒÃÇÒ²¿ÉÒÔʹÓÃTransact-SQLÓï¾ä½øÐе¼Èëµ¼³ö²Ù×÷¡£ÔÚTransact-SQLÓï¾äÖУ¬ÎÒÃÇÖ÷ҪʹÓÃOpenDataSourceº¯Êý¡¢OPENROWSET º¯Êý£¬¹ØÓÚº¯ÊýµÄÏêϸ˵Ã÷£¬Çë²Î¿¼SQLÁª»ú°ïÖú¡£ÀûÓÃÏÂÊö·½·¨£¬¿ÉÒÔÊ®·ÖÈÝÒ×µØÊµÏÖSQL SERVER¡¢ACCESS¡¢EXC ......
ÔÒò£ºIISûÓÐ×¢²á
½â¾ö°ì·¨£º
ÔÚCMDÖнøÈëĿ¼C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727£¬ÔËÐÐaspnet_regiis
1¡¢aspnet_regiis -ga administrator£¨administratorΪµ±Ç°Óû§£©
2¡¢aspnet_regiis -i £¨×¢²áIIS£©
3¡¢iisreset /noforce £¨ÖØÆôIIS£©
²Ù×÷Ïêϸ£º
C:\Documents and Settings\Administrator>cd ......
·Ö²¼Ê½(Distributed)Êý¾Ý·ÃÎʲã(Data Access Layer)(ÒÔϼò³ÆDAL)ÊÇ×ÛºÏMySQL Proxy¡¢Memcached¡¢¼¯ÈºµÈµÈ¼¼ÊõÓÅµã¶ø¹¹½¨µÄÒ»¸öÈí¼þϵͳ¡£Ä¿µÄÊÇΪÁ˽â¾öÔÚ¹¹½¨´óÖÐÐÍÍøÕ¾Ê±Óöµ½µÄºÍÊý¾Ý·ÃÎÊÓйصÄÖî¶àÎÊÌ⣬ÈçÔõôʹµÃÇпâ·Ö±í͸Ã÷»¯£¬ÈçºÎʹµÃ»º´æ´æÈ¡Çå³ý×Ô¶¯»¯£¬ÔõÑù²ÅÄܸüºÃµØ·ÀÖ¹·þÎñµ¥µã¹ÊÕÏµÈµÈ ......
mysql Ã÷Ã÷ÒѾװºÃÁË£¬µ«ÊÇÎÞ·¨·ÃÎÊ¡£Á´½ÓµÄʱºò ×ÜÊÇ˵
Access Denied.
½â¾ö·½·¨£º
ÓÃmysqld --skip-grant-tableÆô¶¯mysql
È»ºóÔÚmysql¿âÖÐÖ´ÐÐÕâ¸ö
INSERT INTO user VALUES ('localhost', 'root', PASSWORD('some_pass'), 'Y','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y', 'Y', ......