|
 |
| |
อยากได้โค้ดในการตรวจสอบ รหัสสมาชิก ค่ะว่า รหัสสมาชิกนี้มีอยู่แล้วอะค่ะ |
| |
 |
|
|
 |
 |
|
อยากได้โค้ดในการตรวจสอบ รหัสสมาชิก ค่ะว่า รหัสสมาชิกนี้มีอยู่แล้วอะค่ะ
<!--#Include file = "connect.asp" -->
<%
MemID = request.Form("txtMemID")
FullName = request.Form("txtFullName")
Sex = request.Form("frmSex")
Address = request.Form("txtAddress")
Tel = request.Form("txtTel")
UserName = request.Form("txtLogin")
Pass1 = request.Form("txtPassword")
Pass2 = request.Form("txtConfirmPassword")
Fac = request.Form("chxFac")
Major = request.Form("chxMajor")
UserType = request.Form("chxType")
DateRegis = month(NOW)&"/"&day(NOW)&"/"& Year(NOW) &" "& Hour(now) &":"&minute(now) &":"& second(now)
sql = "insert into Member ( MemberId, FullName, Sex, Address ,Telephone, Username, Password, Faculty, Branch, Membertype, DateRegis)"
sql = sql & " values ('" & MemID &"','" & FullName &"','" & Sex &"','" & Address &"','" & Tel &"','" & UserName &"','" & Pass1 &"','" & Fac &"','" & Major &"','" & UserType &"','" & DateRegis &"')"
set rs = server.CreateObject("ADODB.Recordset")
rs.open sql , conn,1,3
response.Redirect("welcome.asp")
'Response.Write(sql)
session("ErrorMsg") = ""
%>
ช่วยดูให้หน่อยนะค่ะด่วนมาก
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
2009-06-14 18:19:13 |
By :
ao_01 |
View :
1715 |
Reply :
3 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ก่อนจะ insert ก็เอา MemID ที่กรอกมาไป select ก็ก่อนสิครับ
ถ้าเจอก็แจ้งว่ามี MemID นี้แล้วให้กรอกใหม่
ถ้าไม่เจอก็ insert ไปปรกติ
เอา if...else ครอบไว้
จบ
|
| |
|
|
| |
| Date :
2009-06-14 23:47:48 |
By :
iamatomix |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (ASP)
<% 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>
Go to : ASP Microsoft Access Check Already Exists Add/Insert Record
|
| |
|
|
| |
| Date :
2011-06-07 21:30:44 |
By :
webmaster |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
อยากได้C#ค่ะ ช่วยหน่อยนะคะ
|
| |
|
|
| |
| Date :
2011-10-09 15:07:41 |
By :
Nookikzyy |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
 Load balance : Server 00
|
