Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > ASP > ASP Forum > ขอร้องละครับช่วยผมที่ พยายามทุกอย่างแล้ว คือ ผมเขียน asp เชื่อมต่อกับ access โดย access link ฐานข้อมูลมาจาก excel ครับ

ขอร้องละครับช่วยผมที่ พยายามทุกอย่างแล้ว คือ ผมเขียน asp เชื่อมต่อกับ access โดย access link ฐานข้อมูลมาจาก excel ครับ

เริ่มหัวข้อใหม่

Guest

คือ ผมเขียน asp เชื่อมต่อกับ access โดย access link ฐานข้อมูลมาจาก excel ครับ
ซึ่งระบบนี้ใช้จริงในบริษัท โดยลักษณะการเขียนแล้วในตัวของ access จะมีการ SELECT ข้อมูล
เพื่อมาแสดง แล้วทำการเขียน asp เรียกใช้ข้อมูลจาก access ลักษณะนี้ครับ

set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_pcreport_STRING
Recordset1.Source = "SELECT sum(CountOfcomname) FROM sgiall"

แต่พอผม จะทำการแก้ไขข้อมูลการ SELECT ใหม่เพื่อแสดงผลข้อมูลใหม่ปรากฏว่า error แบบนี้ครับ

###########################################################
The page cannot be displayed
There is a problem with the page you are trying to reach and it cannot be displayed.

--------------------------------------------------------------------------------

Please try the following:

Click the Refresh button, or try again later.

Open the localhost home page, and then look for links to the information you want.
HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services

--------------------------------------------------------------------------------

Technical Information (for support personnel)

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet database engine cannot open the file '(unknown)'. It is already opened exclusively by another user, or you need permission to view its data.
/pc/sgilocation.asp, line 5

Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; InfoPath.2; .NET CLR 2.0.50727)

Page:
GET /pc/sgilocation.asp

Time:
19 มิถุนายน 2551, 17:51:09

More information:
Microsoft Support

###########################################################

######## แต่พอผม RESTART เครื่องใหม่แล้ว localhost ใหม่ปรากฏว่ารันได้##########

ซึ่งโค้ดจริงๆ เป็นแบบนี้ครับ

######################################
<%@LANGUAGE="VBSCRIPT"%>

<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_pcreport_STRING
Recordset1.Source = "SELECT sum(CountOfcomname) FROM sgiall"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Recordset7__MMColParam
Recordset7__MMColParam = "com41"
if (Request("MM_EmptyValue") <> "") then Recordset7__MMColParam = Request("MM_EmptyValue")
%>
<%
set Recordset7 = Server.CreateObject("ADODB.Recordset")
Recordset7.ActiveConnection = MM_pcreport_STRING
Recordset7.Source = "SELECT sum(CountOfcomname) FROM sgi_rent_buy WHERE comno LIKE '" + Replace(Recordset7__MMColParam, "'", "''") + "%'"
Recordset7.CursorType = 0
Recordset7.CursorLocation = 2
Recordset7.LockType = 3
Recordset7.Open()
Recordset7_numRows = 0
%>
<%
Dim Recordset8__MMColParam
Recordset8__MMColParam = "com51"
if (Request("MM_EmptyValue") <> "") then Recordset8__MMColParam = Request("MM_EmptyValue")
%>
<%
set Recordset8 = Server.CreateObject("ADODB.Recordset")
Recordset8.ActiveConnection = MM_pcreport_STRING
Recordset8.Source = "SELECT sum(CountOfcomname) FROM sgi_rent_buy WHERE comno LIKE '" + Replace(Recordset8__MMColParam, "'", "''") + "%'"
Recordset8.CursorType = 0
Recordset8.CursorLocation = 2
Recordset8.LockType = 3
Recordset8.Open()
Recordset8_numRows = 0
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
End If
Next

' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<html>
<head>
<title>Untitled Page</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<style type="text/css">

</style>
</head>
<body background="image/bgsea.jpg">
<div align="center">
<p> </p>
<p><font face="Tahoma, Tahoma" size="5"><font color="#ff0033"><b>รายงานจำนวนเครื่องคอมทั้งหมด</b></font></font></p>
<table width="51%" border="1" bgcolor="#ffff00">
<tr bgcolor="#99ccff">
<td width="14%">
<div align="center"><font face="Tahoma, Tahoma" size="2"><font color="#006600"><b>สถานที่</b></font></font></div>
</td>
<td width="15%">
<div align="center"><font face="Tahoma, Tahoma" size="2"><font color="#006600"><b>เช่า</b></font></font></div>
</td>
<td width="15%">
<div align="center"><font face="Tahoma, Tahoma" size="2"><font color="#006600"><b>ซื้อ</b></font></font></div>
</td>
<td width="15%">
<div align="center"><font face="Tahoma, Tahoma" size="2"><font color="#006600"><b>รวม</b></font></font></div>
</td>
</tr>
<tr>
<td width="14%" align="center"><b>SGI</b></td>
<td width="15%" bgcolor="#ffffff">
<div align="center"><font face="Tahoma, Tahoma" size="2"><b><A HREF="rentsgi.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "Expr1000=" & Recordset7.Fields.Item("Expr1000").Value %>"><%=(Recordset7.Fields.Item("Expr1000").Value)%></A></b></font></div>
</td>
<td width="15%" bgcolor="#ffffff">
<div align="center"><font face="Tahoma, Tahoma" size="2"><b><A HREF="buysgi.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "Expr1000=" & Recordset8.Fields.Item("Expr1000").Value %>"><%=(Recordset8.Fields.Item("Expr1000").Value)%></A></b></font></div>
</td>
<td width="15%" bgcolor="#ffffff">
<div align="center"><font face="Tahoma, Tahoma" size="2"><b><A HREF="reportsgi.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "Expr1000=" & Recordset1.Fields.Item("Expr1000").Value %>"><%=(Recordset1.Fields.Item("Expr1000").Value)%></A></b></font></div>
</td>
</tr>
<tr>
</table>
<p><a href="menu_sgi.asp"><font face="Tahoma, Tahoma" size="3"><b>กลับสู่หน้าแรก</b></font></a></p>
<p>  </p>
</div>
</body>
</html>
<%
Recordset1.Close()
%>
<%
Recordset2.Close()
%>
<%
Recordset3.Close()
%>
<%
Recordset4.Close()
%>
<%
Recordset5.Close()
%>
<%
Recordset6.Close()
%>
<%
Recordset7.Close()
%>
<%
Recordset8.Close()
%>
<%
Recordset9.Close()
%>
<%
Recordset10.Close()
%>
<%
Recordset11.Close()
%>
<%
Recordset12.Close()
%>

###########################3
โดยมีไฟล์Connect ชื่อว่า pcreport

<%
'FileName="Connection_odbc_conn_dsn.htm"
'Type="ADO"
'HTTP="false"
'Catalog=""
'Schema=""
MM_pcreport_STRING = "dsn=pcreport;"
%>

มันเป็นอย่างนี้เพราะอะไรอะครับ รบกวนท่านผู้รู้ช่วยชี่แนะด้วยนะครับ
จะเกี่ยวกับ iis หรือ odbc หรือป่าวไม่แน่ใจครับ
คืออยากให้งานเสร็จอะครับจะแก้ก็ทำไม่ได้แต่นิดหน่อยก็ error และครับ

ขอบคุณนะครับที่ช่วยแนะนำผม

Tag : - - - -

Date : 19 มิ.ย. 2551 17:55:25

By : นาย PETER

View : 1787

Reply : 1

No. 1

Guest

เปิด access ไว้หรือเปล่าครับ ตอนที่พยายามเข้าถึงข้อมูลนะ

Date : 26 มิ.ย. 2551 13:58:48

By : ไกด์

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : ขอร้องละครับช่วยผมที่ พยายามทุกอย่างแล้ว คือ ผมเขียน asp เชื่อมต่อกับ access โดย access link ฐานข้อมูลมาจาก excel ครับ

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

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

Load balance : Server 03

Registered : 109,038

No. 1

ค้นหาข้อมูล

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

Notice