ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / подключение к SQL через ADODB.Connection
4 сообщений из 4, страница 1 из 1
подключение к SQL через ADODB.Connection
    #32589724
Veritas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Veritas
Гость
К BD из ASP

есть такой вопрос....
пытаюсь подсоединиться к серверу но ничего не отображается... :(
<%@ LANGUAGE="VBScript %>
<html>
<head></head>
<body>
<%
dim objConnection
dim objRecordset

set objConnection = Server.CreateObject("ADODB.Connection")
set objRecordset = Server.CreateObject("ADODB.Recordset")

objConnection.Open "server", "пользователь", "пароль"
objRecordset.Open "SELECT authors From Book_Authors", objConnection
%>

`Пытаюсь получить значения

<table>
<tr>
<% Do While Not objRecordset.EOF %>
<td><%=objrecordset("authors")%></td>
</tr>

<% objRecordset.MoveNext
Loop
color=orange]%>

</table>
</body>

Кто может подсказать??? где ошибка??? :(
...
Рейтинг: 0 / 0
05.07.2004, 15:49
| Ответить | Цитировать | Написать  
подключение к SQL через ADODB.Connection
    #32589784
Фотография ziktuw
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ziktuw
Участник
Надо правильно написать строку соединения.
...
Рейтинг: 0 / 0
05.07.2004, 16:15
| Ответить | Цитировать | Написать  
подключение к SQL через ADODB.Connection
    #32589797
Veritas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Veritas
Гость
а что у меня неправильно??? я вроде как все параметры передал???
...
Рейтинг: 0 / 0
05.07.2004, 16:23
| Ответить | Цитировать | Написать  
подключение к SQL через ADODB.Connection
    #32589974
Фотография ulis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ulis
Участник
Думаю, разберешься

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>

<title>icq</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<link REL="STYLESHEET" type="text/css" href="style/styles.css">

</head>
<body>
<%@ LANGUAGE=VBScript %>
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.RecordSet")
Set rstc = Server.CreateObject("ADODB.RecordSet")
conn.open "Provider=sqloledb;Data Source=localhost;Initial Catalog=mywww;user id=sa;password=8567312409"
' строка запроса к базе
sql="SELECT uin, nickname, firstname, lastname, email, business_city FROM icqusers_tb ORDER BY uin;"
sqlc="SELECT COUNT(uin) AS Total FROM icqusers_tb"

' открываем набор
rst.Open sql,conn
rstc.Open sqlc,conn
v = Server.HTMLEncode(rstc.Fields("Total").Value)
rstc.Close
set rstc=nothing
%>


<!-- Самая внешняя таблица -->
<table id="tbIcq" align="center" width="700" border="0" cellSpacing="0" cellPadding="0">
<tr>
<td>
<table ID="info">
<caption class="h">icq пользователи сервера 10.80.180.6</caption>
<tr>
<td class="info">
Список зарегистрированных пользователей ICQ сервера 10.80.180.6
<br>Было бы неплохо, если бы каждый пользователь аськи заполнил данные о себе, а то порой непонятно, с кем общаешься</br>
База данных обновляется только раз в сутки, ибо напрямую подключиться к ней через ADO не получается, т.к открыта сервером в монопольном режиме
<br>Клиентская часть icq лежит <a href="files\icqgwclient.exe">здесь</a>, которую затем нужно исправить <a href="files\icqpatch.exe">заплатой</a> (чтобы буква "ю" заработала). <br>
Кроме того, можно <a href="http://srviodv.icc.surw.mps/~iserverd/">зарегистрироваться</a> на Челябинском сервере. Его IP - 10.80.18.70, порт - 4000, в качестве клиента можно использовать тот же самый или icq99(a,b), который лежит <a href="files\icq99b.exe">здесь</a>.
</td>
</tr>

<tr>
<td class="counter">всего зарегистрировано: <%=v%></td>
</tr>
</table>
</td>
</tr>
<!-- Третья таблица -->
<tr>
<td>
<table width="100%" ID="data" cellpadding=0 cellspacing=0>
<TR>
<TH>ICQ UIN</TH>
<TH>nick</TH>
<TH>name</TH>
<TH>first name</TH>
<TH>e-mail</TH>
<TH>city</TH>
</TR>

<TBODY>
<%
' пробегаем по всем записям набора и выводим их в соответствующие поля таблицы
Do While Not rst.eof
%>

<tr>
<TD class="data">
<%u=Server.HTMLEncode(rst.Fields("uin").Value)
if isnull(u) then
u=" "
end if
Response.Write(u)
%>
</TD>

<TD class="data">
<%n=Server.HTMLEncode(rst.Fields("nickname").Value)
if n="" then
n=" "
end if
Response.Write(n)
%>
</TD>

<TD class="data">
<%f=Server.HTMLEncode(rst.Fields("firstname").Value)
if f="" then
f=" "
end if
Response.Write(f)
%>
</TD>

<TD class="data">
<%l=Server.HTMLEncode(rst.Fields("lastname").Value)
if l="" then
l=" "
end if
Response.Write(l)
%>
</TD>

<TD class="data">

<%m=Server.HTMLEncode(rst.Fields("email").Value)
if m="" then
m=" "
end if
%>

<A HREF="mailto:<%=Server.HTMLEncode(rst.Fields("email").Value)%>"><%=m%></A>

</TD>

<TD class="data"><%b=Server.HTMLEncode(rst.Fields("business_city").Value)
if b="" then
b=" "
end if
Response.write(b)
%>
</TD>

</tr>

<%
rst.MoveNext
loop
rst.Close
set rst = Nothing
conn.Close
set conn = Nothing
%>

</TBODY>

</TABLE>


</td>
</tr>
</table>



</body>
</html>
...
Рейтинг: 0 / 0
05.07.2004, 17:34
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / подключение к SQL через ADODB.Connection
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]