Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,027

HOME > ASP > ASP Forum > ไม่ลงฐานข้อมูล ช่วยเปิดดูให้ทีนะคะ จะขอบคุนมากค่ะ



 

ไม่ลงฐานข้อมูล ช่วยเปิดดูให้ทีนะคะ จะขอบคุนมากค่ะ

 



Topic : 010319

Guest




ค่ะ คือว่ามันไม่มีเออเรออ่ะค่ะ กรอกข้อมูลได้ตามปกติแต่ข้อมูลไม่ลงฐานข้อมูลน่ะค่ะ

//เช็คค่าในฐานข้อมูลว่า ถ้าเพิ่มข้อมูลไปใหม่แล้ว มี series ,model, sfx เหมือนกัน ให้ เพิ่ม z ,y, x?.. ต่อท้ายฟิลดิ์ sfx เพื่อที่จะให้ค่าแตกต่งกัน//

If (Request("savetypenew") ="บันทึก" ) then
If (Request("nmtypenew1") <> "") and (Request("nmtypenew2") <> "") and (Request("nmtypenew3") <> "") then
If (len(Request("nmtypenew1")) >= 12) and (len(Request("nmtypenew2")) >= 2) and (len(Request("nmtypenew3")) >= 1) then

// สร้าง array เก็บ ค่า

Cha = array
("Z","Y","X","W","V","U","T","S","R","Q","P","O","N","M","L","K","J","I","H","G","F","E","D","C","B","A")

//เชคก่อนว่ามี series ,model, sfx เหมือนกันไหม//

sql = ""
sql = sql &"select count(MMT_MOD_SFX) as AMOUNT_SFX,count(MMT_SRS_CD) as AMOUNT_SRS,count(MMT_MOD_CD) as AMOUNT_MOD"
sql = sql &" from DSP_MOD_MST"
sql = sql &" where MMT_MOD_SFX = '"&Request("nmtypenew2")&"'"
sql = sql &" and MMT_SRS_CD= '"&Request("codetypenew1")&"'"
sql = sql &" and MMT_MOD_CD = '"&Request("nmtypenew1")&"'"

set rs = conn.execute(sql)
if not rs.eof then
Totalrecord = rs("AMOUNT_SFX") //เอาจำนวน เรคคอร์ดเก็บไว้ในตัวแปรเพื่อวนลูป//
for i = 0 to Cint(Totalrecord)-1

sql = ""
sql = "Select * From DSP_MOD_MST"
sql = sql & " Where MMT_SRS_CD = '" &Request("codetypenew1")& "' and"
sql = sql & " MMT_MOD_CD = '" &Request("nmtypenew1")& "' and"
sql = sql & " MMT_MOD_SFX = '" &Request("nmtypenew2")& "' and"
sql = sql & " MMT_FR_DT <= '"&DateNow&"' "
set rs = conn.execute(sql)
do while not rs.eof
rs.movenext
loop

//ถ้าซ้ำให้ insert แล้วเพิ่ม z ในฟิลดิ์ MMT_MOD_SFX ค่า Request("nmtypenew2")&Cha(i)//

sql = ""
sql = "Insert Into DSP_MOD_MST"
??.
??.
sql = sql & " MMT_MOD_SFX,"

sql = sql & " Values ('"&Request("codetypenew1")&"' , "
??.
??.
sql = sql & " '"&Request("nmtypenew2")&Cha(i)&"' , "

end if
next
else

ถ้าค่าไม่ซ้ำให้ insert ธรรมดา ไม่ต้องเพิ่ม z ต่อท้าย



Tag : - - - -






Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 7 ต.ค. 2549 11:46:43 By : isis View : 1926 Reply : 1
 

 

No. 1

Guest


Code (ASP)
<% Option Explicit %>
<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"),"" , ""
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
Conn.Close()
Set objExec = Nothing
Set Conn = Nothing
%>
</body>
</html>


Go to : ASP Microsoft Access Add/Insert Record


Date : 2011-09-25 08:36:31 By : thaicreate
 

   

ค้นหาข้อมูล
   
 

แสดงความคิดเห็น
Re : ไม่ลงฐานข้อมูล ช่วยเปิดดูให้ทีนะคะ จะขอบคุนมากค่ะ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
 Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 04
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่