И вопрос нумбер ту: Как программно создать новую таблицу в БД Access
Как посылать почту черес сервера с SMTP-аутентификацией?
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 5
• Страница 1 из 1
- Tarik
- Агент Системы
-
- Сообщения: 1222
- Зарегистрирован: 03.01.2003 (Пт) 16:05
- Откуда: Москва
Как посылать почту черес сервера с SMTP-аутентификацией?
Tarik » 26.09.2003 (Пт) 21:12
Вопрос нумбер ван: Как можно послать письмо через сервер с SMTP-аутентификацией (например, mail.ru)? Очень нужен компактный код, без всяких излишеств и подключаемых dll.
И вопрос нумбер ту: Как программно создать новую таблицу в БД Access
И вопрос нумбер ту: Как программно создать новую таблицу в БД Access
Ever tried? Ever failed? No matter. Try again! Fail again! Fail better!
- val
- Продвинутый пользователь
- Сообщения: 168
- Зарегистрирован: 14.11.2002 (Чт) 1:14
val » 27.09.2003 (Сб) 5:20
На второй вопрос могу ответить так:
Используя методы DAO
Dim dbAuthor As Database
Dim tbdefData1 As TableDef
Set dbAuthor = OpenDatabase("Test.mdb")
Set tbdefData1 = dbAuthor.CreateTableDef("tblClientInfo")
With tbdefData1
.Fields.Append .CreateField("LastName", dbText, 20)
.Fields.Append .CreateField("FirstName", dbText, 20)
Еnd With
dbAuthor.TableDefs.Append tbdefData1
Set dbAuthor = Nothing
Используя методы DAO
Dim dbAuthor As Database
Dim tbdefData1 As TableDef
Set dbAuthor = OpenDatabase("Test.mdb")
Set tbdefData1 = dbAuthor.CreateTableDef("tblClientInfo")
With tbdefData1
.Fields.Append .CreateField("LastName", dbText, 20)
.Fields.Append .CreateField("FirstName", dbText, 20)
Еnd With
dbAuthor.TableDefs.Append tbdefData1
Set dbAuthor = Nothing
Сообщений: 5
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: SemrushBot и гости: 6