Re: Access+SQL+VBA
> Здравствуйте,
>
Привет.
> необходимо создать БД. таблица, связи, заполнение таблиц данными
> необходимо осуществить с помощью VBA. но не стандартными
> процедурами, а чисто на SQL (DDL).
> Я уже запуталась... как это?
>
Достаточно просто.
Нужно сформировать строки с нужными
операторами SQL и выполнить их.
Например так:
Option Compare Database
Option Explicit
Public Sub ExecSQL(sText As String)
Dim refSelf As Database
Set refSelf = CurrentDb
refSelf.Execute sText
Set refSelf = Nothing
End Sub
Public Sub MakeDb()
ExecSQL ("CREATE TABLE USERS (ID INTEGER PRIMARY KEY,NAME TEXT)")
ExecSQL ("CREATE TABLE EMAIL (USERID INTEGER NOT NULL,MAIL TEXT)")
ExecSQL ("ALTER TABLE EMAIL ADD CONSTRAINT USERID FOREIGN " & _
"KEY (USERID) REFERENCES USERS (ID)")
ExecSQL ("INSERT INTO USERS (ID,NAME) VALUES (1,'имя')")
ExecSQL ("INSERT INTO EMAIL (USERID,MAIL) VALUES (1,'имя@где_то_там.net')")
End Sub
Номер выпуска : 5064
Возраст листа : 800 (дней)
Количество подписчиков : 547
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/482019
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru