asp连接添加不上数据access
来源:百度知道 编辑:UC知道 时间:2024/09/12 21:53:08
首页
<% 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