[插件卸载代码]在线删除数据里表格或者字段的代码

MM0759.COM

[插件卸载代码]在线删除数据里表格或者字段的代码 - 文章首页→返回版区

■标题:[插件卸载代码]在线删除数据里表格或者字段的代码

■作者:IPSC [2004/3/21 13:07:41]
----------
删除表格的sql语法 DROP table_name

-------------------
<%
datafile="#bbsxp"　'请改为您数据库的路径
Set Conn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&datafile&"")
conn.Open connstr
Set rs = Server.CreateObject("ADODB.Recordset")
on error resume next '忽列错误
conn.execute("DROP TABLE forum")'把FORUM改为你要删除的表格名！！
%>

----------------------------
sql="alter table [user] drop column [money]"
conn.execute(sql)

以上是把user表中money列删除

【回复/版区/上篇/下篇/发贴/仅文字/HTML】

【倒序/最近21条回复】

■作者:IPSC [2004/5/22 20:18:17]

关于access数据库表改名的一段代码

<%
Call RenameTable("Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=c:\example.mdb", "test", "changed")

Sub RenameTable (conStr, oldName, newName)
　'Has to be OLE DB connection
　'Create object and connect to DB...
　Dim objADOXDatabase
　Set objADOXDatabase = Server.CreateObject("ADOX.Catalog")
　objADOXDatabase.ActiveConnection = conStr

　'Change the name...
　objADOXDatabase.Tables(oldName).Name = newName
　
　'Clean up...
　Set objADOXDatabase = Nothing
End Sub
%>

(查看完整版网页)

短讯|首页|登录|算法|电脑版 .
DK MiniBBS Plus v2.0
mm0759.com
250 毫秒 .