 |
|
|
 |
 |
|
ไม่เข้าใจครับ ต้องการเปลี่ยนโดยการเขียนโปรแกรม หรือว่าใช้ Access เอง ครับ ขอรายละเีอียดหน่อยครับ
|
 |
 |
 |
 |
| Date :
22 พ.ย. 2547 13:02:51 |
By :
Max@77 |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
แปลงฐานข้อมูลให้เป้นรุ่นปัจจุบัน
|
| |
|
|
| |
| Date :
22 พ.ย. 2547 13:06:46 |
By :
Ton |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณครับ คืองี้ครับผมทำระบบLoginที่มีพนักงาน 2000กว่าคนครับแล้วแต่ละคนมีเลขประจำตัวอยู่แล้วครับผมจะนำเลขประจำตัวเป็นทั้งUsernameและPasswordครับ ที่ตารางมีฟิลท์หลักคือ ID_CODE เป็นแบบ NUMBER ครับผมอยากเปลี่ยนเป็นแบบ TEXT ครับ เพราะเป็นแบบNUMBER แล้วเลขประจำตัวที่ขึ้นต้นด้วยศูนย์จะหายหมดครับสมมุติครับ00165ก็จะเหลือในฟิลท์ ID_Code แค่165 ครับ
.................................. Code ที่ผมใช้ก็เอามาจากบทเรียนนี้แหละครับ .................................
sample1.asp
<html>
<body>
<form name="form1" method="post" action="sample2.asp">
<p>ID_CODE
<input type="text" name="id_code">
<br>
Password
<input type="password" name="password">
<br>
<br>
<input type="submit" value="Submit">
<input type="reset" value="Reset">
</p>
</form>
</body>
</html>
.............................................................................................................................................
<%
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/database.mdb"),"" , ""
'หรือจะใช้เป็น Conn.Open "database","",""
sql ="Select * From Cus_tomer where ID_code="&Request.Form("id_code")
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
if NOT(RS.EOF) then
if Request.Form("password")=RS("password") then
' ถ้าต้องการให้กระโดดไปหน้าที่ต้องการ Response.Redirect ("main.asp")
Response.write("ID_CODE และ รหัสผ่านถูกต้อง")
Response.write("<br>ตรงนี้ขึ้นอยู่กับการออกแบบของคุณ หรืออาจจะให้กระโดดไปหน้าอื่น ")
else
response.write("รหัสผ่านไม่ถูกต้อง")
end if
else
response.write("ไม่มี ID_Code นี้ใน ฐานข้อมูล")
end if
%>
....................................................................
ถ้าผมทำตามบทเรียนนี้โดยไม่ดัดแปลงอะไรมันก็ใช้ได้ครับ แต่มันมีความจำเป็นจริงๆเพราะมีข้อมูลพนักงานอยู่แล้วครับหรือทางพี่มี Code ที่ง่ายกว่านี้แนะนำด้วยครับ ขอบคุณมากครับ
|
| |
|
|
| |
| Date :
22 พ.ย. 2547 14:08:48 |
By :
mmcmws |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ไม่ยากครับ ขั้นแรกให้เปลี่ยนชนิดข้อมูลจาก Number ให้เป้น Text ครับ
จากน้นในส่วนของ Sql Statement ให้เปลี่ยนในรูปแบบของการ Select String
'หรือจะใช้เป็น Conn.Open "database","",""
sql ="Select * From Cus_tomer where ID_code='"&Request.Form("id_code")&"'"
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
|
| |
|
|
| |
| Date :
22 พ.ย. 2547 14:33:23 |
By :
@W_IN |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณมากๆเลยครับ คุณ @_W_IN ขอคารวะหนึ่งจอกครับ งมมาตั้งนาน ขอบคุณจริงๆครับ 
|
| |
|
|
| |
| Date :
23 พ.ย. 2547 16:57:55 |
By :
mmcmws |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
