powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Форма не дает менять и добавлять...
7 сообщений из 7, страница 1 из 1
Форма не дает менять и добавлять...
    #32260454
Фотография Slavinag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
MS SQL Server 2000, Access 2000, ADP.
До этого была база MDB. Начали перводить в проект. Создали таблички.
Создаю форму, в которую надо отбирать записи, если поле даты попадает в интервал, указанный в заголовке формы (dBegin и dEnd). У формы нет источника записей на на событие "загрузка" повешен вызов хранимой процедуры:

Private Sub Form_Load()

Dim cmd As ADODB.Command

Set cmd = New ADODB.Command
Set cmd.ActiveConnection = CurrentProject.Connection

cmd.CommandText = "DealsRecords"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Refresh
cmd.Parameters("@dBegin") = Me.dBegin
cmd.Parameters("@dEnd") = Me.dEnd

Set Me.Recordset = cmd.Execute

End Sub

Вот процедура:

Create Procedure "DealsRecords"
@dBegin DATETIME,
@dEnd DATETIME

As

SELECT * FROM Deals WHERE DealDate BETWEEN @dBegin AND @dEnd

set nocount on

return

Форма открывается только на просмотр.
Где глюк?
...
Рейтинг: 0 / 0
Форма не дает менять и добавлять...
    #32260476
SM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Set Me.Recordset =

мне тоже так и не удалось сделать такую конструкцию редактируемой.
Мне нужно было дать пользователю возможность редактировать отсоединенный рекордсет (вместо временных таблиц в ADP), и потом производить какие-либо действия с данными из этого рекордсета.

Может кто уже объелся собаками и поимел успех в этом деле? :)
...
Рейтинг: 0 / 0
Форма не дает менять и добавлять...
    #32260929
Попробуй так:

Код: plaintext
1.
2.
3.
4.
5.
Private Sub Form_Load()

Me.RecordSource =  "EXEC DealsRecords '" & Format(Me.dBegin, "dd-mm-yyyy") & _
                  "', '" & Format(Me.dEnd, "dd-mm-yyyy") & "'" 

End Sub
...
Рейтинг: 0 / 0
Форма не дает менять и добавлять...
    #32260981
Nick987
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Не указан CursorType, а он по умолчанию adOpenForwardOnly. Не указан LockType, а он по умолчанию adLockReadOnly.
Для редактирования нужно adOpenKeyset, adLockOptimistic
...
Рейтинг: 0 / 0
Форма не дает менять и добавлять...
    #32261367
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я знаю в чем тут дело.
нужно
- или исползовать ACC 2002
- или рекордсет подключать через провайдер MSDATASHAPE
...
Рейтинг: 0 / 0
Форма не дает менять и добавлять...
    #32261546
Фотография Slavinag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем спасибо.
Вариант

Me.RecordSource = "EXEC DealsRecords '" & Format(Me.dBegin, "dd-mm-yyyy") & _
"', '" & Format(Me.dEnd, "dd-mm-yyyy") & "'"

проходит, правда с форматом mm/dd/yyyy. И все работает нормально.

Беда была еще в том, что в таблице Deals поля дат заполнялись функцией Now(), а интервал дат по умолчанию формировался Date().
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Форма не дает менять и добавлять...
    #32708684
Bagin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В продолжение темы:
Сделал таку штуку в модуле формы:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private rstRecMe As New ADODB.Recordset
Private rstRecMeNew As New ADODB.Recordset
Private refToSubForm As Form

 ' Загрузка формы: 

Me.PropSub.SourceObject = strFormSubName
Set refToSubForm = Me.PropSub.Form
rstRecMe.CursorLocation = adUseClient
rstRecMe.Open "exec PredstProp 0", cnnPrj, adOpenKeyset, adLockOptimistic
rstRecMe.MoveFirst
On Error GoTo Err_RecordRead  
Set rstRecMeNew = rstRecMe.Clone()
rstRecMeNew.MoveFirst
Set refToSubForm.Recordset = rstRecMeNew
Set rstRecMeNew.ActiveConnection = Nothing
Почему же не дает редактировать данные???
При попытке в поле вводить данные, пишет, что поле такое-то основано на выражении, его изменение не допускается.
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Форма не дает менять и добавлять...
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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