提问，关于数据库初始化的问题！

奥利奥小新 2011-11-19 06:37:49

我要做一个ASP的数据库初始化文件，这是老师要求我们做得课程实践。老师使用了一个测试代码书写规范的一个软件，它提出来的要求是：

成功返回的页面HTML应该是：
<html><body>
<div id='result' style='display:none'>0</div>
成功
</body></html>

失败：返回的页面HTML应该是：
<html><body>
<div id='result' style='display:none'>1</div>
这里是错误信息，可根据你的情况输出
</body></html>

以下是我创建的名为initialDataBase的一个asp文件，我只是写了一部分打开我的数据库的操作，我并不知道提出来的要求要如何满足。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open ".\aasp.mdb"
%>
</body>
</html>

之后我的浏览器上出现了错误：没有找到id='result'的结果输出对象

...全文

199 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

fq94264 2012-11-17

打赏
举报

楼主的问题解决了吗？？同求此问题

奥利奥小新 2011-11-25

打赏
举报

[Quote=引用楼主 shaoxin0827 的回复:]
我要做一个ASP的数据库初始化文件，这是老师要求我们做得课程实践。老师使用了一个测试代码书写规范的一个软件，它提出来的要求是：

成功返回的页面HTML应该是：
<html><body>
<div id='result' style='display:none'>0</div>
成功
</body></html>

失败：返回的页面HTML应该是：
<html><body>
<……
[/Quote]

我需要用sql语言来创建表格，老师要联系我们的SQL语言能力，但是明显是我之间代码里写的是错的，我不知道在ASP里面怎么写SQL
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<%if Session("s_loginOK") then

dim sql

sql="create table Reader
(
rID nchar(8) not null,
rName nchar(10) not null,
rSex nchar(10) not null,
rDept nchar(10)not null,
rGrade int not null
)"

Session("s_DBConn").Execute(sql)
Response.Write("<div id='result' style='display:none'>0</div>
")
else%>
<FONT SIZE="" COLOR="red"><div id='result' style='display:none'>1</div>
</FONT>
<%end if%>
</body>
</html>

csdn_aspnet 2011-11-21

打赏
举报

参考：
思路：
方法一：通过ADO 或者系统表找到所有的表名，然后通过组织 JET SQL 的 DELETE FROM [TABLENAME] 语句来删除所有表中的数据；
清空数据以后用 ADO 获取系统的自动编号字段，判断其是否为自动增加、长整字段，然后再组织 JET SQL 的 DDL 语句来初始化自动编号；
所有数据初始化结束后还要压缩修复数据库。

方法二：如果可能，在创建上述数据库后就应该立即复制一份全新的备份，这样就不用事后编程来进行初始化了。

方法三：如果是纯 ACCESS 环境可以用 TransferDatabase 的一个参数 StructureOnly 来导入结构本身。但是上述方法 VB+MDB ASP+MDB .NET+MDB 环境不适用

上述思路涉及到的知识点本站文章都已经论述过了。

只用ado列出所有的表《ADO/DAO/ADO.NET》
http://access911.net/index.asp?u1=a&u2=72FAB71E14DC

ado如何取得表的所有字段信息?《VBA》
http://access911.net/index.asp?u1=a&u2=74FAB11E10DC

《查询》如何定义自动编号字段的初始值和步进值？
http://access911.net/index.asp?u1=a&u2=71FAB01E13DC

如何使用 ADO 來压缩或修复 MS Access 文件？(jro的使用)《其他》
http://access911.net/index.asp?u1=a&u2=71FAB71E

这里列出网友“wangtiecheng(／+〆=ろ)”提供的部分代码：
'在模块中创建公共函数，执行即可。
'用ADO
Public Sub DeleteAllData()
Dim strSQL As String
Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset

Set Cnn = CurrentProject.Connection

strSQL = "SELECT Name FROM MSysObjects WHERE Flags=0 AND Type=1"
Rst.Open strSQL, Cnn, adOpenKeyset, adLockOptimistic
If Not Rst.EOF Then
Rst.MoveFirst
Do While Not Rst.EOF
strSQL = "delete * from " & Rst!Name
Cnn.Execute strSQL

Rst.MoveNext
Loop
End If

MsgBox "OK"
End Sub