ช่วยเหลือด้วยครับการเช็คค่าจาก 2 textbox ว่าซ้ำใน db หรือไม่ ถ้าซ้ำหรือมีอยู่แล้วก็ไม่ต้องบันทึกครับ
Code (ASP) if Request.Form("TextField")<>"" then
sql = "select * from TABLE where FILED = '"&Request.Form("TextField")&"' "
Set objRec = Server.CreateObject("ADODB.Recordset")
objRec.Open sql, Conn
if objRec.eof then 'ถ้าไม่มี
..........................................................
else' ถ้ามี
...........................................................
end if
end if
Date :
2010-06-30 15:03:40By :
blacklion
Code (ASP Microsoft Access Check Already Exists Add/Insert Record <% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP & Microsoft Access Tutorial</title>
</head>
<body>
<%
Dim Conn,strSQL,objRec,objExec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("mydatabase.mdb"),"" , ""
strSQL = "SELECT * FROM customer WHERE CustomerID = '"&Request.Form("txtCustomerID")&"' "
Set objRec = Conn.Execute(strSQL)
IF Not objRec.EOF Then
Response.write("CustomerID already exist.")
Else
strSQL = ""
strSQL = strSQL &"INSERT INTO customer "
strSQL = strSQL &"(CustomerID,Name,Email,CountryCode,Budget,Used) "
strSQL = strSQL &"VALUES "
strSQL = strSQL &"('"&Request.Form("txtCustomerID")&"','"&Request.Form("txtName")&"', '"&Request.Form("txtEmail")&"' "
strSQL = strSQL &",'"&Request.Form("txtCountryCode")&"','"&Request.Form("txtBudget")&"', '"&Request.Form("txtUsed")&"') "
Set objExec = Conn.Execute(strSQL)
If Err.Number = 0 Then
Response.write("Save Done.")
Else
Response.write("Error Save ["&strSQL&"] ("&Err.Description&")")
End If
Set objExec = Nothing
End If
objRec.Close
Conn.Close()
Set objRec = Nothing
Set Conn = Nothing
%>
</body>
</html>
Quote: strSQL = "SELECT * FROM customer WHERE CustomerID = '"&Request.Form("txtCustomerID")&"' "
strSQL = "SELECT * FROM customer WHERE CustomerID = '"&Request.Form("txtbox1")&"' AND Field2 = '"&Request.Form("txtbox2")&"' "
Date :
2010-06-30 15:22:35By :
webmaster
ขอบคุณ sahachai , MR.WIN
Date :
2010-07-01 09:37:20By :
noomsake
Server 00
Load balance : Server 00
Quote:
