在ADO中怎样取得一个表的所有字段名？-->WTM1转移

harsonliao · 发表于 2002-10-9 08:31:00

提示: 作者被禁止或删除内容自动屏蔽

harsonliao · 发表于 2002-10-9 08:32:00

提示: 作者被禁止或删除内容自动屏蔽

harsonliao · 发表于 2002-10-10 02:04:00

提示: 作者被禁止或删除内容自动屏蔽

goodidea · 发表于 2002-10-10 02:50:00

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:00

ADOX不会用

sdlhlsd · 发表于 2002-10-10 02:55:00

直接用ADO,不用ADOX就可以了

harsonliao · 发表于 2002-10-10 07:53:00

提示: 作者被禁止或删除内容自动屏蔽

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

harsonliao harsonliao 当前离线技术点技术点 V币点积分 4538 IP卡狗仔卡	电梯直达 1^# 发表于 2002-10-9 08:31:00 \| 只看该作者 \|倒序浏览 \|阅读模式提示: 作者被禁止或删除内容自动屏蔽
	分享到: QQ好友和群 QQ空间腾讯微博腾讯朋友收藏0 分享淘帖0 订阅
	回复使用道具举报提升卡置顶卡沉默卡喧嚣卡变色卡抢沙发千斤顶显身卡

主题相关群

地区相关群[您还没设置居住地]

[ADO/DAO] 在ADO中怎样取得一个表的所有字段名？-->WTM1转移

群介绍
主题无相 (随机显示版	同地区群块其他地区)

harsonliao harsonliao 当前离线技术点技术点 V币点积分 4538 IP卡狗仔卡	2^# 楼主\| 发表于 2002-10-9 08:32:00 \| 只看该作者提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

harsonliao harsonliao 当前离线技术点技术点 V币点积分 4538 IP卡狗仔卡	3^# 楼主\| 发表于 2002-10-10 02:04:00 \| 只看该作者提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

harsonliao harsonliao 当前离线技术点技术点 V币点积分 4538 IP卡狗仔卡	7^# 楼主\| 发表于 2002-10-10 07:53:00 \| 只看该作者提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡