vbºÍaccessµÄÎÊÌâ
ÈçºÎÓÃvb½â¾öÒÔÏÂÎÊÌ⣺
1¡¢ÈçºÎÓÃvb½¨Á¢Ò»¸ömdbÊý¾Ý¿âÎļþ(3·Ö£©
2¡¢ÔÚ½¨Á¢ºÃµÄÊý¾Ý¿âÖÐÓôúÂ뽨Á¢Êý¾Ý¿â¶ÔÏ󣨱í¸ñ£¬ÊÓͼ£©
3¡¢ÈçºÎÓÃvb´úÂëΪaccessÊý¾Ý¿âÌí¼ÓÓû§ºÍ×é(5·Ö£©
4¡¢ÈçºÎÓÃvb´úÂëÉèÖÃÓû§Óë×éµÄȨÏÞ£¨5·Ö£©
1 ºÍ 2 »¹ºÃ˵£¬
3 ºÍ 4 access Ö§³Öô£¿
ºÃÏñÕ⼸¸ö¶¼¿ÉÓÃadox¸ã¶¨,ÔÚÂÛ̳ÖÐËÑË÷һϰÉ
Library ADOX
C:\Program Files\Common Files\System\ado\msadox.dll
Microsoft ADO Ext. 2.8 for DDL and Security
http://so.csdn.net/bbsSearchResult.aspx?q=adox&category=all&uname=&rname=&d1=2008-01-01&d2=2010-03-09&field=all
VB code:
'---------------------------------------------------------------------------------------
' ¹ý³ÌÃû : CreateMdb
' ʱ¼ä : 2010-3-9 22:22
' ×÷Õß : Ñî¹ý.Íøºü.cn
' ¹¦ÄÜ :
' ˵Ã÷ :
'---------------------------------------------------------------------------------------
'
Public Sub CreateMdb()
On Error GoTo CreateMdb_Error
'´´½¨mdb
Dim cat As New ADOX.Catalog, strMdbFile As String
strMdbFile = App.Path & "\test.mdb"
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strMdbFile
On Error GoTo 0
Exit Sub
CreateMdb_Error:
MsgBox "´íÎó " & Err.Number & " (" & Err.D
Ïà¹ØÎÊ´ð£º
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......