من يك فرم با asp در ست كردم برايويراش كردن فليدهاي ان مشكل دارم يعني وقتي ميخوام يك فليد رو update كنم نمي شه البته من زياد كد نويسي بلد نيستم دوستاني كه تو اين كار مهارت دارن به من كمك كنن (من ميخوام كه تمامي فليدها رو بشه ويرايش و به روز رساني كرد)
<%
Dim Stt
Dim Action
Action=Ucase(request.form("Action"))
if Action="ADD" then
s1=trim(request.form("s1"))
s2=trim(request.form("s2"))
s3=trim(request.form("s3"))
s4=trim(request.form("s4"))
s5=trim(request.form("s5"))
s6=trim(request.form("s6"))
s7=trim(request.form("s7"))
s8=trim(request.form("s8"))
s9=trim(request.form("s9"))
s10=trim(request.form("s10"))
s11=trim(request.form("s11"))
s12=trim(request.form("s12"))
s13=trim(request.form("s13"))
s14=trim(request.form("s14"))
s15=trim(request.form("s15"))
s16=trim(request.form("s16"))
s17=trim(request.form("s17"))
s18=trim(request.form("s18"))
s19=trim(request.form("s19"))
s20=trim(request.form("s20"))
s21=trim(request.form("s21"))
TheDatabaseFile = "..\db\RAK.mdb"
set DB = server.createobject("adodb.connection")
DB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath ( TheDatabaseFile )
Sq="Insert into sys(s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13,s14,s15,s16,s17,s18,s19,s20,s21) values( '" & s1 & "','" & s2 & "','" & s3 & "','" & s4 & "','" & s5 & "','" & s6 & "','" & s7 & "','" & s8 & "','" & s9 & "','" & s10 & "','" & s11 & "','" & s12 & "' ,'" & s13 & "' ,'" & s14 & "' ,'" & s15 & "' ,'" & s16 & "' ,'" & s17 & "' ,'" & s18 & "' ,'" & s19 & "' ,'" & s20 & "' ,'" & s21 & "' )"
set rs = DB.execute(Sq)
DB.close
set DB = nothing
end if
s1=""
s2=""
s3=""
s4=""
s5=""
s6=""
s7=""
s8=""
s9=""
s10=""
s11=""
s12=""
s13=""
s14=""
s15=""
s16=""
s17=""
s18=""
s19=""
s20=""
s21=""
%>
و كد صفحه خروجي به به اين شكل
کد:
<%
TheDatabaseFile = "..\db\rak.mdb"
set OpenDatabase = server.createobject("adodb.connection")
OpenDatabase.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath ( TheDatabaseFile )
sqlquery = "SELECT * FROM sys where id=" & request.querystring("Idn") & " Order By id"
set ResultSet = OpenDatabase.execute( sqlquery )
%>
با توجه به كدهاي ورودي اطلاعات و خروحي آن
كد update چطوري بايد نوشته شود من به جاي كلمه هاي كليدي insert و selet كلمه update sys set را قرار دادم ولي هيج نتيجه اي نگرفتم
ميخوام بدون تو اين كدها چطوري بايد كد update رو بنويسم كه جواب بده
به قول پيمان يا حضرت عباس 8O
21 ای Input؟ 8O
خوب حتماً تویه نوشتن اینها مشکل دارید و قرو قاطی میشه واسه همین جواب نمیده.
اما برایه اینکه بخوایید اینو به Update اینو بنویسید . باید به صورت زیر عمل کنید:
کد:
Update sys Set s1='Value', S2='Value',....... Where myID = " & myIDNumber
راستی این Table ه sys فکر کنم ماله خوده سیستم باشه و استفاده ازش شما رو دچار دردسر کنه.
نام Table اتون رو تغییر بدید.
در ضمن اگر از .Net استفاده میکردید. یک راه خیلی جالبی بهتون میگفتم.
راستی میتونید از Query البته درست یادم نمیاد اسمش رو.
این گزینه تویه Access هست که زیر Table هستش.
شما میتونید از این سیستم جهت ذخیره ،حذف ،به روزرسانی و خواندن استفاده کنید.
که این گزینه معروف به : StoredProcedure هست.
این سیستم به این صورت عمل میکنه:
کد:
Insert Into myTable(Col1, Col2, Col3)
Values(@Parameter1, @Parameter2, @Parameter3)
و شما با دادن Parameter ها میتونید خیلی کار خودتون رو راحت کنید. که باز هم این سیستم در .Net خیلی خیلی قوی و کامل هست.
دوست گرامي با اين كه شما نوشتيد من براي هر بار به روز كردن بانك اطلاعاتي نياز به باز كردن سرس و تغيير دادن آن ولي من ميخوام كه به روز رساني از طريق ارسال پارامتر انجام بشه به اين صورت كه از يك textbox بنويسم و داخل بانك اطلاعاتي تغييرات انجام شود.
لطفا كد رو براي اين منظور برايم بنويسيد --
يا اگر براتون امكان داره فايل رو دنلود كرده و تغييرات لازم رو توش انجام بدين من خيلي به اين كد نياز دارم
با تشكر از همه دوستان كه من را راهنمايي كردن
