UC知道asp连接添加不上数据access
来源：百度知道 编辑：UC知道 时间：2024/06/23 16:22:12
首页
<% Option Explicit %>
<html>
<head>
<title>利用Select语句查询记录示例</title>
</head>
<body>
<h2 align="center">图书馆现存储书</h2>
<%
'以下连接数据库，建立一个Connection对象实例db
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dbq="&Server.Mappath("library.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
'以下建立Recordset对象实例rs
Dim strSql,rs
strSql="Select * From lib Order By book_id Desc"
Set rs=db.Execute(strSql)
'以下显示数据库记录
%>
<form name="form1" method="post" action="">
<p> </p>
</form>
<center>
<a href="add_form1.asp">添加记录</a>
<table width="100%" border="1" bordercolor="#3366FF" bgcolor=&qu
<% Option Explicit %>
<html>
<head>
<title>利用Select语句查询记录示例</title>
</head>
<body>
<h2 align="center">图书馆现存储书</h2>
<%
'以下连接数据库，建立一个Connection对象实例db
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dbq="&Server.Mappath("library.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
'以下建立Recordset对象实例rs
Dim strSql,rs
strSql="Select * From lib Order By book_id Desc"
Set rs=db.Execute(strSql)
'以下显示数据库记录
%>
<form name="form1" method="post" action="">
<p> </p>
</form>
<center>
<a href="add_form1.asp">添加记录</a>
<table width="100%" border="1" bordercolor="#3366FF" bgcolor=&qu
StrSql="Insert Into lib(name,class,adress,info) Values('" & varName & "','" & varClass & "','" & varAdress & "','" & varInfo & "',#" & Date() & "#)"
这个SQL出错...(name,class,adress,info) 四个.面Values有五个
你是不是把On error resume next打开了，应该有错误发生的。
建议把
StrSql="Insert Into lib(name,class,adress,info) Values('" & varName & "','" & varClass & "','" & varAdress & "','" & varInfo & "',#" & Date() & "#)"
这句改一下，把字段名是关键字，保留字的加[]括起来。
用rs.addnew插入也不错哦
表单呢，你填表的页面呢。
If Request.Form("name")<>"" And Request.Form("class")<>"" And Request.Form("adress")<>"" And Request.Form("info")<>"" Then
查查这几个值你有没有提交过来。
你可以用response.write 看看有没值
I Don't