访问数据连接问题

我想在表中插入记录在数据库Project.mdb中成功登记，但在更新记录时显示“找不到记录”。 Access中的表包含以下字段PNR - FNAME - LNAME - SOURCE - DEST - DOJ - NOP 下面的代码不显示任何错误，但它直接跳到最后一条语句，而不更新或检查值。请帮助。访问数据连接问题

<% 
Dim objConn 
Dim objRS 
Dim pnrNo 
Dim varpnr 
Dim varfname 
Dim varlname 
Dim vardoj 
Dim varnop 
Dim varsrc 
Dim vardest 
pnrNO = Request.Form("PNR") 
Set objConn = Server.CreateObject("ADODB.Connection") 
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& _ 
      "D:\Project.mdb" 
Set objRS = Server.CreateObject("ADODB.RecordSet") 
objRS.Open "Book", objConn 
Dim flag 
flag = 0 
Do Until objRS.EOF 
If objRS("PNR") = pnrNO Then 
varpnr = objRS("PNR") 
varfname = objRS("FNAME") 
varlname = objRS("LNAME") 
vardoj = objRS("DOJ") 
varnop = objRS("NOP") 
varsrc = objRS("SOURCE") 
vardest = objRS("DESTINATION") 
flag = 1 
End if 
objRS.MoveNext 
Loop 
objRS.Close 
objConn.Close 
Set objRS = Nothing 
Set objConn = Nothing 
%> 
<% If flag = 1 Then %> 
<html> 
<body text="#FFFF00" bgcolor="#000000"> 

<p align="center"><font face="Cooper Black" size="6">MANAGE 

BOOKING</font></p> 
<p align="center">&nbsp;</p> 
    <CENTER> 
    <form method="POST" action = "Update_Entry.asp"> 
     <table border="0" width="38%"> 
     <tr> 
      <td width="202">PNR NUMBER</td> 
      <td><input type="hidden" name="PNR" 

size="20" value = "<% =varpnr %>"></td> 
     </tr> 
     <tr> 
      <td width="202">FIRST NAME</td> 
      <td><input type="text" name="FNAME" 

size="20" value = "<% =varfname %>"></td> 
     </tr> 
     <tr> 
      <td width="202">LAST NAME</td> 
      <td><input type="text" name="LNAME" 

size="20" value = "<% =varlname %>"></td> 
     </tr> 
     <tr> 
      <td width="202">DATE OF JOURNEY</td> 
      <td><input type="text" name="DOJ" size="20" 

value = "<% =vardoj %>"></td> 
     </tr> 
     <tr> 
      <td width="202">TOTAL PASSENGERS</td> 
      <td><input type="text" name="NOP" size="20" 

value = "<% =varnop %>"></td> 
     </tr> 
     <tr> 
      <td width="202">SOURCE</td> 
      <td><input type="text" name="SOURCE" 

size="20" value = "<% =varsrc %>"></td> 
     </tr> 
<tr> 
      <td width="202">DESTINATION</td> 
      <td><input type="text" name="DESTINATION" 

size="20" value = "<% =vardest %>"></td> 
     </tr> 
    </table> 
     <p><input type="submit" value="UPDATE DETAILS"> 

</p> 
     <p>&nbsp;<input type="reset" value="CLEAR"></p> 
    </form> 
    <p>&nbsp;</p> 

</body> 

</html> 
<% 
else 
response.write("Record Not Found!!") 
end if %>

来源

2015-12-05 Yusuf M

请添加标记您所使用的语言。 – Andre

我正在使用ASP代码。我是一名学生，这是一项给予我们的项目工作。我根据笔记编写了所有内容，但这个问题仍然存在。 –

您在那里的代码不更新记录，它只是试图读取它们。但是，由于用于读取书籍表内容的SQL语句无效，因此您将始终有一个空记录集。这就需要沿的线条：

objRS.Open“SELECT * FROM书”，objConn

来源

2015-12-05 15:21:03 Amos

访问数据连接问题

回答

相关问题