Error on updating

[rah]

این چی میگه؟

ADODB.Recordset (0x800A0BCD)
Either BOF or EOF is True, or the current record has been deleted.
 Requested operation requires a current record.

معنیشو متوجهم. اما اینایی که نوشته در مورد صفحه من صدق نمی کنه !
در چه حالت یممکنه این مشکل پیش بیاد؟

 

[amirlol]

ببین رکوردی رو که می خوای بخونی تو دیتابیس وجود نداره !!
همین
با یک IF میشه حلش کرد

IF NOT rs.eof THEN

در صورت درستی 

else

در صورت نبودن
end if

 

[rah]

هست امیر جون
یعنی چی نیست؟

 

[amirlol]

ببخشید دیگه تکرار نمیشه

ولی تا جایی که من می دونم این اررور برای همینیه که گفتم

 

[MDP]

اولا که یکم یواش تر دوما شما سورس صفحه رو بزار ما fix می کنیم همین!

نه اینکه ارور خالی بدی!!!

 

[shirani]

من فکر میکنم شما یادت رفته اول بش بگی کلید بجوره براهمین نمیتونه بدونه کدوم رکورد میخوای آپ دیت کنید

 

[rah]

آقا مس که سوء تفاهم پیش اومده! ناراحت شدم از اینکه احساس کردم به خاطر این یه جمله من :

یعنی چی نیست؟

ناراحت شدید!
شما اون "جون" جمله قبلشم می دید متوجه می شدید که لحن تندی ندارم !! بهر هر حال آقا امیر و آقا مسعود اگه ناراحتتون کردم عذر میخوام. .
-----
آقا ببینید، من با این قطعه کد میخوام رکورد رو آپدیت می کنم :

<%
strCode = Request.QueryString("ID")
	conn.Open strconn
	
	sSql = "select * from table_name where ID='" &strCode& "'"
	rs.CursorLocation = 3
	rs.Open sSql, conn, 1, 2

	p_title=request.form("titletxt")
	p_short=request.form("shorttxt")
	...
	
	rs("title") = p_title
	rs("short") = p_short
	...
	
	IF Not Request("radio")="" then
		Dim n
		n= request("radio")
	rs("part")=n
	End if
	
	
	rs.Update
	rs.Close
	Set rs = Nothing
	conn.Close
	Set conn = Nothing
%>

درسته؟
در ضمن کدهای ارتباط با دیتابیس بالای صفحه اینکلود میشه.

 

[shirani]

من معمولاً از این استفاده میکنم

<!--#include file="DB.asp" -->
<%
response.Buffer = True

'Make sure this page is not cached
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "No-Store"

'Dimension variables
Dim intID

Set intID = Request.Form("ID_bank")
'----------------------
' Open connection to the database
Set objRS= server.CreateObject("ADODB.recordset")
objRS.open "tbl_emoney",objconn, ,adLockoptimistic ,adcmdtable
bolFound = false

'Try to find User Entry
Do Until objRS.EOF Or bolFound
if (StrComp(objRS.fields("ID_bank"),intID,vbTextCompare) = 0 )then
bolFound = True
Else
objRs.Movenext
End if
Loop

'Add Record to database
objRS("Namebank") = Request.Form("Namebank")
objRS("UrlBank") = Request.Form("UrlBank")
objRS("CodePay") = Request.Form("CodePay")
objRS("Account") = Request.Form("Account")
objRS("LogoBank") = Request.Form("LogoBank")
objRS("About") = Request.Form("About")
objRS.update

'Close
objRS.close
set objRS = nothing
objconn.close
set objconn = nothing
'Response.Redirect(
Response.Redirect("../admin/Manegment_bank.asp")




%>

 

[rah]

دوستان، ممنون از راهنماییهاتون.
مشکل بر طرف شد.

 

[mosyhey]

مشکل کد خودتان چه بود؟ فکر کنم خط سوم را این طور بنویسید مشکل حل شود:

sSql = "select * from table_name where ID=" & CInt(strCode)