编写程序，在线修改数据库字段或表--Asp入门--弘毅学堂--弘毅网

关于我们 | 会员登陆 | 本站服务项目 | 收藏本站 | 留言薄

栏目导航

【考题集锦】

【Fireworks】

【Dreamweaver】

【C语言入门】

【Asp入门】

【photoshop】


栏目更新推荐


点击TOP(10)

您现在的位置：弘毅网 >> 弘毅学堂 >> Asp入门 >> 正文

编写程序，在线修改数据库字段或表

文章来源：本站原创点击数：更新时间：2008-5-16 【字体：小大】

载入中，请稍候……

上一篇教程：轻松在Vista中使用IIS

下一篇教程：没有了

【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

关于〖编写程序，在线修改数据库字段或表〗的最新评论：

用过虚拟主机的朋友都清楚，如果使用ACCESS数据库建站一段时间后，数据库会变的非常的大。如果这是我们需要增加或修改字段、表，则必须用ftp把数据库下载下来，非常的耗时间。

因此我们需要制作一个在线修改数据库的程序。下面给大家收集了这类程序需要的子函数，大家可以自己编写界面，调用这些子函数。

<%
'变量定义赋值
Dim objADOXDatabase '更改表名对象
Dim ConnStr '数据库连接
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("/data/k88_data.mdb")

'建表
Sub AddTable(TableName)
On Error Resume Next
objConn.Execute("CREATE Table "& TableName &"")
If Err Then
Response.Write "添加 "&TableName&" 表错误，请手动添加 "&TableName&" 表，原因" & Err.Description & " "
Err.Clear
Response.Flush
Else
Response.Write "添加 "&TableName&" 表成功 "
Response.Flush
End If
End Sub

'添加索引
Sub AddIndex(TableName,ColumnName,IndexType)
On Error Resume Next
SQL= "CREATE INDEX "& ColumnName &" ON "& TableName &"("& ColumnName &")"

If IndexType = 1 Then
SQL=SQL& " WITH PRIMARY "
End If

objConn.Execute(SQL)
If Err Then
Response.Write "添加 "&TableName&" 表中索引错误，请手动添加，原因" & Err.Description & " "
Err.Clear
Response.Flush
Else
Response.Write "添加 "& TableName &" 表中索引 "& ColumnName &" 成功 "
Response.Flush
End If
End Sub

'删除字段通用函数
Sub DelColumn(TableName,ColumnName)
On Error Resume Next
objConn.Execute("Alter Table "&TableName&" Drop "&ColumnName&"")
If Err Then
Response.Write "删除 "&TableName&" 表中字段错误，请手动将数据库中 "&ColumnName&" 字段删除，原因" & Err.Description & " "
Err.Clear
Response.Flush
Else
Response.Write "删除 "&TableName&" 表中字段 "&ColumnName&" 成功 "
Response.Flush
End If
End Sub

'添加字段通用函数
Sub AddColumn(TableName,ColumnName,ColumnType)
On Error Resume Next
objConn.Execute("Alter Table "&TableName&" Add "&ColumnName&" "&ColumnType&"")
If Err Then
Response.Write "新建 "&TableName&" 表中字段错误，请手动在 "& TableName &" 数据表中建立 "&ColumnName&" 字段，属性为 "&ColumnType&"，原因" & Err.Description & " "
Err.Clear
Response.Flush
Else
Response.Write "新建 "&TableName&" 表中字段 "&ColumnName&" 成功 "
Response.Flush
End If
End Sub

'更改字段通用函数
Sub ModColumn(TableName,ColumnName,ColumnType)
On Error Resume Next
SQL="Alter Table ["&TableName&"] Alter Column ["&ColumnName&"] "&ColumnType&""
'Response.Write SQL&" "
objConn.Execute(SQL)

If Err Then
Response.Write "更改 "&TableName&" 表中字段属性错误，请手动将 "&TableName&" 表中的 "&ColumnName&" 字段更改为 "&ColumnType&" 属性，原因" & Err.Description & " "
Err.Clear
Response.Flush
Else
Response.Write "更改 "&TableName&" 表中字段属性 "&ColumnName&" 成功 "
Response.Flush
End If
End Sub

Sub ReNameTableConn()
On Error Resume Next
Set objADOXDatabase = Server.CreateObject("ADOX.Catalog")
objADOXDatabase.ActiveConnection = ConnStr
If Err Then
Response.Write "建立更改表名对象出错，您所要升级的空间不支持此对象，您很可能需要手动更改表名，原因" & Err.Description & " "
Err.Clear
Response.Flush
End If
End Sub

'更改字段名，
Sub RenameColumn(TableName,oldName,newName)
On Error Resume Next

objADOXDatabase.Tables(TableName).Columns(oldName).Name = newName
If Err Then
Response.Write "更改字段名错误，请手动将数据库 "&TableName&" 中 "&oldName&" 字段名更改为 "&newName&"，原因" & Err.Description & " "
Err.Clear
Response.Flush
Else
Response.Write "更改字段名 "&OldName&" To "&newName&" 成功 "
Response.Flush
End If
End Sub

'更改数据库表名，入口参数：老表名、新表名
Sub RenameTable(oldName, newName)
On Error Resume Next
objADOXDatabase.Tables(oldName).Name = newName
If Err Then
Response.Write "更改表名错误，请手动将数据库中 "&oldName&" 表名更改为 "&newName&"，原因" & Err.Description & " "
Err.Clear
Response.Flush
Else
Response.Write "更改表名 "&OldName&" To "&newName&" 成功 "
Response.Flush
End If
End Sub

'删除表通用函数
Sub DelTable(TableName)
On Error Resume Next
objConn.Execute("Drop Table "&TableName&"")
If Err Then
Response.Write "删除 "&TableName&" 表错误，请手动将数据库中 "&TableName&" 表删除，原因" & Err.Description & " "
Err.Clear
Response.Flush
Else
Response.Write "删除 "&TableName&" 表成功 "
Response.Flush
End If
End Sub

'判断字段是否存在通用函数
Function IsColumn(TableName,ColumnName)
On Error Resume Next
IsColumn = False
objConn.Execute("select " & ColumnName & " from " & TableName & " where 1 = 2")
If Err.Number <> 0 Then
Else
IsColumn = True
End If
End Function
%>