ÈçºÎ²é¿´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
¿´Ò»ÏÂϵͳ±í°É
Ïà¹ØÎÊ´ð£º
_RecordsetPtr CMyAdo::SelectRecord(string &where, string &tablename,string &field, int way )
{
int ret = 0;
_RecordsetPtr pset;
CString sql;
& ......
ÈçÌâÔÚÎÒ´ò¿ªaccessÐ޸ĵÄʱºò±¨´í
ÎÒ×°µÄGhost µÄXP°æ sp3µÄ²¹¶¡
´íÎóÇ©Ãû
AppName: msaccess.exe AppVer: 11.0.8166.0 AppStamp:46437912
ModName: pintlgnt.ime&n ......
×î½ü×¼±¸Îª¹«Ë¾ÍøÕ¾ÓÃVB×ö¸ö²úƷչʾÉú³É£¬Éú³É²¿·Ö»ù±¾Ã»ÎÊÌ⣬
ÎÊÌâ³öÏÖÔÚ²éѯ²¿·Ö£¬Ê¹ÓÃÁËMSHFelxGrid(DATAGrid²»ÄÜÂú×ã²Ù×÷ÐèÇó)£¬±¾À´ÒÔΪÊÕ¹¤ÁË£¬×òÌìÔٴβâÊÔµÄʱºò·¢ÏÖÁËÒÔÏÂÎÊÌâ
µ±Êý¾Ý¿â×Ö¶ÎΪ¡ ......
ÕâÁ½Ììѧϰ¡¶Delphi¼¼Êõ·½°¸±¦µä¡·Ò»ÊéÖеÚÈýÕ¹ØÓÚÓû§µÇ¼·½°¸µÄÀý×Ó£¬ÀûÓõÄÊÇSQl ServerÊý¾Ý¿âʵÏÖÓû§µÇ¼£¬±àÒëÔËÐж¼Ã»ÎÊÌ⣬¸ÃʵÏֵŦÄÜÒ²¶¼ÊµÏֵĺܺ㬵«ÊÇÆæ¹ÖµÄÊÇ£¬·´¸´ÔËÐÐÒ»¶Îʱ¼äºó£¬ÓÐʱÔڹرÕÕû¸ö ......