|
|
|
ADODB.recordset
|
|||
|---|---|---|---|
|
#18+
Народ подскажите : 1. как правильно открыть Adodb.recordset на основе присоединенной таблицы SQL- Server. 2. Объект adodb.recordset - stream. У этого объекта есть метод Write, требующий параметра buffer. Каким указать этот параметр (с запасом "что бы все влезло.") С уважением, спасибо ! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.12.2004, 14:16:05 |
|
||
|
ADODB.recordset
|
|||
|---|---|---|---|
|
#18+
это не чтобы все влезло :-) рекордсет, это один обьект, стрим - другой, buffer - то, что писать в стрим, в данном случае там надо написать write(рекордсет!полеIMAGE) на вот код и не парься Dim str As ADODB.Stream, Rs As Recordset Set str = New ADODB.Stream str.Type = adTypeBinary str.Open Set Rs = CurrentDb.OpenRecordset(тут селект пишешь, dbOpenDynaset, dbSeeChanges) str.Write (Rs!поле image) Rs.Close Set Rs = Nothing str.SaveToFile curpath, adSaveCreateOverWrite Dim wss As Object Set wss = CreateObject("WScript.Shell") wss.Run curpath ------------------ Best regards, _bob ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.12.2004, 14:59:56 |
|
||
|
ADODB.recordset
|
|||
|---|---|---|---|
|
#18+
_Bob, огромное человеческое спасибо! Очень выручили! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.12.2004, 15:35:55 |
|
||
|
ADODB.recordset
|
|||
|---|---|---|---|
|
#18+
_bob, простите уж бестолкового. Кажется все разжевано дальше некуда. Работает кстати супер, но для полноты картины обратная операция, через stream.LoadFromFile не выходит. Вот фрагмент кода: Dim str As ADODB.Stream, Rs As DAO.Recordset, p p = Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name))) p = p & "2\" & "NC.HLP" Set str = New ADODB.Stream str.Type = adTypeBinary str.Open Set Rs = CurrentDb.OpenRecordset("OPIT", dbOpenDynaset, dbSeeChanges) str.LoadFromFile p str.Write (Rs(2)) Rs.Close Set Rs = Nothing Что же не так? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.12.2004, 14:23:11 |
|
||
|
ADODB.recordset
|
|||
|---|---|---|---|
|
#18+
' грузим из файла в табличку MenuPictures - сначала маску, затем картинку rs_mstr.Open "Select * from MenuPicture", con, adOpenDynamic, adLockOptimistic mstream.Type = adTypeBinary ' грузим маску и картинку mstream.Open mstream.LoadFromFile MaskFileName rs_mstr.AddNew rs_mstr("MenuPicture").Value = mstream.Read rs_mstr.Update ' закрываем рекордсет по картинкам и поток rs_mstr.Close: Set rs_mstr = Nothing mstream.Close В данном случае мы добавляем запись в рекордсет - просто нужно исправить применительно к вашей ситуации... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.12.2004, 14:36:27 |
|
||
|
|
start [/forum/topic.php?fid=45&msg=32839253&tid=1669547]: |
0ms |
get settings: |
6ms |
get forum list: |
16ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
36ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
39ms |
get tp. blocked users: |
1ms |
| others: | 191ms |
| total: | 303ms |
| 0 / 0 |
