7,787
社区成员
发帖
与我相关
我的任务
分享怎么获得数据库中某个表的所有字段列表？
假设一个Access数据库为data.mdb，齐中一个表名为table1。
tabel1中有数个字段列表。
用什么方法获得这些字段列表？？
如果用SQL查询语句也可以，又怎么写呢？
tabel1中有数个字段列表。
用什么方法获得这些字段列表？？
如果用SQL查询语句也可以，又怎么写呢？
...全文
请发表友善的回复…
发表回复
八哥 2005-04-25
- 打赏
- 举报
如果虽SQL数据库，
select a.name from syscolumns a where a.id=object_id('你的表名')
select a.name from syscolumns a where a.id=object_id('你的表名')
八哥 2005-04-25
- 打赏
- 举报
RS.Open "Select * from Jobs where 1=2", Conn, adOpenStatic, adLockOptimistic
tmran 2005-04-25
- 打赏
- 举报
同意楼上。
daisy8675 2005-04-25
- 打赏
- 举报
Option Explicit
Dim 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
Dim 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
