ตอนนี้คือผมออกแบบฟอร์มในการบันทึกสินค้าทีละ 5 เรคคอร์ด ในแต่ละวัน
ซึ่งจะประกอบด้วย SUBTYPE คือ โค๊ดประเภทของสินค้า INDATE คือวันที่บันทึก และ ACTUAL จำนวน ซึ่งจะมี ID เป็นคีย์หลักของ table โดยเป็น Auto Number
แต่ผมต้องการ ป้องกันไม่ให้เกิดการบันทึกซ้ำของข้อมูลในแต่ละวัน
ที่ผมทดลองดูคือถ้าเพิ่มทีละ เรคคอร์ด จะสามารถทำได้ครับ แต่พอผมเพิ่มทีละห้าเรคคอร์ด ไม่ได้ครับ
ไม่รู้ว่าเขียนถูกหรือเปล่า ช่วยดูให้หน่อยนะครับ
<%
Set Conn=Server.Createobject("ADODB.Connection")
myDSN="DSN=TestDB;UID=test;PWD=test;SERVER=172.16.111.333;ConnectString=test;"
Conn.Open myDSN
sql ="Select * From CONSOLIDATE1 where SUBTYPE = '"&Request.Form("SUBTYPE")&"' and INDATE='"&Request.Form("INDATE")&"'"
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
if NOT(RS.EOF) then
response.write(" วันที่นี้มีข้อมูลอยู่แล้ว")
else
For i=1 To Request.Form("SUBTYPE").Count
if Request.Form("SUBTYPE")(i) <> "" then
Rs.AddNew
Rs("SUBTYPE") = Request.Form("SUBTYPE")(i)
Rs("INDATE") = Request.Form("INDATE")(i)
Rs("ACTUAL") = Request.Form("ACTUAL")(i)
Rs.Update
End if
Next
Conn.Close
response.write(" เพิ่มข้อมูลแล้ว")
%>
Load balance : Server 00
