|
 |
| |
พี่ครับ!! ผมอยากจะทำตัวนับเวลาที่มีคนคลิกอ่าน พี่ครับ!! ผมอยากจะทำตัวนับเวลาที่มีคนคลิกอ่าน คลิกโหลด |
| |
 |
|
|
 |
 |
|
เก็บลงฐานข้อมูลครับ เวลามีคนคลิกมาหน้านี้ก็ให้บวกเพิ่มแล้วบันทึกลงฐานข้อมูล
|
 |
 |
 |
 |
| Date :
1 ธ.ค. 2549 10:38:14 |
By :
sk |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ขอบคุณมากครับพี่ แต่ผมเพิ่งจะหัดทำ เลยไม่ค่อยรู้เรื่องเท่าไหร่ครับ อีกอย่าง ไม่มีพื้นฐานการเขียนโปรแกรมมาก่อน อาศัยว่าชอบและอยากมีความรู้ ขอพี่ sk ได้โปรดชี้แนะมากกว่านี้ครับ
|
| |
|
|
| |
| Date :
1 ธ.ค. 2549 11:19:28 |
By :
jarus |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
<%
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("database.mdb"),"" , ""
sqlquery ="Select * From MainDATA order by ONO"
Set RSquery =Server.CreateObject("ADODB.Recordset")
RSquery.open Sqlquery,Conn,1,3
if RSquery.EOF or rsquery.bof then
Rsquery.AddNew
Rsquery("ONO") = "W00000"
Rsquery("PCODE") = Request.Form("PCODE")
Rsquery.Update
Conn.Close
response.write("เพิ่มข้อมูลเรียบร้อยแล้ว")
else
rsquery.movelast 'เลื่อนไปยังเรคอร์ดสุดท้ายอะนะ เพราะว่าเราจะเอาค่าของฟิลด์ ONO ล่าสุดมาบวกเพิ่มอีก 1
tmpStr = Left(rsquery("ONO"),1) 'ตัดเอาเฉพาะตัว W มา
tmpNum = Right(rsquery("ONO"),5)
tmpAdd = tmpStr & tmpNum + 1 'จะได้ค่าเลขที่ใบสั่งงานเพิ่มขึ้นมาอีก 1
Rsquery.AddNew
Rsquery("ONO") = tmpAdd
Rsquery("PCODE") = Request.Form("PCODE")
Rsquery.Update
Conn.Close
response.write("Recode OK")
end if
%>
------------------------------------
1.ฐานข้อมูลชื่อ database.mdb
2.ชื่อตาราง MainDATA
3.มีฟิลท์ 2 ฟิลท์ ชื่อ ONO เก็บข้อมูลตัวเลขค่าเริ่มต้นเป็น W00000 หรือแต่ต้องการให้ไปแก้ไขเองต้องการตัวเลขกี่หลักสำตัว W นั้นลองลบออกดูนะ
4.ฟิลท์ PCODE เอาใว้เก็บข้อความอื่นๆ
5.ตัวเลขที่ช่อง ONO จะเพิ่มขึ้นทีละ 1 เมื่อมีการเพิ่มข้อมูลเข้ามา
6.ส่วนวิธีการส่งข้อมูลเข้านั้นลองคิดและหาวิธีดัดแปลงเอานะ ที่ผมทำอยู่ใช้วิธีป้อนข้อมูลจากฟอร์ม
|
| |
|
|
| |
| Date :
3 ธ.ค. 2549 10:36:33 |
By :
Mus |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบพระคุณอย่างสูงครับท่านพี่
น้องซาบซึ้งในน้ำใจของท่านพี่ ขอให้ท่านจงเจริญในทุกๆด้าน
|
| |
|
|
| |
| Date :
3 ธ.ค. 2549 11:10:24 |
By :
jarus |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
 Load balance : Server 05
|
