Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Сохранение примечаний / 6 сообщений из 6, страница 1 из 1
19.07.2004, 11:43:21
    #32610191
AndreEj
AndreEj
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сохранение примечаний
помогите пожалуйста
никак мне не удается найти нужную команду:
/topic/105230

________________
ВОТ и ВСЕ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2004, 11:11:19
    #32611979
AndreEj
AndreEj
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сохранение примечаний
в екселе прочитаны все примечания и запомнены в массив
оттудаже создается в акцессе база и таблица
НО никак не могу найти способ ее заполнить!!!!!!!!!!!
то есть как мне сделать новую запись в созданной таблице на основе данных из переменной
________________
ВОТ и ВСЕ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2004, 11:23:56
    #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, 13:01:39
    #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, 14:01:15
    #32612630
AndreEj
AndreEj
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сохранение примечаний
Убрал из целого листинга msgbox ("Done")
стал ругатся что сервер ОЛЕ не был правильно зарегестрирован
________________
ВОТ и ВСЕ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2004, 14:04:01
    #32612644
AndreEj
AndreEj
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сохранение примечаний
Да и в маленьком листинге есть ошибочка там я делаю поле с названием из Client_ID(1) а пытаюсь заполнить test
но исправление этой ошибки ни к чему не приводит
все тоже самое
________________
ВОТ и ВСЕ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Сохранение примечаний / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 273ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1673079]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 33ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 22ms
get tp. blocked users:
 1ms
others: 190ms
total:  273ms
x
x
Закрыть


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