Не работает rs.MoveNext (передвижение по записям в БД)

@AOTE · Регистрация: 29.07.2007

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

db.Open sDBName
sSQL = 'SELECT Name, Date, News FROM News'
Set rs = db.Execute(sSQL) Do While NOT Rs.EOF j='<a href=news1.asp>'
If rs.Fields ('Name').value <> 'No Text' Then
Link = j& rs.Fields('Date').value&('_')&rs.Fields('Name').value Response.Write Link end if
rs.MoveNext
Вот в этом куске кода не работает rs.MoveNext, в базе данных 10 записей, а показывает только первую, нутром чую что ерунда, а понять не могу.

@x-mailer · 16.10.2007, 12:06

а где loop? целиком цикл брось, чтоб понятнее было.

@AOTE · 16.10.2007, 12:10 **[ТС]**

db.Open sDBName
sSQL = 'SELECT Name, Date, News FROM News'
Set rs = db.Execute(sSQL) Do While NOT Rs.EOF j='<a href=news1.asp>'
If rs.Fields ('Name').value <> 'No Text' Then
Link = j& rs.Fields('Date').value&('_')&rs.Fields('Name').value Response.Write Link end if
rs.MoveNext
Loop
db.Close
Set db = Nothing
Вот,собственно говоря, и все. А ссылка получается всего одна

@x-mailer · 16.10.2007, 12:12

А для скольки записей у тебя условие rs.Fields ('Name').value <> 'No Text' истинно? То есть, в скольки записях поле Name не равно 'No Text'?

@AOTE · 16.10.2007, 12:14 **[ТС]**

В 10-ти.

@x-mailer · 16.10.2007, 12:18

а если так:
<%
db.Open sDBName
sSQL = 'SELECT Name, Date, News FROM News'
Set rs = db.Execute(sSQL)
While NOT Rs.EOF
j='<a href=news1.asp>'
Response.write j & rs('Date') & '_' &rs('Name') & '
'
rs.MoveNext
wend
db.Close
Set db = Nothing
%>
Что получится?

@AOTE · 16.10.2007, 12:27 **[ТС]**

Нет не работает.

@AOTE · 16.10.2007, 13:23 **[ТС]**

Прошу простить меня великодушно. Я - дурак старый, вносил записи в другую БД с тем же названием, код работает. Прошу пощения за напрасное беспокойство.

@webdeveloper · 16.10.2007, 19:17

Я немного тебе код поправил - попробуй сейчас
Кстати если твоя переменная j все время одинаковая то может быть ее лучше определить вне цикла один раз а не каждый раз инициализировать когда ты цикл выполняешь?

db.Open sDBName
sSQL = 'SELECT Name, Date, News FROM News'
Set rs = db.Execute(sSQL)
While (NOT Rs.EOF)
j='<a href=news1.asp>'
If rs.Fields ('Name').value <> 'No Text' Then
Link = j & rs.Fields('Date').value & ('_') & rs.Fields('Name').value
Response.Write Link
End If
rs.MoveNext
End While

@AOTE 0 / 0 / 0 Регистрация: 29.07.2007 Сообщений: 166
		1
	Не работает rs.MoveNext (передвижение по записям в БД) 16.10.2007, 11:58. Показов 1442. Ответов 8 Метки нет (Все метки) db.Open sDBName sSQL = 'SELECT Name, Date, News FROM News' Set rs = db.Execute(sSQL) Do While NOT Rs.EOF j='<p><a href=news1.asp></p>' If rs.Fields ('Name').value <> 'No Text' Then Link = j& rs.Fields('Date').value&('_')&rs.Fields('Name').value Response.Write Link end if rs.MoveNext Вот в этом куске кода не работает rs.MoveNext, в базе данных 10 записей, а показывает только первую, нутром чую что ерунда, а понять не могу. 0

@x-mailer 0 / 0 / 0 Регистрация: 03.10.2007 Сообщений: 129
	16.10.2007, 12:06	2
	а где loop? целиком цикл брось, чтоб понятнее было. 0

@AOTE 0 / 0 / 0 Регистрация: 29.07.2007 Сообщений: 166
	16.10.2007, 12:10 [ТС]	3
	db.Open sDBName sSQL = 'SELECT Name, Date, News FROM News' Set rs = db.Execute(sSQL) Do While NOT Rs.EOF j='<p><a href=news1.asp></p>' If rs.Fields ('Name').value <> 'No Text' Then Link = j& rs.Fields('Date').value&('_')&rs.Fields('Name').value Response.Write Link end if rs.MoveNext Loop db.Close Set db = Nothing Вот,собственно говоря, и все. А ссылка получается всего одна 0

@x-mailer 0 / 0 / 0 Регистрация: 03.10.2007 Сообщений: 129
	16.10.2007, 12:12	4
	А для скольки записей у тебя условие rs.Fields ('Name').value <> 'No Text' истинно? То есть, в скольки записях поле Name не равно 'No Text'? 0

@AOTE 0 / 0 / 0 Регистрация: 29.07.2007 Сообщений: 166
	16.10.2007, 12:14 [ТС]	5
	В 10-ти. 0

@x-mailer 0 / 0 / 0 Регистрация: 03.10.2007 Сообщений: 129
	16.10.2007, 12:18	6
	а если так: <% db.Open sDBName sSQL = 'SELECT Name, Date, News FROM News' Set rs = db.Execute(sSQL) While NOT Rs.EOF j='<p><a href=news1.asp></p>' Response.write j & rs('Date') & '_' &rs('Name') & ' ' rs.MoveNext wend db.Close Set db = Nothing %> Что получится? 0

@AOTE 0 / 0 / 0 Регистрация: 29.07.2007 Сообщений: 166
	16.10.2007, 12:27 [ТС]	7
	Нет не работает. 0

@AOTE 0 / 0 / 0 Регистрация: 29.07.2007 Сообщений: 166
	16.10.2007, 13:23 [ТС]	8
	Прошу простить меня великодушно. Я - дурак старый, вносил записи в другую БД с тем же названием, код работает. Прошу пощения за напрасное беспокойство. 0

@webdeveloper 0 / 0 / 0 Регистрация: 15.10.2007 Сообщений: 22
	16.10.2007, 19:17	9
	Я немного тебе код поправил - попробуй сейчас Кстати если твоя переменная j все время одинаковая то может быть ее лучше определить вне цикла один раз а не каждый раз инициализировать когда ты цикл выполняешь? db.Open sDBName sSQL = 'SELECT Name, Date, News FROM News' Set rs = db.Execute(sSQL) While (NOT Rs.EOF) j='<p><a href=news1.asp></p>' If rs.Fields ('Name').value <> 'No Text' Then Link = j & rs.Fields('Date').value & ('_') & rs.Fields('Name').value Response.Write Link End If rs.MoveNext End While 0