Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Форма не дает менять и добавлять... / 7 сообщений из 7, страница 1 из 1
09.09.2003, 18:31:37
    #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
09.09.2003, 18:55:13
    #32260476
SM
SM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма не дает менять и добавлять...
Set Me.Recordset =

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

Может кто уже объелся собаками и поимел успех в этом деле? :)
...
Рейтинг: 0 / 0
10.09.2003, 11:40:22
    #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
10.09.2003, 12:12:10
    #32260981
Nick987
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма не дает менять и добавлять...
Не указан CursorType, а он по умолчанию adOpenForwardOnly. Не указан LockType, а он по умолчанию adLockReadOnly.
Для редактирования нужно adOpenKeyset, adLockOptimistic
...
Рейтинг: 0 / 0
10.09.2003, 15:45:50
    #32261367
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма не дает менять и добавлять...
я знаю в чем тут дело.
нужно
- или исползовать ACC 2002
- или рекордсет подключать через провайдер MSDATASHAPE
...
Рейтинг: 0 / 0
10.09.2003, 17:37:35
    #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
Период между сообщениями больше года.
23.09.2004, 15:08:16
    #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
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Форма не дает менять и добавлять... / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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