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

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


Ïà¹ØÎÊ´ð£º

ΪʲôÓÃVB¸Ä±ä²»Á˹¤¾ßÀ¸°´Å¤µÄ¿í¶È - VB / ¿Ø¼þ

Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔ­À´µÄÊýÖµÁË

´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£

»Ø¸´ ......

vb ÖÐ - VB / »ù´¡Àà

ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......

vb - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ