Архив форумов ЦИТФорума

[Zmei]

Имеем

Dim РабочаяОбласть As Workspace
Dim БазаДанных As Database
Dim Запись As Recordset

' создание рабочей области
Set РабочаяОбласть = CreateWorkspace( _
Name:="МояРабочаяОбласть", _
UserName:="admin", _
Password:="", _
UseType:=dbUseODBC _
)

' открытие базы данных
Set БазаДанных = РабочаяОбласть.OpenDatabase( _
"Gurnal", _
dbDriverComplete, _
False, _
"ODBC; DATABASE=secr_gurnal; UID=admin;PWD=;DSN=Gurnal" _
)


'следующий оператор написан от балды
'доступ(как и положено SELECT) дает только на чтение
Set Запись = БазаДанных.OpenRecordset( _
"SELECT * FROM Входящие", _
dbOpenDynamic _
)

КАК СДЕЛАТЬ СЛЕДУЮЩЕЕ:
"INSERT INTO Входящие (Входящий номер, Содержание) VALUES ('9999', 'Это содержание 9999')"

Книжек по VBA под рукой нет
А в helpe примеры куцые


P.S. Подскажите какую книгу по VBA целесообразнее прикупить (чтобы DAO, ADO и прочее было нормально прописано)

[Old_Den]

Самая хорошая книга - это MSDN