Office中国论坛/Access中国论坛

标题: 在ADO中怎样取得一个表的所有字段名？-->WTM1转移 [打印本页]

作者: harsonliao 时间: 2002-10-9 08:31
提示: 作者被禁止或删除内容自动屏蔽

作者: harsonliao 时间: 2002-10-9 08:32
提示: 作者被禁止或删除内容自动屏蔽

作者: harsonliao 时间: 2002-10-10 02:04
提示: 作者被禁止或删除内容自动屏蔽

作者: goodidea 时间: 2002-10-10 02:50
Public Sub findname()

Dim rst As New ADODB.Recordset
Dim Tbname As String
Dim FieldsCount As Integer
Dim i As Integer

Tbname = "computer"
rst.Open "select top 1 * from " & Tbname, CurrentProject.Connection

FieldsCount = rst.Fields.Count
For i = 0 To FieldsCount - 1
Tbname = Tbname & vbNewLine & rst.Fields(i).Name
Next
MsgBox Tbname
rst.Close

End Sub

作者: goodidea 时间: 2002-10-10 02:54
ADOX不会用

作者: sdlhlsd 时间: 2002-10-10 02:55
直接用ADO,不用ADOX就可以了

作者: harsonliao 时间: 2002-10-10 07:53
提示: 作者被禁止或删除内容自动屏蔽

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)