powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Добавление записи.....
11 сообщений из 11, страница 1 из 1
Добавление записи.....
    #32167874
pv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Проект ADP(SQL server)
Есть база bd(на сервере), с таблицей a, поля в которой(н-р) 1, 2, 3
Какими методами можно програмно добавить строку в таблицу а, т.е. кодом в VBA?
Можно ли это сделать не создавая програмного конекта к БД.
Есть ли какие-нибудь возможности доступа к таблицам из VBA похожие на доступ к формам [Forms]!... ?
...
Рейтинг: 0 / 0
Добавление записи.....
    #32167903
V. Motchulsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
DoCmd.RunSQL "Insert into MyTable Values(1, 2, 3)"
...
Рейтинг: 0 / 0
Добавление записи.....
    #32167907
V. Motchulsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
или
Application.CurrentProject.Connection.Execute "Insert into MyTable Values(1, 2, 3)", , adExecuteNoRecords
...
Рейтинг: 0 / 0
Добавление записи.....
    #32167920
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не открывая конекта (и не пользуясь уже открытым) - нельзя.
пв, когда ты спрашивал, можно ли считать данные из таблицы не обращаясь к таблице - тебе ответили, что нельзя. Точно так же, как нельзя достать тапочки из комнаты не открывая ее.
Теперь ты решил узнать можно ли положить в комнату тапочки не открывая комнату?
Найди человека который тебе диплом напишет и прекрати людям мозг е%ать
...
Рейтинг: 0 / 0
Добавление записи.....
    #32167921
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
Добавление записи.....
    #32167923
pv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Лох Позорный
Под фразой: " Можно ли это сделать не создавая програмного конекта к БД "
Подразумевалось, чтоб не писать дополнительные строки о подключении, думаю г. V. Motchulsky понял меня правильно, по крайне мере его вариант вполне подходит, единственное осталось с синтаксисом разобраться.
...
Рейтинг: 0 / 0
Добавление записи.....
    #32167927
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Дату преоразовывать надо. Для Jet'а дата должна иметь вид #mm/dd/yy#, для SQL-сервера - yyyymmdd. Если я ошибся - сам копай, смотри хелп или устрой поиск по форуму по строке "формат даты".
...
Рейтинг: 0 / 0
Добавление записи.....
    #32167929
V. Motchulsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Надо Values('20030524',24,10,2,2,66)
............."'" & Format(Me.Date, "yyyymmdd") & "'"..........
...
Рейтинг: 0 / 0
Добавление записи.....
    #32167933
pv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 V. Motchulsky
Огромное спасибо!!!!
...
Рейтинг: 0 / 0
Добавление записи.....
    #32167935
V. Motchulsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
все таки лучше Convert(DateTime, '24-05-2003', 104) , полностью независит от языковых настроек.
...
Рейтинг: 0 / 0
Добавление записи.....
    #32167938
pv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 V. Motchulsky
Думаю первый вариант оставлю, но спасибо за поправку.
...
Рейтинг: 0 / 0
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Добавление записи.....
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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