update سه جدول در یک فرم

**sara** · شنبه 27 مرداد 1386, 20:24 عصر

سلام عزیزانم لطفاً حتماً کمکم کنید.
چطوری برای edit ،رکورد خاصی رو از جدول روی فرم نمایش بدیم بعد اونو رکورد جاری کنیم بعد روی همون فرم edit کنیمش.
این رکورد جاری رو هم توضیح بدین چه جوریه.
برای کدهای خودم این error رو میده :



Error Type:

ADODB.Field (0x80020009)

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

کدها:



<%

session.CodePage="65001"

if session("username")<>"" and session("password")<>"" then

sqlstr4="select * from Maghale where [mcode]= "& session("password")

sqlstr3="select * from Nevisande where [ncode]= "& session("password")

set rec4=server.createobject("adodb.recordset")

rec4.open sqlstr4,dbcon,adOpenDynamic,adLockOptimistic,adcmd  text

set rec3 =server.createobject("adodb.recordset")

rec3.open sqlstr3,dbcon,adOpenDynamic,adLockOptimistic,adcmd  text

%>

<form method=post  name="newuserform" action="vv.asp" >

           <TABLE class=Tables_texts cellSpacing=0 cellPadding=2 width=450 

            align=center border=0>

              <TBODY>

               <TR>

                <TD  colSpan=2><SPAN 

                  style="COLOR: brown">◊</SPAN> الف. مقاله: </TD></TR>

              <TR>

                <TD align=left>عنوان مقاله: <SPAN 

                style="COLOR: red">*</SPAN></TD>

                <TD dir=rtl><INPUT  

                  style="WIDTH: 100%"  maxLength="50 "

                  name="mname" value="<%=rec4.fields("mname")%>"></TD></TR>    <TR>

                <TD align=left>چکیده: <SPAN 

                style="COLOR: red">*</SPAN></TD>

                <TD><TEXTAREA   style="WIDTH: 100%"

                 name="chekide" rows=7  ><%=rec4.fields("chekide")%></TEXTAREA></TD></TR>     

              <TR>

                <TD align=left>کلمات کلیدی:<SPAN 

                  style="COLOR: red">*</SPAN></TD>

                <TD dir=rtl><INPUT 

                  style="WIDTH: 100%" maxLength=50 

                  name="kkelidi" value="<%=rec4.fields("kkelidi")%>"></TD></TR>

              <TR>

                <TD  colSpan=2><SPAN 

                  style="COLOR: brown">◊</SPAN> ب. پست الکترونیک: </TD></TR>

              <TR>

                <TD align=left>پست الکترونیک: <SPAN 

                style="COLOR: red">*</SPAN></TD>

                <TD dir=ltr><INPUT  

                  style="WIDTH: 100%" maxLength=50 

                  name="email" value="<%=rec3.fields("email")%>" readonly="true"></TD></TR>

              <TR>

                <TD align=left>تکرار پست الکترونیک:<SPAN 

                  style="COLOR: red">*</SPAN></TD>

                <TD dir=ltr><INPUT 

                  style="WIDTH: 100%" maxLength=50 

                  name="remail" value="<%=rec3.fields("email")%>" readonly="true"></TD></TR>

              <TR>

                <TD width=120></TD>

                <TD width=330></TD></TR></TBODY></TABLE>

<!-- فرم های ورودی 2-->

<br>

                <TABLE cellSpacing=0 cellPadding=2 

            width=450 align=center border=0>

              <TBODY>

              <TR>

                <TD width=150></TD>

                <TD width=300></TD></TR>

              <TR>

                <TD colSpan=2><SPAN 

                  style="COLOR: brown">◊</SPAN> پ. مشخصات فردی ارائه دهنده: </TD></TR>

              <TR>

                <TD align=left>نام: <SPAN style="COLOR: red">*</SPAN></TD>

                <TD><INPUT onKeyPress="return CheckTypingForFarsi(this,event)" 

                   style="WIDTH: 100%" 

                  maxLength=50 name="efname" value="<%=rec3.fields("efname")%>"></TD></TR>

              <TR>

                <TD align=left>نام خانوادگی: <SPAN 

                style="COLOR: red">*</SPAN></TD>

                <TD><INPUT onKeyPress="return CheckTypingForFarsi(this,event)" 

                 style="WIDTH: 100%" 

                  maxLength=50 name="elname" value="<%=rec3.fields("elname")%>"></TD></TR>

              <TR>

                <TR>

                <TD align=left>مدرک تحصیلی: <SPAN 

                style="COLOR: red"></SPAN></TD>

                <TD><INPUT onKeyPress="return CheckTypingForFarsi(this,event)" 

                  style="WIDTH: 100%" 

                  maxLength=50 name="madrak" value="<%=rec3.fields("madrak")%>"></TD></TR>

              <TR>

                <TD align=left>تلفن: <SPAN style="COLOR: red"></SPAN></TD>

                <TD dir=ltr><INPUT  

                  style="WIDTH: 100%" maxLength=50 

                  name="tel" value="<%=rec3.fields("tel")%>"></TD></TR>

 

                 <TD align=left>آدرس: <SPAN style="COLOR: red">*</SPAN></TD>

 

                 <TD><TEXTAREA  style="WIDTH:100%" name="address"  ><%=rec3.fields("address")%></TEXTAREA></TD></TR>

              </TBODY></TABLE>

<!--فرم های ورودی 3 -->

<br>

                  <TABLE   cellSpacing=0 cellPadding=2 

            width=450 align=center border=0>

              <TBODY>

              <TR>

                <TD width=150></TD>

                <TD width=300></TD></TR>

              <TR>

                <TD  colSpan=2><SPAN 

                  style="COLOR: brown">◊</SPAN> ت. مشخصات فردی نفر دوم (در صورت 

                  وجود): </TD></TR>

              <TR>

                <TD align=left>نام:</TD>

                <TD><INPUT  

                  style="WIDTH: 100%" maxLength=50 

                  name="fname2" value="<%=rec3.fields("fname2")%>"></TD></TR>

              <TR>

                <TD align=left>نام خانوادگی:</TD>

                <TD><INPUT 

                  style="WIDTH: 100%" maxLength=50 

                  name="lname2" value="<%=rec3.fields("lname2")%>"></TD></TR>

                 </TBODY></TABLE>

<!--فرم های ورودی 4 -->

<br>

                    <TABLE  cellSpacing=0 cellPadding=2 

            width=450 align=center border=0>

              <TBODY>

              <TR>

                <TD width=150></TD>

                <TD width=300></TD></TR>

              <TR>

                <TD  colSpan=2><SPAN 

                  style="COLOR: brown">◊</SPAN> ث. مشخصات فردی نفر&nbsp;سوم (در 

                  صورت وجود): </TD></TR>

              <TR>

                <TD align=left>نام:</TD>

                <TD><INPUT  

                  style="WIDTH: 100%" maxLength=50 

                  name="fname3" value="<%=rec3.fields("fname3")%>"></TD></TR>

              <TR>

                <TD align=left>نام خانوادگی:</TD>

                <TD><INPUT 

                  style="WIDTH: 100%" maxLength=50 

                  name="lname3" value="<%=rec3.fields("lname3")%>"></TD></TR>

              </TBODY></TABLE>

<!--فایل مقاله -->  

<TABLE  cellSpacing=0 cellPadding=2 width=450 

            align=center border=0>

              <TBODY>

              <TR>

                <TD align=middle colSpan=2>

              <TR>

                <TD  colSpan=2><SPAN 

                  style="COLOR: brown">◊</SPAN> ج.فایل مقاله: </TD></TR>

               <TR>

                <TD align=left>انتخاب فایل: <SPAN 

                style="COLOR: red">*</SPAN></TD>

                <TD align=left><INPUT id="UC_BlankControl__ctl0_Blob" 

                  style="WIDTH: 100%" type=text name="pdf"  readonly="true"> 

                </TD><td align="center"><a href="http://localhost/upload-c/clsUploadtest.asp" target="_blank"><img src="b.jpg" border="0"></a></td></TR>   

                <TR>

                <TD width=120></TD>

                <TD width=330></TD></TR></TBODY></TABLE>           

<!--کلید ثبت نام -->

  <TABLE  style="MARGIN-TOP: 15px; MARGIN-BOTTOM: 20px" 

            width=300 align=center border=0>

              <TBODY>

              <TR>

                <TD align=middle width="20%">

                <input type="button" value=" ویرایش "  name="edit">

                  </TD>

                   </TR></TBODY></TABLE>

</form>

<%

  rec3.fields("efname") = Trim(request.form("efname"))

  rec3.fields("elname") = Trim(request.form("elname"))

  rec3.fields("address") = Trim(request.form("address"))

  rec3.fields("email") = Trim(request.form("email"))

  rec3.fields("tel") = Trim(request.form("tel"))

  rec3.fields("madrak") = Trim(request.form("madrak"))

  rec3.fields("fname2") = Trim(request.form("fname2"))

  rec3.fields("lname2") = Trim(request.form("lname2"))

  rec3.fields("fname3") = Trim(request.form("fname3"))

  rec3.fields("lname3") = Trim(request.form("lname3"))

  rec3.update

  rec3.close

  set rec3=nothing

  rec4.fields("mname")=trim(request.form("mname"))

  rec4.fields("chekide")=trim(request.form("chekide"  ))

  rec4.fields("kkelidi")=trim(request.form("kkelidi"  ))

  rec4.fields("pdf")=session("pdf")

  rec4.update

  rec4.close

  set rec4=nothing

   <!--  msgstr=" .مشخصات شما ثبت شد.از عضویت شما متشکریم"-->

 end if

  %>

**sara** · شنبه 27 مرداد 1386, 21:38 عصر

کمک کنییییییییییییییییییییییی یید ای خدا

**odise2004** · یک شنبه 28 مرداد 1386, 00:39 صبح

با سلام.اون ارروری که میده ظاهراً میگه اطلاعاتی که از دیتابیس میخونین وجود ندارن.
شما بهتره به شرط بزاری که اگه تو دیتابیس چیزی بود عملیات رو انجام بده.باز اگه مشکل چیز دیگه ای هست کامل توضیح بده.
اینم شرط :
if not(rec3.bof and rec3.eof) or not(rec4.bof and rec4.eof) then
عملیات
end if

اینو یه تست بکن ببین حل میشه.

**sara** · یک شنبه 28 مرداد 1386, 05:18 صبح

سلام
ممنون که جوابمو دادین.
مشکلم حل شد.این طوری:



<%

session.CodePage="65001"

if session("username")<>"" and session("password")<>"" then

sqlstr4="select * from Maghale where [mcode]= "& session("password")

sqlstr3="select * from Nevisande where [email]='" & session("username") & "'"

set rec4=server.createobject("adodb.recordset")

rec4.open sqlstr4,dbcon,adOpenstatic,adLockOptimistic,adcmdt  ext

set rec3 =server.createobject("adodb.recordset")

rec3.open sqlstr3,dbcon,adOpenstatic,adLockOptimistic,adcmdt  ext

%>

<%

rec4.close

rec3.close

set rec4=nothing

set rec3=nothing

set rec5=server.CreateObject("adodb.recordset")

'sqlstr5="select * from Maghale where [mcode]=" & session("password")

rec5.open "Maghale",dbcon,adopenstatic,adlockoptimistic,adcm  dtable

rec5.absoluteposition=session("password")

rec5.fields("mname")=trim(request.Form("mname"))

rec5.fields("chekide")=trim(request.Form("chekide"  ))

rec5.fields("kkelidi")=trim(request.Form("kkelidi"  ))

rec5.fields("pdf")=trim(request.Form("pdf"))

rec5.update

rec5.close

set rec5=nothing

set rec6=server.CreateObject("adodb.recordset")

rec6.open "Nevisande",dbcon,adopenstatic,adlockoptimistic,ad  cmdtable

rec6.absoluteposition=session("password")

  rec6.fields("efname") = Trim(request.form("efname"))

  rec6.fields("elname") = Trim(request.form("elname"))

  rec6.fields("address") = Trim(request.form("address"))

  rec6.fields("tel") = Trim(request.form("tel"))

  rec6.fields("madrak") = Trim(request.form("madrak"))

  rec6.fields("fname2") = Trim(request.form("fname2"))

  rec6.fields("lname2") = Trim(request.form("lname2"))

  rec6.fields("fname3") = Trim(request.form("fname3"))

  rec6.fields("lname3") = Trim(request.form("lname3"))

  rec6.update

  rec6.close

  set rec6=nothing

   <!--  msgstr=" .مشخصات شما ثبت شد.از عضویت شما متشکریم"-->

 

end if

  %>

از دو تا رکورد ست استفاده کردم یکی برای نمایش یکی هم برای ویرایش.
توی رکوردست ویرایش هم اینو گذاشتم:



rec6.absoluteposition=session("password")

**sara** · یک شنبه 28 مرداد 1386, 05:26 صبح

ولی حالا توی یه فرم دیگم اشکال پیدا کردم.
توی یک فرم می خوام دو رکورد از یک جدول رو ثبت کنم. توجه کنید دو رکورد در یک زمان توی یک جدول.
باید از adlockbatchoptimistic استفاده کنم؟ روش استفادش چیه؟ رکوردست غیر متصل چیه؟
مرسی. منتظر جوابتون هستم!
فووووووووووووریه.

نام تاپیک: update سه جدول در یک فرم

ابزار های تاپیک

نمایش

update سه جدول در یک فرم

حل شد

adlockbatchoptimistic

تاپیک های مشابه

مشکل در دانلود JDK 5.0 Update 8 از سایت sun

مشکل در Update کردن

update

یک سئوال در مورد Update کردن 2 جدول در Dbهای مختلف

چگونه از Update اطلاعات جداول در Ado مطلع شویم ؟

قوانین ایجاد تاپیک در تالار