Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / VB for Access 2.0 - кто это помнит? / 3 сообщений из 3, страница 1 из 1
07.12.2004, 16:49:33
    #32817094
VZ
VZ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB for Access 2.0 - кто это помнит?
Привет всем!
Кто-нибудь помнит (знает где можно посмотреть) как в Access 2.0 общаться с объектами типа Excell.Sheet?
У меня пока получилось только:

Dim es As Object
Dim buffer As String
Set es = GetObject("C:\Filename.XLS", "Excel.Sheet")
buffer = es.Name
MsgBox buffer
Set es = Nothing

И все, что дальше делать не знаю, встроенный хелп вообще ничего не дает, пробовал делать так. как в более поздних версиях - посылает, говорит нет таких members в моем объекте. А именно Access 2.0 нужен для связи с Btrieve, пытаться придумать что-то другое почти никаких шансов.
Если кто, что вспомнит/найдет - большой рахмат, очень жду.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2004, 17:44:15
    #32817264
4321
4321
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB for Access 2.0 - кто это помнит?
почти так же как и в 97 (ограничения на возврат объектов из функций)
(видел как-то проблему с вызовом какого-то из методов екселя - как то не пропускал компилятор 2-го аксесса синтаксис ёкселевский, не помню, как, но обходил).
вот кусок кода для 2.0

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Function XlPutFrRstByName (xlS As Object, rst As Recordset, sSuf As String) As Integer
'xlS - Sheet , Rst - текущая запись
Dim xlR As Object '.Range
Dim sName As String, i   As Long
    If Not (rst.EOF And rst.BOF) Then
        On Error Resume Next
        For i =  0  To rst.Fields.count -  1 
            sName = rst.Fields(i).Name
            Set xlR = xlS.PARENT.Names(sName & sSuf).RefersToRange
            If Not xlR Is Nothing Then
                xlR = rst.Fields(i)
            End If
        Next i
        Set xlR = Nothing
    End If
    XlPutFrRstByName = True
End Function


А что, до сих пор B-Trieve оптимально работатет только с Access2.0 ISAM? И все из под вынь3.11 ? (там, помню, была ошибка в ISAM для 32-разрядных систем при длине записи больше ~512 байт. Причем ошибка только на запись в б-трив, чтение было в порядке.)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2004, 10:00:31
    #32829637
VZ
VZ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB for Access 2.0 - кто это помнит?
Спасибо!
Я правда уже решил забить на это дело, уж очень геморно все таким образом делать.
А 32-й драйвер для битрива для Access 2.0 и из под Win2k нормально работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / VB for Access 2.0 - кто это помнит? / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 798ms
Закрыть
start [/forum/search_topic.php?author=ALk&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 10ms
get forum list:
 13ms
get settings:
 7ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 29ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 678ms
total:  798ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]