ÈçºÎ²é¿´accessÖÐÒÑÓбí¼ä¹ØÏµµÄÃû³Æ
ÈçºÎ²é¿´accessÖÐÒÑÓбí¼ä¹ØÏµµÄÃû³Æ£¬
ÎÒÒªÓôúÂëɾ³ýÕâ¸ö¹ØÏµ£¬±ØÐëÒªÖªµÀ¹ØÏµµÄÃû³Æ¡£
ÎÒÕâÀïÓиö°ïÖú
ÓÃADOX°É
VB code:
'ÒýÓÃMicrosoft ActiveX Data Objects 2.X Library
'ÒýÓÃMicrosoft ADO EXT. 2.8 For DDL and Security
Dim con As New ADODB.Connection
con.Open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\123.mdb;Persist Security Info=False"
Dim ado As New adox.Catalog
Set ado.ActiveConnection = con
Dim xx As Long, yy As Long
For xx = 0 To ado.Tables.Count - 1
For yy = 0 To ado.Tables.Item(xx).Keys.Count - 1
Debug.Print ado.Tables.Item(xx).Keys.Item(yy).Name
Next
Next
con.Close
Set con = Nothing
¿´Ò»ÏÂϵͳ±í°É
Ïà¹ØÎÊ´ð£º
×î½ü×¼±¸Îª¹«Ë¾ÍøÕ¾ÓÃVB×ö¸ö²úƷչʾÉú³É£¬Éú³É²¿·Ö»ù±¾Ã»ÎÊÌ⣬
ÎÊÌâ³öÏÖÔÚ²éѯ²¿·Ö£¬Ê¹ÓÃÁËMSHFelxGrid(DATAGrid²»ÄÜÂú×ã²Ù×÷ÐèÇó)£¬±¾À´ÒÔΪÊÕ¹¤ÁË£¬×òÌìÔٴβâÊÔµÄʱºò·¢ÏÖÁËÒÔÏÂÎÊÌâ
µ±Êý¾Ý¿â×Ö¶ÎΪ¡ ......
Òª×éºÏ4ÕűíµÄ²éѯ£¬·Ö±ðÊÇA±í£¬B±í£¬C±í£¬D±í£»
A±í
Game_id Game_Name
1 abc
B±í
Category_ID Category_Name Game_id
& ......
Êý¾Ý¶àÁËÕæÂý
access 2003 Ò»¸öMDBÎļþ×î´ó¿ÉÒÔÊÇ 2G
ËùÒÔ˵һ¸öMDBÎļþ²»ÄÜ´óÓÚ2G£¬²»¹ýÄ㻹ÊÇ¿ÉÒÔͨ¹ýÁ½¸öMDBÎļþÈ»ºó½¨Á´½Ó±íÔÚijЩÇé¿öÏÂÀ´±Ü¿ªÕâ¸öÏÞÖÆ¡£
Êý¾Ý¶àÁË×ÔÈ»Âý£¬Äã¿ÉÒÔͨ¹ý½¨Á¢Ë÷Òý£¬ ......
°ì¹«ÊҵĵçÄÔ A £¬ ÔÚÉÏÃæÓиöaccess Êý¾Ý¿â£¬·ÅÔÚÒ»¸ö¹²ÏíÎļþ¼Ð¡£
ÆäËüµÄµçÄÔÉ϶¼ÓÐͬÑùµÄ´øÓÐ vba ºêµÄ word Îĵµ×÷Ϊ¿Í»§¶Ë£¬¿ÉÒÔ¶ÔµçÄÔ A É쵀 access Êý¾Ý¿â½øÐвéѯ¡¢Ð޸ġ£ VBA ʹÓà ADO ¶ÔÏóÁ¬½Ó access ......