Ошибка 2147217900 не удалось выполнить sql запрос

I have a page that is supposed to display the results of a search. I
keep getting the following error message.

Microsoft OLE DB Provider for SQL Server error ‘80040e14’

Line 1: Incorrect syntax near ‘1’.

/osDetail2.asp, line 35

Line 35 is rsResults.Open()

what could be causing me to get this message?? Thanks for any help you
can give.

Dim rsResults
Dim rsResults_cmd
Dim rsResults_numRows

Set rsResults_cmd = Server.CreateObject («ADODB.Command»)
rsResults_cmd.ActiveConnection = MM_chwcConn_STRING
rsResults_cmd.CommandText = «SELECT * FROM dbo.tblOpenShifts WHERE Location = ‘MMColParam’ ORDER BY Location ASC»
rsResults_cmd.Prepared = true

I should have said it before but I’m using Dreamweaver to help me write the SQL. I played around with it and by using the following code, all the records are returned, I can’t figure out how to filter them.

Code:

Dim rsResults
Dim rsResults_cmd
Dim rsResults_numRows

Set rsResults_cmd = Server.CreateObject ("ADODB.Command")
rsResults_cmd.ActiveConnection = MM_chwcConn_STRING
rsResults_cmd.CommandText = "SELECT * FROM dbo.tblOpenShifts t ORDER BY t.Location ASC" 
rsResults_cmd.Prepared = true
rsResults_cmd.Parameters.Append rsResults_cmd.CreateParameter("param1", 200, 1, 255, rsResults__MMColParam) ' adVarChar

Set rsResults = rsResults_cmd.Execute
rsResults_numRows = 0

Ok, I had a chance to test it today and I can get it to filter the results by one criteria, but I need to filter the results by 3 different criteria. I only want the Location, Shift and Position that the user entered in the search forms. Any help/direction will be greatly appreciated.

I’ll give it a try tomorrow. I’m heading out for today.

I’m really getting frustrated with this!! Here’s my code that creates the recordset, maybe you can spot what’s causing it to not work.

Code:

<%
Dim rsResults__varLocation
rsResults__varLocation = "1"
If (Request.Form("Location")  <> "") Then 
  rsResults__varLocation = Request.Form("Location") 
End If
%>
<%
Dim rsResults__varPosition
rsResults__varPosition = "%"
If (Request.Form("Position") <> "") Then 
  rsResults__varPosition = Request.Form("Position")
End If
%>
<%
Dim rsResults__varShift
rsResults__varShift = "1"
If (Request.Form("Shift") <> "") Then 
  rsResults__varShift = Request.Form("Shift")
End If
%>
<%
Dim rsResults
Dim rsResults_cmd
Dim rsResults_numRows

Set rsResults_cmd = Server.CreateObject ("ADODB.Command")
rsResults_cmd.ActiveConnection = MM_chwcConn_STRING
rsResults_cmd.CommandText = "SELECT Location, Position, ShiftTime, SpecialNote, DatePosted, DateExpired, ContactEmail, ContactPhone, PositionOpen FROM dbo.tblOpenShifts t WHERE t.Location = ? AND t.Position = ? AND t.ShiftTime = ? ORDER BY Location ASC" 
rsResults_cmd.Prepared = true
rsResults_cmd.Parameters.Append rsResults_cmd.CreateParameter("param1", 200, 1, 255, rsResults__varLocation) ' adVarChar
rsResults_cmd.Parameters.Append rsResults_cmd.CreateParameter("param2", 200, 1, 255, rsResults__varPosition) ' adVarChar
rsResults_cmd.Parameters.Append rsResults_cmd.CreateParameter("param3", 200, 1, 255, rsResults__varShift) ' adVarChar

Set rsResults = rsResults_cmd.Execute
rsResults_numRows = 0
%>

Right now I’m not getting any error messages, just not getting any results either,doesn’t matter what I try as search terms. I’ll have to check to see which columns are VarChars, I think they all are except for DatePosted and DateExpired. If they aren’t VarChars how do I set an appropriate type?

I think I’m getting closer. This is how the code is now as created by Dreamweaver.

Code:

rsResults_cmd.Parameters.Append rsResults_cmd.CreateParameter("param1", 200, 1, 255, rsResults__varLocation) ' adVarChar

Should the adVarChar not be commented out? After reading on the page you gave, I think the code should be:

Code:

rsResults_cmd.Parameters.Append rsResults_cmd.CreateParameter("param1", adVarChar, 200, 1, 255, rsResults__varLocation)

Am I correct in thinking that?

I still can’t figure out how to get it to give my the results of my search. If I posted more of my code, would that help any? I’m not getting any error mesages, other than the message I should get if the recordset is empty.

Here’s ALL the Code for the page.

Code:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Option Explicit%>
<!--#include file="Connections/chwcConn.asp" -->
<%
Dim rsResults__varLocation
rsResults__varLocation = "1"
If (Request.Form("Location")  <> "") Then 
  rsResults__varLocation = Request.Form("Location") 
End If
%>
<%
Dim rsResults__varPosition
rsResults__varPosition = "%"
If (Request.Form("Position") <> "") Then 
  rsResults__varPosition = Request.Form("Position")
End If
%>
<%
Dim rsResults__varShift
rsResults__varShift = "1"
If (Request.Form("Shift") <> "") Then 
  rsResults__varShift = Request.Form("Shift")
End If
%>
<%
Dim rsResults
Dim rsResults_cmd
Dim rsResults_numRows

Set rsResults_cmd = Server.CreateObject ("ADODB.Command")
rsResults_cmd.ActiveConnection = MM_chwcConn_STRING
rsResults_cmd.CommandText = "SELECT Location, Position, ShiftTime, SpecialNote, DatePosted, DateExpired, ContactEmail, ContactPhone, PositionOpen FROM dbo.tblOpenShifts t WHERE t.Location = ? AND t.Position = ? AND t.ShiftTime = ? ORDER BY Location ASC" 
rsResults_cmd.Prepared = true
rsResults_cmd.Parameters.Append rsResults_cmd.CreateParameter("param1", 200, 1, 255, rsResults__varLocation) ' adVarChar
rsResults_cmd.Parameters.Append rsResults_cmd.CreateParameter("param2", 200, 1, 255, rsResults__varPosition) ' adVarChar
rsResults_cmd.Parameters.Append rsResults_cmd.CreateParameter("param3", 200, 1, 255, rsResults__varShift) ' adVarChar

Set rsResults = rsResults_cmd.Execute
rsResults_numRows = 0
%>

<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rsResults_numRows = rsResults_numRows + Repeat1__numRows
%>
<html><!-- InstanceBegin template="/Templates/basePage.dwt.asp" codeOutsideHTMLIsLocked="false" -->
<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<!-- InstanceBeginEditable name="doctitle" -->
<title>Community Hospitals and Wellness Centers</title>
<!-- InstanceEndEditable -->
<link REL="stylesheet" TYPE="text/css" HREF="stylesheet.css">
<!-- InstanceBeginEditable name="head" --><!-- InstanceEndEditable -->
</head>
<body bgcolor="#ffffff" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" link="#009966" vlink="#cc6633" alink="#663300" text="#000000" bottomMargin="0" rightMargin="0">
<!--#include file="topnav.htm"-->

<map NAME="home">
<area SHAPE="RECT" COORDS="15,10,120,70" HREF="<%=Session("URL")%>default.asp" Alt="Click here to go to the CHWC home page.">
</map>

<table width="780" border="0" cellspacing="0" cellpadding="0" vspace="0" hspace="0">
  <tr> 
    <td height="80" colspan="7"><img height="80" src="images/Header.jpg" width="780" UseMap="FountainPark.asp#home" border="0"></td>
  </tr>
  <tr>
    <td width="15" bgcolor="#999966" height="15"><img height="10" src="images/10PixelSpace.gif" width="10"></td>
    <td width="160" height="25"><img height="5" src="images/160PixelSpace.gif" width="160"></td>
    <td width="13" height="15"><img height="5" src="images/13PixelSpace.gif" width="13"></td>
    <td width="402" height="15"><img height="10" src="images/402PixelSpace.gif" width="402"></td>
    <td width="10" height="15"><img height="10" src="images/10PixelSpace.gif" width="10"></td>
    <td width="170" height="15"><img height="10" src="images/170PixelSpace.gif" width="170"></td>
    <td width="10" height="15"><img height="10" src="images/10PixelSpace.gif" width="10"></td>
  </tr>
  <tr>
    <td width="15" bgcolor="#999966">&nbsp;</td>
    <td width="160" valign="top"><!--#include file="leftnav.htm"--></td>
    <td width="13">&nbsp;</td>
    <td width="582" colSpan="3" valign="top" align="left">
		<br>
		<!-- InstanceBeginEditable name="PageTitleImage" --><img SRC="images/OpenShifts.gif" WIDTH="391" HEIGHT="21"><!-- InstanceEndEditable -->		<br>
	  <!-- InstanceBeginEditable name="PageText" --><a href="os1.asp" class="text">Back
to Open Shift Search</a>
	  <% 
While ((Repeat1__numRows <> 0) AND (NOT rsResults.EOF)) 
%>
            <input name="shift" type="hidden" id="shift" value="<%= Request.Form("Shift") %>">
            <input name="Position" type="hidden" id="Position" value="<%= Request.Form("Position") %>">
            <br>
        <table width="545" border="1" cellspacing="2" cellpadding="2">
          <tr class="pageTextBold">
            <td width="138">Location</td>
            <td width="75">Shift</td>
            <td width="198">Unit/Position</td>
            <td width="98">Special Notes </td>
          </tr>
          <tr class="text">
            <td class="text"><%=(rsResults.Fields.Item("Location").Value)%></td>
            <td><%=(rsResults.Fields.Item("ShiftTime").Value)%></td>
            <td><%=(rsResults.Fields.Item("Position").Value)%></td>
            <td><%=(rsResults.Fields.Item("SpecialNote").Value)%></td>
          </tr>
        </table>
        <p>If you can work this postion, call <%=(rsResults.Fields.Item("ContactPhone").Value)%> or send an <a href="mailto:<%=(rsResults.Fields.Item("ContactEmail").Value)%>">e-mail</a> </p>
          <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsResults.MoveNext()
Wend
%>
          <% If rsResults.EOF And rsResults.BOF Then %>
            <p>Sorry your search did not find any results. </p>
            <% End If ' end rsResults.EOF And rsResults.BOF %>
		    <p class="text"><a href="os1.asp">Back
		      to Open Shift Search </a></p>
      <!-- InstanceEndEditable -->	  <br>
      <br>
    <!--#include file="footer.htm"--> </td>
  </tr>
</table>

</body>
<!-- InstanceEnd --></html>
<%
rsResults.Close()
Set rsResults = Nothing
%>
<%
rsResults.Close()
Set rsResults = Nothing
%>

Этот инструмент восстановления может устранить такие распространенные проблемы компьютера, как синие экраны, сбои и замораживание, отсутствующие DLL-файлы, а также устранить повреждения от вредоносных программ/вирусов и многое другое путем замены поврежденных и отсутствующих системных файлов.

ШАГ 1:

Нажмите здесь, чтобы скачать и установите средство восстановления Windows.

ШАГ 2:

Нажмите на Start Scan и позвольте ему проанализировать ваше устройство.

ШАГ 3:

Нажмите на Repair All, чтобы устранить все обнаруженные проблемы.

СКАЧАТЬ СЕЙЧАС

Совместимость

Требования

1 Ghz CPU, 512 MB RAM, 40 GB HDD
Эта загрузка предлагает неограниченное бесплатное сканирование ПК с Windows. Полное восстановление системы начинается от $19,95.

ID статьи: ACX01770RU

Применяется к: Windows 10, Windows 8.1, Windows 7, Windows Vista, Windows XP, Windows 2000

Описание ошибки:
В это публикации будет рассмотрена не только сама ошибка СУБД о переполнении журнала транзакций, но описание того, как уменьшить (очистить, сократить) журнал транзакций.

Найденные решения:

Эту ситуацию можно было отнести к части обслуживающих операций. Но дает знать о себе переполнение журнала транзакций СУБД в самые неподходящие моменты. Например, часто, при обновлении баз данных, поскольку частое выполнение операций по модификации данных базы приводит к увеличению размеров журнала транзакций. Старые записи журнала транзакций в некоторый момент могут стать не востребованными и могут быть удалены. Таким образом освобождается место для новых записей. Если вовремя не удалять старые записи журнала транзакций, то его файл может занять все свободное дисковое пространство и работа с базой данных станет невозможной, сопровождаемая приведенной ошибкой.

Рассмотрим 

Еще примеры того, как сократить журнал регистрации см. в публикации посвященной непосредственно этому вопросу в разделе часто задаваемых вопросов.

Рассмотрим один из примеров того, как сократить журнал транзакций.

Запускается SQL Server Management Studio. В ветке «Базы данных» дерева «Обозревателя объектов» находим базу данных по названию. Вызываем контекстное меню правой кнопкой мыши и в нем выбираем пункт «Создать запрос» и вводим текст:

BACKUP LOG [name_db] WITH TRUNCATE_ONLY
go
DBCC SHRINKFILE ([log_file])
go

, где [name_db] — имя (название) базы данных СУБД. В примере — «Бухгалтерия»;
, а [log_file] имя или путь к файлу журнала (лога) транзакций формата *.ldf. О том, как определить его название и местоположение см. ниже, в примере — «Бухгалтерия_log.ldf»

Прежде чем «Выполнить» запрос нажатием соответствующей кнопки потребуется определить имя файла журнала транзакций. Можно просто искать его по названию базы и расширению на дисках сервера. А можно посмотреть в свойствах базы.

Для этого через то же контекстное меню, что уже вызывали ранее, переходим в «Свойства» базы данных SQL.

В открывшемся окне «Свойств базы данных» переходим на страницу «Файлы». И смотрим «Путь» и «Имя файла» журнала транзакций в колонках таблицы «Файлы базы данных». Эти сведения и используем для заполнения в запросе для параметра [log_file].

​

Так же можно на будущее настроить автоматическое сжатие журнала транзакций. Это изложено в документации на сайте SQL: настройка авторасширения и автосжатия в SQL Server

Оцените, помогло ли Вам предоставленное описание решения ошибки?

© www.azhur-c.ru 2014-2020. Все права защищены. Использование текстов и изображений с данной страницы без письменного разрешения владельца запрещено. При использовании материалов с данной страницы обязательно указание ссылки на данную страницу.

04-08-2021

Журавлев А.С.
(Сайт azhur-c.ru)