สอบถามเรื่องการเก็บค่าลงฐานข้อมูลของ FOR LOOP เมื่อได้ค่ามาแล้วจะนำค่าที่ได้เก็บลงฐานข้อมูลได้อย่างไร
Code (ASP) <html>
<head>
<title>ThaiCreate.Com ASP & Microsoft Access Tutorial</title>
</head>
<body>
<%
Dim Conn,strSQL,objExec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("mydatabase.mdb"),"" , ""
For Each chkVol in Request.Form("chkDel")
strSQL = ""
strSQL = strSQL&"INSERT INTO mytable (Column1) "
strSQL = strSQL&"VALUES ('"&chkVol&"') "
Set objExec = Conn.Execute(strSQL)
Next
Response.write("Record Deleted.")
Conn.Close()
Set objExec = Nothing
Set Conn = Nothing
%>
</body>
</html>
Go to : ASP Microsoft Access Multiple Checkbox Delete Record
Date :
2011-04-23 16:40:42By :
webmaster
ขอลองก่อนค่ะ ได้ไม่ได้ยังไงเดี๋ยวมาต่อ
Date :
2011-04-23 16:45:31By :
nodlife
ลองแล้วค่ะ ค่าที่อัพลง อัพลงแค่ ตัวเลือกตัวแรกเท่านั้นCode (ASP) <html>
<head>
<title>ThaiCreate.Com Tutorial</title>
</head>
<body>
<form action="PageMultiCheckbox2.asp" method="post" name="form1">
Please select color.<br>
<input type="checkbox" name="chkColor" value="Red">Red<br>
<input type="checkbox" name="chkColor" value="Blue">Blue<br>
<input type="checkbox" name="chkColor" value="Green">Green<br>
<input type="checkbox" name="chkColor" value="Orange">Orange<br>
<input type="checkbox" name="chkColor" value="Black">Black<br>
<input name="btnSubmit" type="submit" value="Submit">
</form>
</body>
</html>
Code (ASP) <html>
<head>
<title>ThaiCreate.Com ASP & Microsoft Access Tutorial</title>
</head>
<body>
<%
Dim Conn,strSQL,objExec
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost;UID=root; " & _
"pwd=root;database=test;option=16384;"
For Each chkVol in Request.Form("chkColor")
strSQL = ""
strSQL = strSQL&"INSERT INTO Table_1 "
strSQL = strSQL &"(id_a,chkbox,testcom) "
strSQL = strSQL &"VALUES "
strSQL = strSQL &"('4','"&chkVol&"', 'testttttt') "
Set objExec = Conn.Execute(strSQL)
Next
Response.write("Record Deleted.")
Conn.Close()
Set objExec = Nothing
Set Conn = Nothing
%>
</body>
</html>
Date :
2011-04-23 17:05:04By :
nodlife
ในส่วนของหน้ารับข้อมูล ลองเช็คแบบนี้ดูก่อนครับว่า ถ้าเลือกมา 3 ตัวแล้วมันโชว์ค่า 3 ตัวหรือเปล่าถ้าโชว์ ต้องเช็คต่อในตอนที่มัน insert ครับCode (ASP) <html>
<head>
<title>ThaiCreate.Com ASP & Microsoft Access Tutorial</title>
</head>
<body>
<%
For Each chkVol in Request.Form("chkColor")
Response.write chkVol & "<br>"
Next
%>
</body>
</html>
Date :
2011-04-25 07:52:29By :
diysms
ตอนรับค่ามา แล้วแสดงถูกต้องค่ะ
Date :
2011-04-25 09:13:47By :
nodlife
ผมไม่แน่ใจว่ามันเป็นเพราะมัน Key Duplicate หรือเปล่า ลอง Code ข้างล่างดูคับCode (ASP) <html>
<head>
<title>ThaiCreate.Com ASP & Microsoft Access Tutorial</title>
</head>
<body>
<%
Dim Conn,strSQL,objExec
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost;UID=root; " & _
"pwd=root;database=test;option=16384;"
i = 0
For Each chkVol in Request.Form("chkColor")
i = i +1
strSQL = ""
strSQL = "INSERT INTO Table_1 "
strSQL = strSQL &"(id_a,chkbox,testcom) "
strSQL = strSQL &" VALUES "
strSQL = strSQL &"(4 + i ,'"&chkVol&"', 'testttttt') "
Set objExec = Conn.Execute(strSQL)
Response.write strSQL & "<br>"
Next
Response.write("Record inserted.")
Conn.Close()
Set objExec = Nothing
Set Conn = Nothing
%>
</body>
</html>
Date :
2011-04-26 11:31:03By :
diysms
ขอลองก่อนค่ะ ช่วงย็นๆเดี๋ยวมารายงานผล
Date :
2011-04-26 11:34:29By :
nodlife
Server 02
Load balance : Server 02
