訪問數據連接問題

我想在表中插入記錄在數據庫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

訪問數據連接問題

回答

相關問題