Не работает цикл обработки БД Access + ASP / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не работает цикл обработки БД Access + ASP

13 сообщений из 13, страница 1 из 1

Не работает цикл обработки БД Access + ASP

#38552167

Maximusb

Гость

Добрый день!

На сайте используется ASP + VB + ACCESS. Дорабатываю скрипт новостей. Нужно вывести все новости дивами для дальнейшей обработки каруселью.

Использую такой код.

1) В шапке:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

<%
Dim sSQL, id
Const PageSizes = 5 'кол-во комментариев на странице
Dim Page, nPages, i, i2, navbar
 
id = CLng(Request.QueryString("id").Item)
 
id = CStr(id)
 
if dbType = "SQLServer" then
    sSQL = "SELECT news_id, convert(varchar(10), issuedate, 105) As fissuedate, subject, announce, importance, is_comment, content, keywords, description, image_news FROM news WHERE publication = 1 AND news_id = " & id 
else
    sSQL = "SELECT news_id, Format(issuedate, 'dd-mm-YYYY') As fissuedate, subject, announce, importance, is_comment, content, keywords, description, image_news FROM news WHERE publication = 1 AND news_id = " & id
end if
 
rs.CursorLocation = 3
rs.Open sSQL, cn, 1
%>

2) В главной части:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.

<%
if rs.RecordCount <> 0 then
%>
 
        <%
    i2 = 0
    Do While (Not rs.EOF)
    i2 = i2 + 1
%>
  <div class="carousel-item"> <a href="news_detail.asp?id=<%=rs.fields("news_id")%>"> <img src="images/projects/sestroreck_b.jpg" width="160" height="120" alt=""> <span class="title"><%=rs.fields("subject")%></span> </a> </div>
  <%
    rs.MoveNext
    Loop
%>
  <% end if%>
<%
cn.Close
Set rs = Nothing
Set cn = Nothing
%>

В итоге выводится только один DIV вида:

Код: html

<div class="carousel-item"> <a href="news_detail.asp?id=62"> <img src="images/projects/sestroreck_b.jpg" width="160" height="120" alt=""> <span class="title">Новость 1</span> </a> </div>

А в базе 20 новостей.

В VB разбираюсь совсем плохо, сижу уже 2,5 дня. Помогите, пожалуйста. Буду очень благодарен.

...

Рейтинг:

0 / 0

06.02.2014, 16:42

| Ответить | Цитировать | Написать

Не работает цикл обработки БД Access + ASP

#38552169

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

так вы запрос делаете с фильтрацией по одному ID

...

Рейтинг:

0 / 0

06.02.2014, 16:44

| Ответить | Цитировать | Написать

Не работает цикл обработки БД Access + ASP

#38552189

Maximusb

Гость

Konst_One,

у меня на другой странице работает ок похожий кусок. А здесь нет.

Подскажите, пожалуйста, где подправить.

...

Рейтинг:

0 / 0

06.02.2014, 17:06

| Ответить | Цитировать | Написать

Не работает цикл обработки БД Access + ASP

#38555922

Maximusb

Гость

Добрый день!

Поменял шапку на:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

<%
Dim sSQL, sSQL2, id
Const PageSizes = 5 'кол-во комментариев на странице
Dim Page, nPages, i, i2, navbar

id = CLng(Request.QueryString("id").Item)

id = CStr(id)
sSQL2 = "SELECT news_id, Format(issuedate, 'dd-mm-YYYY') As fissuedate, subject, importance, announce FROM news WHERE publication = 1 ORDER BY issuedate DESC, news_id DESC"
if dbType = "SQLServer" then
	sSQL = "SELECT news_id, convert(varchar(10), issuedate, 105) As fissuedate, subject, announce, importance, is_comment, content, keywords, description, image_news FROM news WHERE publication = 1 AND news_id = " & id 
else
	sSQL = "SELECT news_id, Format(issuedate, 'dd-mm-YYYY') As fissuedate, subject, announce, importance, is_comment, content, keywords, description, image_news FROM news WHERE publication = 1 AND news_id = " & id
end if

rs.CursorLocation = 3
rs.Open sSQL, cn, 1
%>

Ничего, к сожалению, не поменялось. Помогите, пожалуйста, работа встала (

...

Рейтинг:

0 / 0

10.02.2014, 16:18

| Ответить | Цитировать | Написать

Не работает цикл обработки БД Access + ASP

#38555942

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

Код: sql

... news_id = " & id

вот это вот убирайте

...

Рейтинг:

0 / 0

10.02.2014, 16:26

| Ответить | Цитировать | Написать

Не работает цикл обработки БД Access + ASP

#38555962

Maximusb

Гость

Konst_One,

У меня на этой странице выводится определенная новость методом:

Код: vbnet

1.
2.
3.
4.

<div class="news-article">
  <div class="news-date"><%=rs.fields("fissuedate")%></div>
  <p><%=rs.fields("content")%></p>
</div>

+ далее должны выводиться анонсы всех новостей.

...

Рейтинг:

0 / 0

10.02.2014, 16:36

| Ответить | Цитировать | Написать

Не работает цикл обработки БД Access + ASP

#38555967

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

ну так разделите одну новость и список на разные запросы

...

Рейтинг:

0 / 0

10.02.2014, 16:37

| Ответить | Цитировать | Написать

Не работает цикл обработки БД Access + ASP

#38556006

Maximusb

Гость

Konst_One,

У меня сейчас шапка выглядит так:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.

<%
Dim sSQL, sSQL2, id
Const PageSizes = 5 'кол-во комментариев на странице
Dim Page, nPages, i, i2, navbar

id = CLng(Request.QueryString("id").Item)

id = CStr(id)
sSQL2 = "SELECT news_id, Format(issuedate, 'dd-mm-YYYY') As fissuedate, subject, importance, announce FROM news WHERE publication = 1 ORDER BY issuedate DESC, news_id DESC"
if dbType = "SQLServer" then
	sSQL = "SELECT news_id, convert(varchar(10), issuedate, 105) As fissuedate, subject, announce, importance, is_comment, content, keywords, description, image_news FROM news WHERE publication = 1 AND news_id = " & id 
else
	sSQL = "SELECT news_id, Format(issuedate, 'dd-mm-YYYY') As fissuedate, subject, announce, importance, is_comment, content, keywords, description, image_news FROM news WHERE publication = 1 AND news_id = " & id
end if



rs.CursorLocation = 3
rs.Open sSQL, cn, 1
%>

А затем в теле так:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.

<%
if rs.RecordCount <> 0 then
%>

<div class="news-article">
  <div class="news-date"><%=rs.fields("fissuedate")%></div>
  <p><%=rs.fields("content")%></p>
</div>

        <%
	i2 = 0
	Do While (Not rs.EOF)
	i2 = i2 + 1


%>
  <div class="carousel-item"> <a href="news_detail.asp?id=<%=rs.fields("news_id")%>"> <img src="images/projects/sestroreck_b.jpg" width="160" height="120" alt=""> <span class="title"><%=rs.fields("subject")%></span> </a> </div>
  <%
	rs.MoveNext
  	Loop
%>
  <% end if%>

В итоге выводится одна новость полностью + 1 div (а должно быть много div со всеми новостями).

...

Рейтинг:

0 / 0

10.02.2014, 16:51

| Ответить | Цитировать | Написать

Не работает цикл обработки БД Access + ASP

#38556010

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

см , я ответил выше, что нужно делать. код переписывать за вас я не буду =)

...

Рейтинг:

0 / 0

10.02.2014, 16:56

| Ответить | Цитировать | Написать

Не работает цикл обработки БД Access + ASP

#38556024

Maximusb

Гость

Konst_One,

Я понимаю, что нужно сделать, но вот технически не получается.

Добавил

Код: vbnet

1.
2.

Dim sSQL2
sSQL2 = "SELECT news_id, Format(issuedate, 'dd-mm-YYYY') As fissuedate, subject, importance, announce FROM news WHERE publication = 1 ORDER BY issuedate DESC, news_id DESC"

Не знаю как делается этот момент:

Код: vbnet

1.
2.

rs.Open sSQL, cn, 1
rs2.Open sSQL2, cn, 1

Добавлять rs2 это правильно или нет?

...

Рейтинг:

0 / 0

10.02.2014, 17:02

| Ответить | Цитировать | Написать

Не работает цикл обработки БД Access + ASP

#38556027

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

Код: vbnet

1.
2.
3.
4.
5.

Dim rs2

Set rs2 = Server.CreateObject("ADODB.Recordset")

rs2.Open ...

...

Рейтинг:

0 / 0

10.02.2014, 17:05

| Ответить | Цитировать | Написать

Не работает цикл обработки БД Access + ASP

#38556052

Maximusb

Гость

Konst_One,

Всё работает, Константин ) Хотел добавить Set cn2 = Server.CreateObject("ADODB.Connection"). Понял, что можно не добавлять. Все работает отлично.

Спасибо Вам огромное за помощь! Здоровья Вам и благополучия. Пусть Ваша помощь возвращается к Вам добрыми и хорошими событиями каждый день. Я от всей души благодарен Вам. Кстати, у Вас очень красивые фотографии из путешествий, желаю, чтобы их было еще больше.

...

Рейтинг:

0 / 0

10.02.2014, 17:16

| Ответить | Цитировать | Написать

Не работает цикл обработки БД Access + ASP

#38556056

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

не за что, могли бы сами тоже самое сделать. тут тем аналогичных на форуме много. за пожелание спасибо!

...

Рейтинг:

0 / 0

10.02.2014, 17:18

| Ответить | Цитировать | Написать

13 сообщений из 13, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не работает цикл обработки БД Access + ASP

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=38556006&tid=2156523]:	0ms
get settings:	10ms
get forum list:	15ms
check forum access:	3ms
check topic access:	3ms
track hit:	41ms
get topic data:	11ms
get forum data:	2ms
get page messages:	46ms
get tp. blocked users:	1ms
others:	265ms

total:	397ms