Как правильнее коннектиться к базе ?

[ALX_2002]

Доброго всем дня челы . Пришёл я к вам с прозьбой разъяснить как правильно к базе подсоединяться. Прочитал всю инфу в MSDN и примеры поглядел, но как правильнее так и не понял.

Сначала делал так

Код: Выделить всё

Set Connection = CreateObject("ADODB.Connection")
Set Recordset = CreateObject("ADODB.Recordset")

Connection.Open "база"

[code]Recordset.Open "Запрос", Сonnection, 3,3[/code]

Потом задумался. А зачем создавать Connection если можно рекордсету подсунуть сразу строку коннекта. Как я понял выгода в скорости. Т.е если я подсовываю объект Connection, то по идее он работает быстрее ?

Код: Выделить всё

Recordset.Open "Запрос","база",3,3


А потом наткнулся на Connection.Execute

И запутался окончательно.

Расскажите плиз - как делать правильнее ?

[alibek]

Во-первых, что тебе надо?
А во-вторых, почему позднее связывание? Это же неудобно.
В третьих, делается не так.
Connection.Open ...
...
Set Recordset.Connection = Connection
Recordset.Open ...

Connection.Execute не возвращает рекордсет и обычно используются для соответствующих запросов (не SELECT).

[alibek]

И в четвертых, переношу.

[GSerg]

Как делать правильнее... мануал читать правильнее...
Recordset, если ему дать connectionstring вместо adodb.connection, создаёт новое подключение. Каждый раз. Что не круто, в моём понимании, и написано в мануале.

Connection.execute делает рекордсет. Или не делает, если adExecuteNoRecords. Собственно, в этом случае я его и использую, когда рекордсет не нужен.

[ALX_2002]

2 alibek: Виноват Совсем забыл, что такой раздел есть. Sorry

2 Gserg:

Угу. Спасибо за разъяснение. . Вот я как раз на счёт "каждый раз новый коннект" хотел спросить.

Я с этой темой в ASP ковырялся. Создал Connection. А потом решил проверить его VarType. И к своему удивлению увидел, что Connection является не объектом, а всего лишь String Т.е в переменную Connection просто скидывается строка коннекта . Тут то я и задумался - а надо ли мне его создавать ???

И ещё забыл спросить

Если я делаю Recordset.Open, то по концу перебора записей мне нужно его уничтожать ?

Т.е делать recordset.Close а потом Set Recordset = Nothing ?

[alibek]

И к своему удивлению увидел, что Connection является не объектом, а всего лишь String

Я думаю, ты ошибся.
Connection является объектом. Но у него есть default-property ConnectionString, который и является строкой; скорее всего ты его и видел.

[alibek]

Если я делаю Recordset.Open, то по концу перебора записей мне нужно его уничтожать ?
Т.е делать recordset.Close а потом Set Recordset = Nothing ?

Если Recordset локальный, то Set Recordset = Nothing не обязательно, при выходе из процедуры он уничтожится.
Но я обычно указываю вручную.

[ALX_2002]

2 alibek:

Я думаю, ты ошибся.
Connection является объектом. Но у него есть default-property ConnectionString, который и является строкой; скорее всего ты его и видел.

Ух. Т.е Vartype меня нагло обманул . Т.е когда я делаю

Код: Выделить всё

response.write Vartype(Connection)

то он лезет в свойство по умолчанию Connection ? Ух.

Если Recordset локальный, то Set Recordset = Nothing не обязательно, при выходе из процедуры он уничтожится.
Но я обычно указываю вручную.

Хм. А у меня база подвисает если Nothing не делаю, а только Recordset.Close и повторно вызываю Recordset.Open с новыми параметрами. Наверное я не сделал Recorset локальным.

[alibek]

Объекты лучше проверять IsObject().

[GSerg]

Нет, там правда может быть как строка, так и объект...

[ALX_2002]

2 alibek:
Дык самое смешное в том, что как раз IsObject мне вернуло False. И именно поэтому я и решил проверить VarType

---------
Хм... А сейчас дома попробывал True

Вот бред то... Буду лечить зрение.

[ALX_2002]

А вообще задумался как сократить код обращения к базе и вынести его в функции. У меня на нескольких страницах есть обращение к БД

Тут то я и задумался какие функции мне нужно сделать

Сделал. Но по виду - кривооо. Если я вас ещё не очень достал - посоветуйте плиз. Как симпатичнее организовать ?

Код: Выделить всё

<%

' Константы состояния
Const Opened = 1
Const Closed = 0
Const Executing = 4

Dim Connection, Recordset

'/////////////////////// Подключение к базе
Function Connect()
   On Error Resume next
   Set Connection = Server.CreateObject("ADODB.Connection")
   Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("\DB.mdb")
   Connect = Connection.State
   if Err.number <> 0 Then Disconnect
End Function

'////////////////////// Выполнения запроса
Function Execute(Command)
   On Error Resume next
   ResetRecordset
   Set Recordset = Server.CreateObject("ADODB.Recordset")
   Recordset.Open Command,Connection,2,2
   Execute = Recordset.status
End Function

'///////////////////// Сброс рекордсета
Sub ResetRecordset
   On Error Resume next
   if IsObject(Recordset) Then
      Recordset.Close
      Set Recordset = Nothing
   End if
End Sub

'////////////////////// Отключение от базы
Function Disconnect()
   On error goto 0
   ResetRecordset
   Connection.Close
   Set Connection = Nothing
End Function

'///////////////////// Вывод сообщения
Sub ShowMessage(MSG)
   %><%=MSG %><%   
End Sub
%>


[codemaster]

А вообще задумался как сократить код обращения к базе и вынести его в функции. У меня на нескольких страницах есть обращение к БД

В ASP есть global.asa - наверное то что тебе надо

[ALX_2002]

2 codemaster: Не. Про Global.asa я знаю. Но у меня скрипты лежат не корневом и не в виртуальном каталоге. А раскидывать файлы не хочется.

У меня как раз сложносность в организации функций для коннекта.

Т.е как сделать максимально эффективным обращение к БД.

[Andrey Fedorov]

Если Recordset локальный, то Set Recordset = Nothing не обязательно, при выходе из процедуры он уничтожится.
Но я обычно указываю вручную.

Хотя большого смысла нет - он ведь действительно уничтожится и без Nothing...

[alibek]

Да, но мне так спокойнее

[Andrey Fedorov]

Да, но мне так спокойнее

Да я так и понял.
Но эффект такой-же как и от очистки локальных переменных:

Код: Выделить всё

Sub ...
    Dim s As String
    ...
    s = vbNullString
End Sub

[alibek]

Тебе смешно, но я иногда так и делаю в классах

[Andrey Fedorov]

Тебе смешно, но я иногда так и делаю в классах

С локальными (уровня процедуры/функции) переменными?

[alibek]

Э... С Private уровня класса.

[Andrey Fedorov]

Э... С Private уровня класса.

Ну это-то еще понятно - бывает нужно.
А то я уж испугался.