ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Сохранение примечаний
6 сообщений из 6, страница 1 из 1
Сохранение примечаний
    #32610191
AndreEj
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreEj
Гость
помогите пожалуйста
никак мне не удается найти нужную команду:
/topic/105230

________________
ВОТ и ВСЕ
...
Рейтинг: 0 / 0
19.07.2004, 11:43:21
| Ответить | Цитировать | Написать  
Сохранение примечаний
    #32611979
AndreEj
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreEj
Гость
в екселе прочитаны все примечания и запомнены в массив
оттудаже создается в акцессе база и таблица
НО никак не могу найти способ ее заполнить!!!!!!!!!!!
то есть как мне сделать новую запись в созданной таблице на основе данных из переменной
________________
ВОТ и ВСЕ
...
Рейтинг: 0 / 0
20.07.2004, 11:11:19
| Ответить | Цитировать | Написать  
Сохранение примечаний
    #32612022
Tsaryov S
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tsaryov S
Участник
Записи в таблицу можно добавлять (а также изменять и удалять) как минимум двумя способами - используя запросы+Querydef и через DAO.
Через DAO это делается так:
Код: plaintext
1.
2.
3.
4.
5.
6.
dim rst as dao.recordset
set rst = currentDB.Openrecordset(ИмяТаблицы)
rst.new
rst!Поле1 = Знач1
...
rst.update
если ты работаешь не в текущей базе, а скажем из Excel, то нужно еще
открыть базу, и вместо currentDB будет переменная - ссылка на базу.

если будешь запускать программу из Excel, обрати внимание, чтобы была ссылка на библиотеку DAO.
...
Рейтинг: 0 / 0
20.07.2004, 11:23:56
| Ответить | Цитировать | Написать  
Сохранение примечаний
    #32612387
AndreEj
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreEj
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Set access_F = CreateObject("Access.Application")
access_F.NewCurrentDatabase "c:\1.mdb"
Set base_F = access_F.CurrentDb
Set tabl_f = base_F.CreateTableDef("test")
Set field_f = tabl_f.CreateField(Client_ID( 1 ),  10 ,  40 )
Set rst = CurrentDb.OpenRecordset("test")
tabl_f.Fields.Append field_f
base_F.TableDefs.Append tabl_f
rst.New
rst!test = Client_ID( 2 )
rst.Update
access_F.Visible = True
access_F.CloseCurrentDatabase
Вроде же все правильно :(
Но не работает
________________
ВОТ и ВСЕ
...
Рейтинг: 0 / 0
20.07.2004, 13:01:39
| Ответить | Цитировать | Написать  
Сохранение примечаний
    #32612630
AndreEj
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreEj
Гость
Убрал из целого листинга msgbox ("Done")
стал ругатся что сервер ОЛЕ не был правильно зарегестрирован
________________
ВОТ и ВСЕ
...
Рейтинг: 0 / 0
20.07.2004, 14:01:15
| Ответить | Цитировать | Написать  
Сохранение примечаний
    #32612644
AndreEj
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreEj
Гость
Да и в маленьком листинге есть ошибочка там я делаю поле с названием из Client_ID(1) а пытаюсь заполнить test
но исправление этой ошибки ни к чему не приводит
все тоже самое
________________
ВОТ и ВСЕ
...
Рейтинг: 0 / 0
20.07.2004, 14:04:01
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Сохранение примечаний
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32611979&tid=1673079]:
 0ms
get settings:
 5ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 25ms
get topic data:
 5ms
get forum data:
 1ms
get page messages:
 23ms
get tp. blocked users:
 1ms
others: 198ms
total:  270ms
созд. / загр.: 270ms
x
x
Закрыть


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