利用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号