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

Access導³öExecl

VB+Access×öµÄϵ統£¬
Ôõ樣°Ñ數據庫Access內ÈÝ導³öexecl£¿
ÏÖÔÚû¶«Î÷ÊÔ£¬´ÓÍøÉÏÕÒÁ˶δúÂëÄã¿´¿´
VB code:

Private Sub ExportOneTable()

'EXPORTS TABLE IN ACCESS DATABASE TO EXCEL
'REFERENCE TO DAO IS REQUIRED

Dim strExcelFile As String
Dim strWorksheet As String
Dim strDB As String
Dim strTable As String
Dim objDB As Database

'Change Based on your needs, or use
'as parameters to the sub
strExcelFile = "C:\My Documents\MySpreadSheet.xls"
strWorksheet = "WorkSheet1"
strDB = "C:\My Documents\MyDatabase.mdb"
strTable = "MyTable"

Set objDB = OpenDatabase(strDB)

'If excel file already exists, you can delete it here
If Dir(strExcelFile) <> "" Then Kill strExcelFile

objDB.Execute _
"SELECT * INTO [Excel 8.0;DATABASE=" & strExcelFile & _
"].[" & strWorksheet & "] from " & "[" & strTable & "]"
objDB.Close
Set objDB = Nothing

End Sub





http://download.csdn.net/source/1483928

ÒýÓÃ
http://download.csdn.net/source/1483928

TKS!


ÒýÓÃ
http://download.csdn.net/source/1483928

ÓÐ問༺


Ïà¹ØÎÊ´ð£º

asp¸úAccessÊý¾ÝÁ¬½ÓÎÊÌâ¡£

IsSqlDataBase = 0 'Ö÷Êý¾Ý¿âÀàÐÍ(1=SQL£¬0=AC)

'===========================================================================
SqlDatabaseName = "ads365" 'Ö÷Êý¾Ý¿âÃû
S ......

vbÓëaccessÊý¾Ý¸üеÄÎÊÌâ

Ò»¸ö³ÌÐò£¬Á½¸ö´°¿Ú£¬Ò»¸öÓÃÀ´¸ü¸Äaccess±íÊý¾Ý£¨Form1£©,ÁíÒ»¸ö´°¿ÚÓиöcombo1ÓÃÀ´ÏÔʾÊý¾Ý(Form2)¡£form2ÓÐÒ»¸ö°´Å¥(command1)ÓÃÀ´´ò¿ªform1¡£ÏÖÔÚÎÒÏÈ´ò¿ªform2£¬combo1¶ÁÈ¡³öÊý¾Ý£¬µã»÷command1´ò¿ªform1,¸ü¸ÄÊý ......

VB Óë Access ʵÏÖ°à×é¡¢ÈÕ¡¢Ô¡¢Ä걨±íÎÊÌâ

±¾È˳õ´Î½Ó´¥£¡±È½ÏÄ£ºý£¡Ï£Íû´ó¼Ò¿ÉÒ԰ѶÔMicrosoft Office AccessµÄ±í²Ù×÷³£ÓÃÃüÁî ¸æÖ®£¡
»¹ÓÐÎÒÏëʵÏÖ°à×é¡¢ÈÕ¡¢Ô¡¢Ä걨Microsoft Office AccessÀïµÄ±íµ¥Ôõô´¦Àí£¿

ÊÇÀûÓò»Í¬µÄ±í·Ö±ð¼Ç¼Сʱ°à×éÈ ......

ACCESSÖн¨Á¢Çл»±íµ¥Ê±Óöµ½ÎÊÌâ ÔÚÏßµÈ

ACCESSÖн¨Á¢Çл»±íµ¥,
µã»÷ ¹¤¾ß/×ÊÁϿ⹫ÓóÌʽ/Çл»±íµ¥¹ÜÀíÔ± ºó
Ìáʾ£ºMicrosoft office accessÎÞ·¨½¨Á¢visual basicÄ£×飡
µ½µ×ÊdzöÁËʲ÷áÎÊÌâÄØ£¿
µÚÒ»´ÎÕâÑù½¨Á¢Çл»±íµ¥ÊÇ¿ÉÒԵ쬵«ÊÇÓÉÓÚÓÐ ......

Access Êý¾ÝÉýǨµ½ SQLServer2005

ÎÒÔ­±¾ÊÇÓÃACCESSµÄÊý¾Ý¿â£¬ÏÖÔÚ¸ÄÓÃSQLServer2005ÁË£¬ËùÒÔÏë°Ñ֮ǰµÄÊý¾ÝÈ«¶¼µ¼µ½SQLSERVERÀïÀ´¡£
ÏÖÓÐÎÊÌâÈçÏ£º

1:¸ÄÓÃSQLserverºó£¬Êý¾Ý¿âµÄ½á¹¹Óи͝¡£Ô­±¾ÔÚaccessÖÐËùÓеĵ¥¾ÝÓÃÒ»¸ö¡°µ¥¾ÝÐÅÏ¢¡±Ö ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ