7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2003-05-22
- 打赏
- 举报
use ADOX:
Sub showfields(ByVal tablename As String) '显示数据库指定表的字段名称及类型
On Error Resume Next
Dim mycat As New ADOX.Catalog
mycat.ActiveConnection = "Provider=MicroSoft.Jet.OLEDB.3.51;Data Source=d:\new.MDB"
msg = ""
For i = 0 To mycat.Tables(tablename).Columns.Count
msg = msg & mycat.Tables(tablename).Columns(i).Name & " 类型: " & mycat.Tables(tablename).Columns(i).Type & vbCrLf
Next
MsgBox msg, 64, tablename
Set cat.ActiveConnection = Nothing
End Sub
Sub showfields(ByVal tablename As String) '显示数据库指定表的字段名称及类型
On Error Resume Next
Dim mycat As New ADOX.Catalog
mycat.ActiveConnection = "Provider=MicroSoft.Jet.OLEDB.3.51;Data Source=d:\new.MDB"
msg = ""
For i = 0 To mycat.Tables(tablename).Columns.Count
msg = msg & mycat.Tables(tablename).Columns(i).Name & " 类型: " & mycat.Tables(tablename).Columns(i).Type & vbCrLf
Next
MsgBox msg, 64, tablename
Set cat.ActiveConnection = Nothing
End Sub
topsir 2003-05-22
- 打赏
- 举报
adodc1.recordset.fileds(i).name
junwhj 2003-05-22
- 打赏
- 举报
SQL Server:
select * from syscolumns where id=object_id('表名')
select * from syscolumns where id=object_id('表名')
