ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / VB for Access 2.0 - кто это помнит?
3 сообщений из 3, страница 1 из 1
VB for Access 2.0 - кто это помнит?
    #32817094
VZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VZ
Гость
Привет всем!
Кто-нибудь помнит (знает где можно посмотреть) как в 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, 16:49:33
| Ответить | Цитировать | Написать  
VB for Access 2.0 - кто это помнит?
    #32817264
4321
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
4321
Участник
почти так же как и в 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
07.12.2004, 17:44:15
| Ответить | Цитировать | Написать  
VB for Access 2.0 - кто это помнит?
    #32829637
VZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VZ
Гость
Спасибо!
Я правда уже решил забить на это дело, уж очень геморно все таким образом делать.
А 32-й драйвер для битрива для Access 2.0 и из под Win2k нормально работает.
...
Рейтинг: 0 / 0
16.12.2004, 10:00:31
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / VB for Access 2.0 - кто это помнит?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&tid=1669740]:
 0ms
get settings:
 7ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 31ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 20ms
get tp. blocked users:
 1ms
others: 226ms
total:  306ms
созд. / загр.: 306ms
x
x
Закрыть


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