เช็คค่าที่กรอกในฟอร์มเปรียบเทียบกับค่าที่มีอยู่ในdatabase
ประมาณนี้นะครับ ตัดตอนเอา
<%
carxxid = Request.Form("carxxid")
milexx = Request.Form("milexx")
cardata_id = Request.Form("cardata_id")
'ถ้าทะเบียนรถที่จะกรอกเหมือนทะเบียนรถที่มีแล้วใน database ห้ามเพิ่ม
set cardata_rs = server.createObject("ADODB.recordset")
mysql = "select * from cardata where carxxid="&carxxid&""
cardata_rs.open mysql,con,1,3,1
if cardata_rs.recordcount > 0 then
Response.write"<script language = 'JavaScript'>"
Response.write"alert('มีทะเบียนรถนี้อยู่แล้วน่ะจ๊า');"
Response.write" history.back (-1);"
Response.write"</script>"
Response.end
end if
ตัวเลขไมล์นี้ไม่เข้าใจเท่าไร ว่าจะแก้ไข หรือ เพิ่ม ถ้าเพิ่ม จะเช็คกับ record ใหนว่า มันมากหรือน้อยกว่า แต่ว่าน่าจะเป็นแก้ไขมากว่าน่ะ ไม่ใช่เพิ่มใหม่
'จะเช็คต่อว่าเลขไมล์ที่กรอกมีค่ามากกว่าเลขไมล์เดิมที่มีอยู่ในdatbase เท่าไรถ้ามากกว่าเดิม เกิน 1000 ให้กรอกใหม่
set cardata_rs = server.createObject("ADODB.recordset")
mysql = "select * from cardata where cardata_id="&cardata_id&""
cardata_rs.open mysql,con,1,3,1
if milexx > cardata_rs("milexx") then
Response.write"<script language = 'JavaScript'>"
Response.write"alert('มากไปครับ กรอกใหม่');"
Response.write" history.back (-1);"
Response.write"</script>"
Response.end
else
cardata_rs("milexx") = milexx
cardata_rs.update
cardata_rs.close
set cardata_rs = nothing
end if
' http://www.smartproxp.com
%>
Date :
12 ก.ค. 2548 00:54:38
By :
สราวุธ
ช่วยดูให้อีกหน่อยนะคะ คือว่ายังไงก้สามารถเพิ่มข้อมูลลงในdatabase ได้ยกเว้น (กรณีทะเบียนรถเหมือนที่มีในdatabaseและเลขไมล์ที่กรอกมากกว่าเลขไมล์ที่มีอยู่เดิมในdatabase เกินกว่า1000หรือเลขไมล์ที่มีเดิม - เลขไมค์ที่จะกรอก > 1000)
-----ระบบจะให้กรอกข้อมูลทะเบียนรถ,เลขไมล์ โดยในการกรอกนั้นจะทำการเช็ค ดังนี้
------------------->>>>ทะเบียนรถที่กรอกเป็นเป็นทะเบียนรถที่มีอยู่แล้วหรือไม่
-----มีอยู่แล้ว เช็คต่อว่าเลขไมล์ที่กรอกมากกว่าเลขไมล์เดิมที่มีในdatabase เกิน 1000 หรือไม่
************เกิน 1000 ให้กรอกเลขไมล์ใหม่
************ไม่เกิน เพิ่มข้อมูลทะเบียนรถและ เลขไมล์ลงในdatabase (ข้อมูลทะเบียนรถคันเดียวกันและเลขไมล์ที่มีอยู่เดิมยังคงอยู่)เพราะเป็นการบันทึกข้อมูลในแต่ละวัน
-----เป็นทะเบียนรถใหม่ เพิ่มข้อมูลทะเบียนรถ ,เลขไมล์ ลงdatabase ได้เลย
ช่วยหน่อยนะคะ คือลองใช้โค้ตประมาณนี้ แต่มันไม่เช็คให้ค่ะ มันเพิ่มให้หมดเลย
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open ("Driver={Microsoft Access Driver (*.mdb)};DBQ="_
&Server.MapPath("Oil.mdb"))
sql="select*from t_bill where Car_id='"&request.form("Car_id")&"'"
Set rs = Server.CreateObject("ADODB.recordset")
rs.Open "T_Bill",Conn,1,3
'strMith = request.form(" mith_number")
if mith_number - rs("mith_number") > 1000 then
response.write"กรุณากรอกเลขไมล์ใหม่"
response.write("<a href='javascript:history.back()'><< กลับไปแก้ไข</a>")
else
rs.addnew
rs("Car_Id") = Car_Id
rs("mith_number") = mith_number
rs.update
rs.close
conn.close
Date :
12 ก.ค. 2548 10:13:00
By :
kobkorb
Load balance : Server 03