Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Добавление записей в таблицу / 4 сообщений из 4, страница 1 из 1
07.04.2004, 09:42
    #32471548
Mila
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление записей в таблицу
Здравствуйте всем!
Для добавления записей в таблицу использую вариант:
Dim dbs As DAO.Database, rst As DAO.Recordset
Set rst = dbs.OpenRecordset("SELECT * " & _
" FROM FinDocHeads ;")
rst.MoveLast
rst.AddNew
rst!ODate = Me!Dat
rst!Type = Me!Opers
***********
rst!FilID = Me!Office
rst.Update
rst.MoveLast
Set dbs = Nothing
Set rst = Nothing
Подскажите какие еще есть варианты обращения к таблице для добавления, редактирования, поиска...
или где об этом мона почитать.
Заранее спасибо.
...
Рейтинг: 0 / 0
07.04.2004, 09:59
    #32471583
Deminik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление записей в таблицу
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim cnn as ADODB.Connection, rst As ADODB.Recordset 
Set cnn = currentproject.connection 
rst.Open  "mytable" ,cnn,adOpenKeyset, adLockPessimistic
With rst
.AddNew 
!ODate = Dat 
!Type = Opers 
*********** 
!FilID = Office 
.Update 
.close
cnn.close
end With
...
Рейтинг: 0 / 0
07.04.2004, 10:05
    #32471595
Alexander G
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление записей в таблицу
Запросом SQL
Код: plaintext
CurrentDb.Execute  "INSERT INTO Tbl1 (Имя,Фамилия) VALUES  " ('Вася', 'Петров');"
...
Рейтинг: 0 / 0
07.04.2004, 10:07
    #32471600
Deminik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление записей в таблицу
Код: plaintext
1.
2.
3.
dim strSQL as String
strSQL =  "Insert Into FinDocHeads (ODate, Type, FilID) Values ('"
strSQL = strSQL & Dat & "','" & Opers "','" & Office & "')" 
currentDB.Execute strSQL
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Добавление записей в таблицу / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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