Знакомство с SQL и c ASP / ASP.NET

ReSQL.ru

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

Гость

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

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

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

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

Форумы / ASP.NET [игнор отключен] [закрыт для гостей] / Знакомство с SQL и c ASP

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

Знакомство с SQL и c ASP

#32135881

Delitant

Гость

Приобрел книгу по ASP Рассела Джонсона (A. Russell Jones). Там есть пример на VBScript.
<%@ Language=VBScript @TRANSACTION=REQUIRED %>
<%
Sub onTransactionCommit()
Response.Write " Transaction Committed "
End Sub
Sub onTransactionAbort()
Response.Write " Transaction Aborted "
End Sub
%>

<HTML>
<HEAD>
</HEAD>
<BODY>
<%
Dim conn
Dim SQL
Dim aConnectionString
aConnectionString = "Provider=SQLOLEDB;Data " _
& "Source=(local);Database=ClassRecords;" _
& "UID=sa;PWD=;"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Mode = adModeRead
conn.ConnectionString = aConnectionString
conn.CursorLocation = adUseClient
conn.open
SQL = "Update Students SET Grade = 4 WHERE LastName='Chen'"
conn.Execute SQL
ObjectContext.SetAbort
%>
</BODY>
</HTML>

Поменял:
local 192.168.1.1 на IP address
Пытаюсь достучаться до сервера с рабочей станции, вижу только
The page cannot be displayed
Подскажите, может я ещё что-то не сделал. В книге к сожалению я не нашел никакой дополнительной информации.

...

Рейтинг:

0 / 0

08.04.2003, 15:29

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

Знакомство с SQL и c ASP

#32135935

ozzy

Участник

Откуда: Украина, город-герой курорт Трускавец

Сообщения: 18

Рейтинг: 0 / 0

убери строчку
conn.Mode = adModeRead
иначе UPDATE не проходит
на сервере должна быть смешанная аутентификация
и логин sa без пароля

...

Рейтинг:

0 / 0

08.04.2003, 16:05

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

Знакомство с SQL и c ASP

#32138109

Delitant

Гость

Сделал как ты мне посоветовал, но без результатно. Начал эксперементировать, закоментарил нижние строчки, и обнаружил ошибку, правда только когда делаешь рефреш.

---------------------------------------------------
Microsoft VBScript runtime error '800a01f4'
Variable is undefined: 'adUseClient'
---------------------------------------------------

На сервере (SQL) стоит SQL Server and Windows Authen.
Посмотрел на сервере adovbs.inc, там есть такая переменная.
Эксперимениты с Excell проходят успешно.

Может ещё что-нибудь подскажешь?

...

Рейтинг:

0 / 0

11.04.2003, 08:27

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

Знакомство с SQL и c ASP

#32138175

Andrew

Участник

Сообщения: 445

Рейтинг: 0 / 0

в коде нет

...

Рейтинг:

0 / 0

11.04.2003, 09:51

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

Знакомство с SQL и c ASP

#32138819

Delitant

Гость

2 Andrew
Включил строку

Всё равно не находит.

Пришлось делать виртуальный каталог, и включать следующию строку


Все хорошо, но возникла другая ошибка:
---------------------------------------------------------------
Microsoft OLE DB Provider for SQL Server error '80004005'

[DBNETLIB][ConnectionOpen (Connect()).]SQL Server does not exist or access denied.
-----------------------------------------------------------------

...

Рейтинг:

0 / 0

11.04.2003, 15:12

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

Знакомство с SQL и c ASP

#32139214

Andrew

Участник

Сообщения: 445

Рейтинг: 0 / 0

скорее всего у Вас не установлены клиентские сетевые библиотеки для соединения с SQL сервером.
смотрите в BOL - Administering SQL Server - Managing Clients - Client Net-Libraries and Network Protocols

...

Рейтинг:

0 / 0

11.04.2003, 19:26

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

Знакомство с SQL и c ASP

#32139296

Delitant

Гость

Я не знаю что такле BOL.
Я проверил, на серевере стоит слушать TCP. Других протоколов там нет. И вот что самое главное, мой сервер делает репликацию с другово сервера.
Я поменял синтаксисо скрипта.
<%@ Language=VBScript %>
<% option explicit %>

<%
Dim conn
Dim SQL
Dim R
Dim F
Dim RecsAffected
Dim aConnectionString
aConnectionString = "Data Source=(192.168.1.1)"
Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = aConnectionString
conn.Mode = adModeRead
conn.Provider="SQLOLEDB"
conn.DefaultDatabase="ClassRecords"
conn.UserID="sa"
conn.Password=""
conn.CursorLocation=adUseClient
conn.open
SQL = "SELECT * FROM Students"
Set R = conn.execute(SQL, , adCmdText)
R.Open SQL, conn,adOpenStatic, adLockReadOnly,adCmdText
Response.Write "By default, when you first open a Recordset object, it's positioned at the first record. "
Response.Write "First Record: " & R("ParentName") & ", " & R("FirstName") & " "
...
R.Close
set R = nothing
conn.Close
set conn = nothing
%>

Появилась ошибка
--------------------------------------------------
ADODB.Connection error '800a0e78'

Operation is not allowed when the object is closed.
--------------------------------------------------
При тестировании с использованием Data Source (ODBC) тест проходит успешно.
Вот отчет:
--------------------------------------------------------------
Microsoft SQL Server ODBC Driver Version 03.70.0820

Data Source Name: ClassRecords
Data Source Description: ClassRecords
Server: 192.168.1.1
Database: (Default)
Language: (Default)
Translate Character Data: Yes
Log Long Running Queries: No
Log Driver Statistics: No
Use Integrated Security: No
Use Regional Settings: No
Prepared Statements Option: Drop temporary procedures on disconnect
Use Failover Server: No
Use ANSI Quoted Identifiers: Yes
Use ANSI Null, Paddings and Warnings: Yes
---------------------------------------------------------------

Поэтому мне кажется с протоколами там всё нормально.
Немогу достучаться до базы :-(

...

Рейтинг:

0 / 0

12.04.2003, 08:03

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

Знакомство с SQL и c ASP

#32139893

АлексейК

Участник

Откуда: http://www.msdatabase.ru , Moscow

Сообщения: 7 569

Рейтинг: 0 / 0

ты не написал на какой строке возникает ошибка

я обычно подключаюсь так

set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "Provider=SQLOLEDB.1;Password=www;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=myserver"
set RST = conn1.execute("SELECT .... ")

...

Рейтинг:

0 / 0

14.04.2003, 13:48

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

Знакомство с SQL и c ASP

#32140486

Delitant

Гость

2 АлексейК
Ошибка возникает в строчке
conn.DefaultDatabase="ClassRecords"

С предложенным тобой скриптом я еще не эксперементировал.

...

Рейтинг:

0 / 0

15.04.2003, 08:54

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

Знакомство с SQL и c ASP

#32142303

Delitant

Гость

2 АлексейК
Переписал скрипт.
Dim aConnectionString
aConnectionString="Data Source=(192.168.1.1);Initial Catalog=master; User ID=sa; Password="
conn.Provider="SQLOLEDB"
conn.Mode = adModeRead
conn.ConnectionString = aConnectionString
conn.open

Нет сообщения об ошибке, долго грузится. Может быть оставить комппьютер на ночь? :-)

...

Рейтинг:

0 / 0

16.04.2003, 15:53

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

Знакомство с SQL и c ASP

#32143696

Delitant

Гость

2 АлексейК
Воспользовался твоим советом, вот что получил.
----------------------------------------------------------
ADODB.Connection error '800a0e7a'

Provider cannot be found. It may not be properly installed.
----------------------------------------------------------

Пробовал (Provider=SQLOLEDB.1) с первой версией, и без указания версии.

BOL это оказывается не человек, а SQL book on-line.

...

Рейтинг:

0 / 0

18.04.2003, 06:09

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

Знакомство с SQL и c ASP

#32143704

Delitant

Гость

Получилось! Я чуть ... Здесь дам нет? к$%@ил.
Привожу пример скрипта.
<%@ Language=VBScript %>
<% option explicit %>

<%
Dim conn
Dim conString
Dim SQL
Dim R
Set conn = Server.CreateObject("ADODB.Connection")
conString="DRIVER={SQL Server};server=192.168.1.1;UID=sa;PWD=;Initial Catalog=testdb"
conn.Open conString
SQL = "SELECT * FROM somefield"
set R=Server.CreateObject("ADODB.RECORDSET")
R.Open sql, conn, adOpenStatic, adLockReadOnly, adCmdText
Response.Write "By default, when you first open a Recordset object, it's positioned at the first record. "
Response.Write "First Record: " & R("ParentName") & ", " & R("FirstName") & " "
Response.Write "Moved to the last record. "
R.moveLast
Response.Write "Last Record: " & R("ParentName") & ", " & R("FirstName") & " "
Response.Write "Moved to the previous record. "
R.close
set R = nothing
conn.Close
set conn = nothing
%>
Единственный минус, долго открывается.
Не смог этим способом открыть базу master.

...

Рейтинг:

0 / 0

18.04.2003, 07:24

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

Знакомство с SQL и c ASP

#32146600

Delitant

Гость

ИЗВЕНИТЕ, оказывается всё работает, просто у меня была опечатка в SQL = "SELECT * FROM Students"

...

Рейтинг:

0 / 0

23.04.2003, 12:31

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

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

Форумы / ASP.NET [игнор отключен] [закрыт для гостей] / Знакомство с SQL и c ASP

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

start [/forum/topic.php?fid=18&msg=32138175&tid=1396504]:	0ms
get settings:	10ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	34ms
get topic data:	13ms
get forum data:	3ms
get page messages:	56ms
get tp. blocked users:	2ms
others:	251ms

total:	390ms