Отправляет email-рассылки с помощью сервиса Sendsay

Relib.Com - руководство

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "BloggLand и Я | Блоггландия" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Март 2001   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Relib.com

Статистика

4.834 подписчиков
0 за неделю
←   Все выпуски   →

Он-лайн руководство по VB, ASP, SQL


Служба Рассылок Subscribe.Ru проекта Citycat.Ru

ОН-ЛАЙН РУКОВОДСТВО
30 марта 2001
HTML-ВЕРСИЯ

СОДЕРЖАНИЕ

1. Компьютерные новости
    - С 1 апреля РосНИИРОС снижает цены на домены в зоне .RU

2. VB: Советы разработчику
    - Сохранение файла в БД и получение его обратно из БД

3. Новости Relib.com
    - VB: Темы обсуждения
    - ASP: Темы обсуждения
    - Java: Темы обсуждения
    - БД: Темы обсуждения

4. Разное
    - Конкурс
    - IRC-чат

КОМПЬЮТЕРНЫЕ НОВОСТИ

С 1 апреля РосНИИРОС снижает цены на домены в зоне .RU

Росийский НИИ Развития Общественных Сетей (РосНИИРОС) объявил о снижении с первого апреля цен на услуги по регистрации и продлению регистрации доменных имен в зоне .Ru.

С первого апреля 2001 года стоимость услуги по продлению регистрации доменного имени составит 18 долларов США (с учетом НДС 20 процентов). При этом с 13 февраля 2001 года была снижена стоимость регистрации доменного имени с 36 до 24 долларов США.

Для доменов, срок регистрации которых заканчивается первого апреля 2001 года и позднее, счета за услугу по продлению регистрации будут выставлены за 45 календарных дней до окончания срока регистрации в соответствии с новыми тарифами.

Подробнее на странице новостей

VB: СОВЕТЫ РАЗРАБОТЧИКУ

Сохранение файла в БД и получение его обратно из БД

Данный пример будет полезен тем, кто в своей работе использует БД и нуждается в хранении файлов в БД. Пример показывает как можно сохранить двоичный файл (*.EXE, Документ MS Word и т.п.) в БД и, затем, загрузить его обратно. В примере используется ADO, поэтому для работы примеру потребуется указать Reference на Microsoft Active Data Objects. Тип поля БД, в которое будет сохраняться файл, должен быть BINARY (в MS Access - OLE OBJECT). 

Public Function SaveFileToDB(ByVal FileName As String, _
RS As Object, FieldName As String) As Boolean

Dim iFileNum As Integer
Dim lFileLength As Long

Dim abBytes() As Byte
Dim iCtr As Integer

On Error GoTo ErrorHandler

If Dir(FileName) = "" Then Exit Function
If Not TypeOf RS Is ADODB.Recordset Then Exit Function

'считать файл в массив
iFileNum = FreeFile
Open FileName For Binary Access Read As #iFileNum
lFileLength = LOF(iFileNum)
ReDim abBytes(lFileLength)
Get #iFileNum, , abBytes()

'поместить содержимое массива в БД
RS.Fields(FieldName).AppendChunk abBytes()
Close #iFileNum

SaveFileToDB = True
ErrorHandler:
End Function

Public Function LoadFileFromDB(FileName As String, _
RS As Object, FieldName As String) As Boolean

Dim iFileNum As Integer
Dim lFileLength As Long
Dim abBytes() As Byte
Dim iCtr As Integer

On Error GoTo ErrorHandler
If Not TypeOf RS Is ADODB.Recordset Then Exit Function

iFileNum = FreeFile
Open FileName For Binary As #iFileNum
lFileLength = LenB(RS(FieldName))

abBytes = RS(FieldName).GetChunk(lFileLength)
Put #iFileNum, , abBytes()
Close #iFileNum
LoadFileFromDB = True

ErrorHandler:
End Function

'-----------------------
'Пример использования #1
'-----------------------
Dim sConn As String
Dim oConn As New ADODB.Connection
Dim oRs As New ADODB.Recordset

sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyDb.MDB;Persist Security Info=False"

oConn.Open sConn
oRs.Open "SELECT * FROM MYTABLE", oConn, adOpenKeyset, adLockOptimistic
oRs.AddNew

SaveFileToDB "C:\MyDocuments\MyDoc.Doc", oRs, "MyFieldName"
oRs.Update
oRs.Close

'-----------------------
'Пример использования #2
'-----------------------
Dim sConn As String
Dim oConn As New ADODB.Connection
Dim oRs As New ADODB.Recordset

sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyDb.MDB;Persist Security Info=False"

oConn.Open sConn
oRs.Open "SELECT * FROM MyTable", oConn, adOpenKeyset, adLockOptimistic
LoadFileFromDB "C:\MyDocuments\MyDoc.Doc", oRs, "MyFieldName"
oRs.Close
Подробнее на сайте

НОВОСТИ RELIB.COM

ASP: ТЕМЫ ОБСУЖДЕНИЯ

  • Использование RS.AbsolutePage
  • Удаление строк в DataGrid
  • Не работает OpenSchema
  • Вопросы безопастности в ASP
  • Установка ASP под Apache

    VB: ТЕМЫ ОБСУЖДЕНИЯ

  • Ограничение количества элементов на форме
  • Лицензии к ПО, требующиеся при продаже
  • Как записать/считать файл в БД целиком
  • Как узнать, загружена ли форма?
  • Как сделать диаграмму в Word из VB

    JAVA: ТЕМЫ ОБСУЖДЕНИЯ

  • NN6 поддерживает тег Layer или нет?
  • Модальный диалог
  • Апплет в JBulder 4 работает, в Internet Explorer 5.5 нет
  • Модальный диалог
  • Как в JS убить объект?

    БД: ТЕМЫ ОБСУЖДЕНИЯ

  • Как сделать "умный" отчет?
  • Трудности с Update в Access присоединенных SQL Server таблиц
  • Что за формат DBV?
  • Помогите получить рекордсет в VBA для DBF
  • Как работать с рекурсиями в хранимой процедуре

    РАЗНОЕ

    Кроме того, на сайте ведутся дискуссии по следующим темам "Форматы хранения данных. Какими они должны быть?", "О современных программистах", "Каким должен быть графический интерфейс?" и многим другим, приглашаем принять участие!

    Выпуск подготовил Алексей Смирнов
    http://subscribe.ru/
    E-mail: ask@subscribe.ru
    В избранное