|
»ñÈ¡Ö¸¶¨±íËùÓÐ×Ö¶ÎÃûµÄº¯Êý
Private Function GETZD(tbName As String)
Dim cat As New ADOX.Catalog
cat.ActiveConnection = CurrentProject.Connection
For i = 0 To cat.Tables(tbName).Columns.Count - 1
Debug.Print cat.Tables(tbName).Columns.Item(i).Name
Next
End FunctionÐèÒýÓÃADOX
Ó÷¨£ºGETZD ("±íÃû")
--------------------------------------------------------------------------------
Ïà¹ØÎÄÕÂ
Êý¾Ý¿âÉè¼ÆÖеÄÃô½Ý·½·¨ 2004-2-9 11:19:16
SQL SERVER»ù±¾¸ÅÄîѧϰӡÏó 2004-1-1 21:23:13
Á½¸öδ¹«¿ªµÄACCESS·½·¨µÄʹÓü¼ÇÉ 2003-12-30 14:59:33
Access Êý¾Ý¿âºÍ Access ÏîÄ¿Ö®¼äµÄÊý¾ÝÀàÐ͵ıȽϻòÓ³Éä 2003-12-26 14:20:19
´óÐÍÊý¾Ý¿âÉè¼ÆÔÔò 2003-12-15 12:49:18
ÆƽâAccess(*.mdb)Ä¿Ç°ËùÓа汾µÄÃÜÂë 2003-11-17 11:31:05
ACCESSµÄÊý¾Ý¿â°²È«ÎÊÌâ½â´ð 2003-11-13 10:52:11
±ÜÃâAccessºÍSQL ServerµÄ¿ÕÖµ³åÍ» 2003-10-17 20:03:19
±í´ïʽÉú³ÉÆ÷Öеļ¸ÖÖ³£Ó÷ûºÅ 2003-10-17 19:55:56
´´½¨ÍêÃÀ±¨±í 2003-10-17 19:37:17
ADOÈý´ó¶ÔÏóµÄÊôÐÔ¡¢·½·¨¡¢Ê¼þ¼°³£Êý£¨Èý£© 2003-10-14 8:44:20
ÈçºÎÕï¶Ï/ÐÞ¸´Ëð»µµÄ Jet 4.0 Êý¾Ý¿â 2003-10-14 8:31:26
Êý¾Ý¿â¹æ·¶»¯¼¼ÇÉ 2003-10-10 10:38:06
ÈçºÎÇ¿ÖÆ Access ÏÔʾËÄλÊýÄê·ÝµÄÈÕÆÚ 2003-10-10 10:34:21
¶¨Æڹ鵵 Access Êý¾Ý¿â¼Ç¼ 2003-10-10 10:20:08
ÌáÉýÇ°ºǫ́ģʽ³ÌÐòµÄËÙ¶È 2003-10-10 10:17:08
Ò»¸ö¼òµ¥µÄAdoÓ÷¨Ê¾Àý 2003-10-6 16:24:38
Access 2002 ÖеÄÃû³Æ×Ô¶¯¸üÕý˵Ã÷ 2003-10-6 15:16:24
Êý¾Ý¿âÓ¦ÓóÌÐòÐè×¢ÒâµÄÎÊÌâ 2003-10-6 11:11:06
|
