如何获取Access数据库中的表名及其字段名

如何获取Access数据库中的表名及其字段名

写代码解决：
dim rst as new adodb.recordset
rst.open "SELECt * FROM SomeTable", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly

dim ii as integer
dim ss as string
for ii = 0 to rst.fields.count - 1
ss = ss & "," & rst.fields(ii).name //循环显示字段
next ii

sub editfieldname(byval tablename as string, byval fieldname as string, byval newfieldname as string)     on error goto errp     dim tds as tabledefs     dim td as tabledef     dim f as dao.field     set tds = currentdb.tabledefs     set td = tds(tablename)     set f = td.fields(fieldname)     f.properties("name") = newfieldname exitsub:     set f = nothing     set td = nothing     set tds = nothing     exit sub errp:     msgbox err.number & " " & err.description     goto exitsub end sub  三个参数，第一个表名，第二个是原字段名，第三个是新字段名

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息