利用asp相关的函数动态更新access数据库结构,
drs.open "alter table [new] add column [conter] varchar(255)",conn,1,3 '为表new添加一个 conter列,类型:文本 大小:长度为255
drs.open "alter table [new] drop column [game]",conn,1,3 '删除new表中的game列
on error resume next '打开错误处理
set rs=server.CreateObject("adodb.recordset") '在表new中删除 game 字段
drs.open "alter table [new] drop column [game]",conn,1,3 'drop删除
drs.open "alter table [new] drop column [conter] varchar(255)" '添加conter 字段,类型为:文本,长度:255
if Err then '出错处理
response.write "<font color='red'>删除 hhtml 字段失败，原因："&Err.Description&"</font>" & vbcrlf
Err.Clear
else '正确处理
response.write "<font color='blue'>删除 hhtml 字段成功</font>" & vbcrlf
end if
rs.close
set rs=nothing
苏公网安备 32070502010230号