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

Registered : 107,506

HOME > ASP > ASP Forum > เขียน ASP ทำ sql update database access : ขึ้น error "Microsoft VBScript runtime error '800a01a8' " คะ แก้ไขยังงัยดีคะ / ขอบคุณคะ





 

เขียน ASP ทำ sql update database access : ขึ้น error "Microsoft VBScript runtime error '800a01a8' " คะ แก้ไขยังงัยดีคะ / ขอบคุณคะ

 



Topic : 065566

Guest




Code (ASP)
<html>
<head>
	<meta http-equiv=Content-Type content="text/html; charset=windows-874">
<script   language="JavaScript">
	function ch(){
var frm = document.form1
if (frm.Ecode1.value == "") {
	alert("กรุณาคีย์.รหัสผู้นำเสนอ.ด้วยคะ")
	frm.Ecode1.focus()
	return false
}
  	 if (confirm("ยืนยันการส่งข้อมูลนี้"))
		{return true;}
  	else
   	    {return false;}
 }
 
</script>	
<title>Kaizen System</title>
</head>
  <body bgcolor="white">

    <center>
      <table width="98%" height="40"><tr>
        <td background="../../images_default/backboard.gif" align="center"><font color="DarkBlue" size=3><b>
      Kaizen System </b></font></td>
      </tr></table>
       <%
	    Dim SpamProtect 'Protect Repeated Submit
		Dim KNo, ECode1
	    If Session("SpamProtect")=Null Then
		Session("SpamProtect")=False
	    End If
	     set conn=Server.CreateObject("ADODB.Connection")
	     str="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/kaizen/Kaizen.mdb")
	    Conn.Open str,"",""
	RS.Open sql, Conn, 1, 3
	KNo = Request.Form("KNo")
	Ecode1=request.form("Ecode1")
	DateTime=Date()
    set RS = conn.execute(sql)	
	sql="Update Kaizen Set  KNo = @KNo, Ecode1 =  @ECode1   where KNo =  @KNo"    
%>
	
	<%
	if (Ecode1<>"" ) then
	    RS.AddNew	
		RS("KNo")=KNo
		RS("Ecode1")=Ecode1		
		Rs("datetime")=datetime
		RS.Update	
	end if
	if not(RS.EOF) Then 
		RS.MoveFirst
	End If
	%>

<table width="98%" border="1">
 <tr bgcolor="#CCCCCC"><b>
 <td align="center">No.</td>
      <td align="center" >ECode1</td> </b></tr>
	       
   <tr bgcolor=<%=bg%>> <font size="-1">
    </td><td  align="center"><%=RS("KNo")%></td>
			             </font>
       <td align="center"><font size="-1"><%=RS("ECode1")%></font></td>      
   </tr>
	
  </table>

  </body>
  </html>
  <FORM action="Kaizen.asp" method="post"  onSubmit="return ch()"  name="form1">
    <p> <table width="90%" height="40"><tr><td background="../../images/230951_4311057.gif" align="center"><font color="#0052A4" size=+2>Register</font> </td></tr></table> 

    <table width="90%" align="center" bgcolor="#E4E2FE" >
      <tr> 		
	   <td align="right"><b>วันที่เสนอ : </b> </td>
		<td colspan="1"align="left"  valign="top"><input size="9" type="text"name="ECode1" >
		<b>&nbsp;&nbsp; KNo: </b> <input size="9" type="text"name="KNo" >	
		</td>	 
     </tr>
	 


      <tr> 
           <td height="26" colspan=11 align="middle" valign="top" bgcolor="#FFD5E1"><br>
		   <input type="submit" value="ส่งข้อมูล"  > 
		   <input type="reset" value="Clear" >
		  
<!--              <p><a href="Read_meeting1.asp" target="_blank">ดูข้อมูลทั้งหมด</a> --> </td>
           </tr>
         </table>
</FORM>




Tag : ASP, Ms Access, HTML/CSS, JavaScript, VBScript, Web (ASP.NET)







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2011-08-29 17:12:28 By : [email protected] View : 1309 Reply : 1
 

 

No. 1



โพสกระทู้ ( 73,941 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

Quote:
set conn=Server.CreateObject("ADODB.Connection")
str="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/kaizen/Kaizen.mdb")
Conn.Open str,"",""
RS.Open sql, Conn, 1, 3
KNo = Request.Form("KNo")
Ecode1=request.form("Ecode1")
DateTime=Date()
set RS = conn.execute(sql)
sql="Update Kaizen Set KNo = @KNo, Ecode1 = @ECode1 where KNo = @KNo"


ตรงนี้น่าจะผิดครับ คุณ RS.Open sql, Conn, 1, 3 ทั้ง ๆ ที่ตัวแปร sql ไม่มี ปกติผมใช้แบบนี้ครับ

Code (ASP)
<%
	Dim Conn,strSQL,objExec
	Set Conn = Server.Createobject("ADODB.Connection")
	Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("mydatabase.mdb"),"" , ""
	strSQL = "UPDATE customer SET "
	strSQL = strSQL&"CustomerID = '"&Request.Form("txtCustomerID")&"' "
	strSQL = strSQL&",Name = '"&Request.Form("txtName")&"' "
	strSQL = strSQL&",Email = '"&Request.Form("txtEmail")&"' "
	strSQL = strSQL&",CountryCode = '"&Request.Form("txtCountryCode")&"' "
	strSQL = strSQL&",Budget = '"&Request.Form("txtBudget")&"' "
	strSQL = strSQL&",Used = '"&Request.Form("txtUsed")&"' "
	strSQL = strSQL&"WHERE CustomerID = '"&Request.QueryString("CusID")&"' "
	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
%>


Go to : ASP Microsoft Access Edit/Update Record






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-08-29 17:34:04 By : webmaster
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : เขียน ASP ทำ sql update database access : ขึ้น error "Microsoft VBScript runtime error '800a01a8' " คะ แก้ไขยังงัยดีคะ / ขอบคุณคะ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม

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