Проблема с запросом

@Spicke · Регистрация: 07.04.2017

Студворк — интернет-сервис помощи студентам

Возникла проблемма не могу написать запрос чтобы в 3м поле при вводе номера строки выдавалось ее содержимое (в проге первое поле имя БД, второе номер таблицы, третье номер строки).
Вот текст ASP:
<%@ Language=VBScript %>
<% Option Explicit %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0
</HEAD>
<BODY>
<%
On Error Resume Next
const adOpenForwardOnly = 0
const adOpenKeyset = 1
const adOpenDynamic = 2
const adOpenStatic = 3
const adLockOptimistic = 3
Function CheckError()
if Err.number <> 0 then
Response.Write "<p><FONT color=red><I>A run-time error occurred.
Error Number: " &_
Err.number & "
Error Description: " & Err.description & "</Font></I>"
CheckError = True
Else
CheckError = False
End If
end Function
Function OpenDatabase(DatabaseVirtualFilename, Username, Password, byref Connection)
OpenDatabase = False

Dim DatabaseFilename
DatabaseFilename = Server.MapPath(DatabaseVirtualFilename)
Dim ConnectionString
ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ=" & DatabaseFilename & "

efaultDir=;" &_
"UID=" & Username & ";" &_
"PWD=" & Password & ";"
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.ConnectionTimeout = 30
Connection.CommandTimeout = 80
Connection.Open ConnectionString

OpenDatabase = True

end Function
Sub DisplayTable(Connection, TableName)

Response.Write "<h2>Contents of table: " & TableName & "</h2>" & vbCRLF

Dim SQL
SQL = "SELECT * FROM " & TableName
Dim rs
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open SQL, Connection, adOpenForwardOnly, adLockOptimistic

if rs.EOF or rs.BOF Then
Response.Write "<p align=center><i> -- No records --</i>" & vbCRLF
rs.Close
set rs = nothing
Exit sub
end if

Response.Write "<table width='100%' border=1>" & vbCRLF
Response.Write "<tr>"
Dim item
For each item in rs.Fields
Response.Write "<td valign=top><b>" & item.Name & "</b></td>"
next
Response.Write "</tr>" & vbCRLF

while not rs.EOF

Response.Write "<tr>"
For each item in rs.Fields
Response.Write "<td valign=top>" & item.Value & "</td>"
next
Response.Write "</tr>" & vbCRLF

rs.MoveNext
wend

Response.Write "</table>" & vbCRLF
rs.Close
set rs = nothing
End Sub
Dim databasefile, database

@Spicke · 23.05.2006, 03:19

Ну а в принципе как такой запрос реализовать чтоб при вводе номера строки выводилось ее содержимое ???

@Alexey Spirin · 23.05.2006, 13:59

У рекордсета метод .Move.

Ну или на чистом sql реализовать.

@bazile · 23.05.2006, 15:25

По сути это постраничная выборка. Как ее реализовать читай на странице http://www.sql.ru/faq/faq_topic.aspx?fid=105 http://www.sql.ru/faq/faq_topic.aspx?fid=105

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Spicke 0 / 0 / 0 Регистрация: 07.04.2017 Сообщений: 2

	Проблема с запросом 22.05.2006, 23:28. Показов 1330. Ответов 3 Метки нет (Все метки) Возникла проблемма не могу написать запрос чтобы в 3м поле при вводе номера строки выдавалось ее содержимое (в проге первое поле имя БД, второе номер таблицы, третье номер строки). Вот текст ASP: <%@ Language=VBScript %> <% Option Explicit %> <HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0 </HEAD> <BODY> <% On Error Resume Next const adOpenForwardOnly = 0 const adOpenKeyset = 1 const adOpenDynamic = 2 const adOpenStatic = 3 const adLockOptimistic = 3 Function CheckError() if Err.number <> 0 then Response.Write "<p><FONT color=red><I>A run-time error occurred. Error Number: " &_ Err.number & " Error Description: " & Err.description & "</Font></I>" CheckError = True Else CheckError = False End If end Function Function OpenDatabase(DatabaseVirtualFilename, Username, Password, byref Connection) OpenDatabase = False Dim DatabaseFilename DatabaseFilename = Server.MapPath(DatabaseVirtualFilename) Dim ConnectionString ConnectionString = "DRIVER={Microsoft Access Driver (.mdb)};" &_ "DBQ=" & DatabaseFilename & "efaultDir=;" &_ "UID=" & Username & ";" &_ "PWD=" & Password & ";" Set Connection = Server.CreateObject("ADODB.Connection") Connection.ConnectionTimeout = 30 Connection.CommandTimeout = 80 Connection.Open ConnectionString OpenDatabase = True end Function Sub DisplayTable(Connection, TableName) Response.Write "<h2>Contents of table: " & TableName & "</h2>" & vbCRLF Dim SQL SQL = "SELECT FROM " & TableName Dim rs set rs = Server.CreateObject("ADODB.RecordSet") rs.Open SQL, Connection, adOpenForwardOnly, adLockOptimistic if rs.EOF or rs.BOF Then Response.Write "<p align=center><i> -- No records --</i>" & vbCRLF rs.Close set rs = nothing Exit sub end if Response.Write "<table width='100%' border=1>" & vbCRLF Response.Write "<tr>" Dim item For each item in rs.Fields Response.Write "<td valign=top><b>" & item.Name & "</b></td>" next Response.Write "</tr>" & vbCRLF while not rs.EOF Response.Write "<tr>" For each item in rs.Fields Response.Write "<td valign=top>" & item.Value & "</td>" next Response.Write "</tr>" & vbCRLF rs.MoveNext wend Response.Write "</table>" & vbCRLF rs.Close set rs = nothing End Sub Dim databasefile, database 0

@Spicke 0 / 0 / 0 Регистрация: 07.04.2017 Сообщений: 2
	23.05.2006, 03:19
	Ну а в принципе как такой запрос реализовать чтоб при вводе номера строки выводилось ее содержимое ??? 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	23.05.2006, 13:59
	У рекордсета метод .Move. Ну или на чистом sql реализовать. 0

@bazile 86 / 62 / 69 Регистрация: 15.03.2007 Сообщений: 6,903
	23.05.2006, 15:25
	По сути это постраничная выборка. Как ее реализовать читай на странице http://www.sql.ru/faq/faq_topic.aspx?fid=105 http://www.sql.ru/faq/faq_topic.aspx?fid=105 0