Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Добавление записи..... / 11 сообщений из 11, страница 1 из 1
24.05.2003, 14:24
    #32167874
pv
pv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление записи.....
Проект ADP(SQL server)
Есть база bd(на сервере), с таблицей a, поля в которой(н-р) 1, 2, 3
Какими методами можно програмно добавить строку в таблицу а, т.е. кодом в VBA?
Можно ли это сделать не создавая програмного конекта к БД.
Есть ли какие-нибудь возможности доступа к таблицам из VBA похожие на доступ к формам [Forms]!... ?
...
Рейтинг: 0 / 0
24.05.2003, 15:45
    #32167903
V. Motchulsky
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление записи.....
DoCmd.RunSQL "Insert into MyTable Values(1, 2, 3)"
...
Рейтинг: 0 / 0
24.05.2003, 15:53
    #32167907
V. Motchulsky
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление записи.....
или
Application.CurrentProject.Connection.Execute "Insert into MyTable Values(1, 2, 3)", , adExecuteNoRecords
...
Рейтинг: 0 / 0
24.05.2003, 16:22
    #32167920
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление записи.....
Не открывая конекта (и не пользуясь уже открытым) - нельзя.
пв, когда ты спрашивал, можно ли считать данные из таблицы не обращаясь к таблице - тебе ответили, что нельзя. Точно так же, как нельзя достать тапочки из комнаты не открывая ее.
Теперь ты решил узнать можно ли положить в комнату тапочки не открывая комнату?
Найди человека который тебе диплом напишет и прекрати людям мозг е%ать
...
Рейтинг: 0 / 0
24.05.2003, 16:24
    #32167921
pv
pv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление записи.....
Что-то ругается, может ошибку подскажете?
вот как выглядит код:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    Dim SQL As String
    
    SQL =  "Insert into Receipts([date], goods_id, [count], client, pay_type, price) Values("  _
        & Me.date &  ","  & [Forms]![All OrdersBySlr]![imodel] &  ","  & Me.count &  ","  _
        & [Forms]![All OrdersBySlr].[client] &  ","  & Me.pay_type &  ","  & Me.price &  ")" 
        
    DoCmd.RunSQL SQL



как доходит до
Код: plaintext
1.
DoCmd.RunSQL SQL

то Аксес выдает месагу incorrect syntax near '.2003'.
К слову .2003 - часть даты 24.05.2003, поля Me.date, форма [All OrdersBySlr] в этот момент открыта, проблем со значениями взятыми с ее контролов нет, вот что показывает watch, о переменной SQL:

"Insert into Receipts([date], goods_id, [count], client, pay_type, price) Values(24.05.2003,24,10,2,2,66)"
...
Рейтинг: 0 / 0
24.05.2003, 16:27
    #32167923
pv
pv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление записи.....
2 Лох Позорный
Под фразой: " Можно ли это сделать не создавая програмного конекта к БД "
Подразумевалось, чтоб не писать дополнительные строки о подключении, думаю г. V. Motchulsky понял меня правильно, по крайне мере его вариант вполне подходит, единственное осталось с синтаксисом разобраться.
...
Рейтинг: 0 / 0
24.05.2003, 16:32
    #32167927
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление записи.....
Дату преоразовывать надо. Для Jet'а дата должна иметь вид #mm/dd/yy#, для SQL-сервера - yyyymmdd. Если я ошибся - сам копай, смотри хелп или устрой поиск по форуму по строке "формат даты".
...
Рейтинг: 0 / 0
24.05.2003, 16:35
    #32167929
V. Motchulsky
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление записи.....
Надо Values('20030524',24,10,2,2,66)
............."'" & Format(Me.Date, "yyyymmdd") & "'"..........
...
Рейтинг: 0 / 0
24.05.2003, 16:43
    #32167933
pv
pv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление записи.....
2 V. Motchulsky
Огромное спасибо!!!!
...
Рейтинг: 0 / 0
24.05.2003, 16:54
    #32167935
V. Motchulsky
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление записи.....
все таки лучше Convert(DateTime, '24-05-2003', 104) , полностью независит от языковых настроек.
...
Рейтинг: 0 / 0
24.05.2003, 17:11
    #32167938
pv
pv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление записи.....
2 V. Motchulsky
Думаю первый вариант оставлю, но спасибо за поправку.
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Добавление записи..... / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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