MEMO на SQL Server

[abc]

У меня есть две одинаковые б.д.
Одна *.mdb , другая SQL Server

В случае б.д. на SQL Server
Когда я делаю выборку и заполняю поля формы (VB 6.0)

TxtNotes = rs!Notes (тип данных МЕМО) выдает ошибку.
На другие поля не ругается и в случае *.mdb нормально съедает эту строку.

[Sedge]

Через объект Stream.

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

Set Stream1 = New ADODB.Stream
With Stream1
  .Type = adTypeText
  .Open
  .Write Recorset1.Fields("Text").value
  txtText.text = .Read
  .Close
End With
Set Stream1 = Nothing


[abc]

Проблемма в том что я могу использовать только модель DAO (таково условие заказчика)

[Sebas]

хех, а что за ошибка? И зачем MEMO?

Ведт в SQL сервере текстовое поле може быть поболе 255

[Konst_One]

тогда юзай свойство GetChunk у нужного тебе поля, чтобы данные взять в байтовый массив

[abc]

МЕМО досталось по наследству.
Клиентская часть одна для центрального офиса где б.д. на SQL Server (раньше тоже было *mdb) и для перефирии где б.д. *.mdb поэтому DAO

Что обидно QueryAnalyzer нормально выполняет запрос.

Полезу в Хелп. Что оно за GetChunk...

[Andrey Fedorov]

Вообще должно работать.
Ты не написал что за ошибку выдает...

Ошибка у тебя может быть в двух вариантах:

1. Значение поля NULL
2. Слишком большая длина текста в этом поле (натыкаешься на ограничение TextBox-a)

[abc]

Не Null и не Empty - проверял к тому же
QueryAnalyzer выдает нормальный текст.
Ошибка:
Invalid cursor position S1109 Run-time error'0'

DATALENGTH() выдает 432
Если большая длина текста, что делать?

[Andrey Fedorov]

DATALENGTH() выдает 432
Если большая длина текста, что делать?

Да это совсем не большая длина текста.
В TextBox влазит от 32K до 64K (зависит то ли от операционки, толи от версии сервис пака - точно не помню).

Трудно сказать что там у тебя - с DAO я не работаю уже много лет - MS сказал про него забыть, я и забыл. Да и в те годы прошлого века когда я еще работал с DAO пользовал только MDB-шки. А с MS SQL начал сразу через ADO...

Интересно, а чем заказчик обосновывает свою любовь к почившему в мире DAO???

[abc]

Для интересующихся: У нас более 300 офисов по всей Украине. Везде б.д. *mdb , в клиентской части масса запросов объкт DAO. В центральном офисе б.д. сейчас переносим на SQL сервере. Задача в том что б с мин. изменениями, прога. работали и с *mdb, и SQL Server.

Всет аки хотелось бы получить совет:
Что делать, что бы -
TxtNotes = rs!Notes работал?

[Andrey Fedorov]

А в переменную rs!Notes у тебя вообще читается?

Может с драйвером ODBC что-то не то...

[abc]

В переменную тоже не читается.
Что может быть с драйвером ODBC ?

[Andrey Fedorov]

Что может быть с драйвером ODBC ?

Дык кто-ж тебя знает.
Вот специально попробовал с DAO - все работает на ура:

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

Public Sub Main()
    Dim db As DAO.Database
    Dim r As DAO.Recordset, s As String
   
    Set db = DBEngine.OpenDatabase("MyDB", dbDriverNoPrompt, True, _
        "ODBC;DRIVER=SQL Server;SERVER=MyServer;DATABASE=MyDB;UID=sa;PWD=MyPassword")
    Set r = db.OpenRecordset("SELECT * FROM tblКлиенты WHERE ID_Клиента=17558", dbOpenDynaset, dbSeeChanges)
    s = r!Примечание
    Debug.Print s
End Sub

Да-на машине: Win2000, Office 2003, ADO 2.8, DAO 3.6

[Sedge]

Возник вдруг вопрос.
А какой тип данных у поля [Notes] на SQL-сервере?
Во что Access-овское MEMO преобразовываешь?

[alibek]

Вроде бы как WChar.
Подключи ADOX и посмотри, точно не помню, а проверить не на чем.

[Andrey Fedorov]

WChar - это символьное фиксированной ширины, уникод (nchar по SQL-серверному).
А аналог Memo на MS SQL - это text/ntext.
Впрочем, в их задаче Memo может быть и не обязателен - может оказаться вполне достаточным того-же varchar длиной 2000 (к примеру). Но это уже по месту надо смотреть.

Ну а что у них глючит - скорей всего что-то в настройках сервера/ODBC - отсюда не видно...

[abc]

При экспорте б.д. из Access на SQL Server поля МЕМО сохранились как ntext

В присланом примере это поля действительно открываются, но зато валится на UNION.

Я делал так:
DBEngine.RegisterDatabase txtName, "SQL Server", True, "Database=" & strBD & vbCr & "Trusted_Connection=Yes" & vbCr & _
"Server=" & strServer
Set wrkODBC = CreateWorkspace("ODBCWorkspace", "admin", "", dbUseODBC)
Set db =wrkODBC.OpenDatabase(txtName, dbDriverNoPrompt, False)
Union отрабатывает нормально, но валится на ntext