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,038

HOME > ASP > ASP Forum > ช่วยทีครับฐานข้อมูลที่เคยใช้ได้แต่ตอนนี้ใช้ไม่ได้ครับ



 

ช่วยทีครับฐานข้อมูลที่เคยใช้ได้แต่ตอนนี้ใช้ไม่ได้ครับ

 



Topic : 013575

Guest




มันขึ้น error อย่างนี้ครับ

Error Type:
Provider (0x80020005)
Type mismatch.
/inout/editer.asp, line 67


Browser Type:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)

Page:
POST 520 bytes to /inout/editer.asp

POST Data:
nrecieve=4987%2F47&dd1=1&mm1=%C1%A1%C3%D2%A4%C1&yy1=2546&dd3=1&mm3=%C1%A1%C3%D2%A4%C1&yy3=2546&dd2=1&mm2=%C1%A1%C3%D2%A4%C1&yy2=2546&numbook=%A1%C90919.16%281%29%2F530%2F47&bookto=%BC%CD.%CA%C7%BE.3&b . . .

เหมือนกับว่าไฟล์นี้ไม่สามารถเขียนข้อมูลได้ต่อนั่นเองครับ
ต้องมีวิธีแก้อย่างไรครับ ของผมเป็น windows2000advande ครับ

นี่ครับไฟล์

<%
Dim dnotfy, datebook, drecieve
BookId = Request.Form("BookId")
DD3 = Request.Form("dd3")
MM3 = Request.Form("mm3")
YY3 = Request.Form("yy3")
DD1 = Request.Form("dd1")
MM1 = Request.Form("mm1")
YY1 = Request.Form("yy1")
'dnotify = strDD1 & ", " & strMM1 & ", " & strYY1
'dnotify = Request.Form("dnotify")
nrecieve=Request.Form("nrecieve")
numbook=Request.Form("numbook")
DD2 = Request.Form("dd2")
MM2 = Request.Form("mm2")
YY2 = Request.Form("yy2")
'dnotify = Request.Form("dnotify")
nrecieve=Request.Form("nrecieve")
numbook=Request.Form("numbook")
'datebook=Request.Form("datebook")
bookfrom=Request.Form("bookfrom")
bookto=Request.Form("bookto")
title=Request.Form("title")
note=Request.Form("note")
pfile=Request.Form("pfile")
ento=Request.Form("chk1")
soil=Request.Form("chk2")
agro=Request.Form("chk3")
hort=Request.Form("chk4")
ppath=Request.Form("chk5")
extension=Request.Form("chk6")
econ=Request.Form("chk7")
animal=Request.Form("chk8")
secretary=Request.Form("chk9")
plan=Request.Form("chk10")
research=Request.Form("chk11")
library=Request.Form("chk12")
edu=Request.Form("chk13")
stu=Request.Form("chk14")
maehia=Request.Form("chk15")
train=Request.Form("chk16")
mcc=Request.Form("chk17")
general=Request.Form("chk27")
finance=Request.Form("chk19")
karasin=Request.Form("chk20")
muk=Request.Form("chk21")
agro1=Request.Form("chk22")
sakon=Request.Form("chk23")
sakon2=Request.Form("chk24")
nakon=Request.Form("chk25")
chai=Request.Form("chk26")
bookleader=Request.Form("bookleader")

set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/admin1.mdb")

set Rs = Server.CreateObject("ADODB.Recordset")
set Rs1 = Server.CreateObject("ADODB.Recordset")

SQL = "Select * From admin where Id = "& BookId &""
SQL1 = "Select * From reserv"

Rs.Open SQL,Conn,1,3

Rs("nrecieve") = nrecieve
Rs("numbook") = numbook
Rs("dnotify") = DD1 & ", " & MM1 & ", " & YY1
Rs("datebook") = DD2 & ", " & MM2 & ", " & YY2
Rs("drecieve") = DD3 & ", " & MM3 & ", " & YY3
Rs("bookfrom") = bookfrom
Rs("bookto") = bookto
Rs("title") = title
Rs("pfile")=pfile
Rs("note")=note
Rs("bookleader")=bookleader

if ento ="on" then
Rs("ento")="true"
else
Rs("ento")="false"
End if

if soil="on" then
Rs("soil")="true"
else
Rs("soil")="false"
End if

if agro ="on" then
Rs("agro")="true"
else
Rs("agro")="false"
End if

if hort="on" then
Rs("hort")="true"
else
Rs("hort")="false"
End if

if ppath ="on" then
Rs("ppath")="true"
else
Rs("ppath")="false"
End if

if extension="on" then
Rs("extension")="true"
else
Rs("extension")="false"
End if

if econ ="on" then
Rs("econ")="true"
else
Rs("econ")="false"
End if

if animal="on" then
Rs("animal")="true"
else
Rs("animal")="false"
End if

if secretary ="on" then
Rs("secretary")="true"
else
Rs("secretary")="false"
End if

if plan="on" then
Rs("plan")="true"
else
Rs("plan")="false"
End if

if research ="on" then
Rs("research")="true"
else
Rs("research")="false"
End if

if library="on" then
Rs("library")="true"
else
Rs("library")="false"
End if

if edu ="on" then
Rs("edu")="true"
else
Rs("edu")="false"
End if

if stu="on" then
Rs("stu")="true"
else
Rs("stu")="false"
End if

if maehia ="on" then
Rs("maehia")="true"
else
Rs("maehia")="false"
End if

if train="on" then
Rs("train")="true"
else
Rs("train")="false"
End if

if mcc ="on" then
Rs("mcc")="true"
else
Rs("mcc")="false"
End if



if finance="on" then
Rs("finance")="true"
else
Rs("finance")="false"
End if

if karasin="on" then
Rs("karasin")="true"
else
Rs("karasin")="false"
End if
if muk="on" then
Rs("muk")="true"
else
Rs("muk")="false"
End if
if agro1="on" then
Rs("agro1")="true"
else
Rs("agro1")="false"
End if
if sakon="on" then
Rs("sakon")="true"
else
Rs("sakon")="false"
End if
if sakon2="on" then
Rs("sakon2")="true"
else
Rs("sakon2")="false"
End if
if nakon="on" then
Rs("nakon")="true"
else
Rs("nakon")="false"
End if
if chai="on" then
Rs("chai")="true"
else
Rs("chai")="false"
End if
if general="on" then
Rs("general")="true"
else
Rs("general")="false"
End if

Rs.Update
Rs.Close

Rs1.open SQL1,Conn,1,3
Rs1.AddNew

Rs1("nrecieve") = nrecieve
Rs1("numbook") = numbook
Rs1("dnotify") = DD1 & ", " & MM1 & ", " & YY1
Rs1("datebook") = DD2 & ", " & MM2 & ", " & YY2
Rs1("drecieve") = DD3 & ", " & MM3 & ", " & YY3
Rs1("bookfrom") = bookfrom
Rs1("bookto") = bookto
Rs1("title") = title
Rs1("note")=note
Rs1("bookleader")=bookleader

Rs1.Update
Rs1.Close


Conn.Close
%>

<html>
<head>
<title>add</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<style type="text/css">
<!--
body { margin: 0px 0px; padding: 0px 0px}
a:link { color: #005CA2; text-decoration: none}
a:visited { color: #005CA2; text-decoration: none}
a:active { color: #0099FF; text-decoration: underline}
a:hover { color: #0099FF; text-decoration: underline}
-->
</style>
<meta http-equiv="refresh" content="2;URL=showsarabun.asp">
</head>

<body bgcolor="#FFFFFF">
<br>
<br>
<table width="70%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#3399FF">
<tr>
<td>
<div align="center"><font face="MS Sans Serif" size="1" color="#0000CC"><b><br>
หนังสือ <%=title%> ถูกแก้ไขเรียบร้อยแล้ว กรุณารอสักครู่ ... <font color="#FF0000"><br>
<br>
Please wait to retuen book page<br>
</font></b></font></div>
</td>
</tr>
</table>
<br>
</body>
</html>


Tag : - - - -






Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 9 พ.ค. 2550 17:10:06 By : chongwut View : 1535 Reply : 1
 

 

No. 1



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

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

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

ใช้การ Debug ทีล่ะ Step จะช่วยได้ครับ


Date : 2009-04-26 00:40:53 By : webmaster
 

   

ค้นหาข้อมูล
   
 

แสดงความคิดเห็น
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 03
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2025 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่