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
Ïà¹ØÎÊ´ð£º
ACCESSÊý¾Ý¿âÖÐÓÐÒ»¸ötablename±í£¬Éè¼ÆÈçÏÂ
±àºÅ,ÊéÃû,×÷Õß,³ö°æÊ±¼ä,³ö°æÉç,ISBN,Ŀ¼,¼ò½é
ÆäÖгý¡°±àºÅ¡±Îª×Ô¶¯±àºÅÍ⣬ÆäËü¶¼Îª¡°±¸×¢¡±
ÆäÖÐ"±àºÅ"άһ£¬ÔÚ¡°ISBN¡±ÖÐÓеÄΪ¿ÕÖµ£¬ ......
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË
Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......