怎么获得数据库中某个表的所有字段列表？

Question

假设一个Access数据库为data.mdb，齐中一个表名为table1。
tabel1中有数个字段列表。
用什么方法获得这些字段列表？？
如果用SQL查询语句也可以，又怎么写呢？

Answer 1

Option ExplicitDim RS As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Private Sub Form_Load()
   Dim strConn As String
   Dim i As Integer
   
   strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs;Data Source=Localhost"
   Conn.CursorLocation = adUseClient
   Conn.Open strConn
   
   If RS.State <> adStateClosed Then RS.Close
   RS.Open "Select * from Jobs", Conn, adOpenStatic, adLockOptimistic
   
   For i = 0 To RS.Fields.Count - 1
     Debug.Print RS.Fields(i).name
   Next i
   
End Sub

Answer 2

   RS.Open "Select * from Jobs where 1=2", Conn, adOpenStatic, adLockOptimistic

Answer 3

如果虽SQL数据库，
select  a.name from syscolumns a where a.id=object_id('你的表名')