
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
15.07.2006, 18:18
|
|||
|---|---|---|---|
|
|||
После выполнения команды DataGrid не редактируется! |
|||
|
#18+
Помогите, пожалуйста! Выполняю запрос с параметрами к базе данных Northwind.mdb через объект Command. Вроде все нормально. но Datagrid не редактируется! Если обращаюсь к хранимой процедуре в SQL так же через объект Command - проблема та же, но если через rs.Open "имя_процедуры" "имя_пар1", "имя_пар2" - DATAGrid редактируемий. Когда пытаюсь выполнить запрос с параметрами в Аccess через rs.open "[sales by year] #1/1/95#, #12/1/95#" - думает, что это обычный запрос и дает ошибку. Как добиться, чтоб после выполнения запроса с параметрами DataGrid был все таки редактируемым??? Dim cn As New ADODB.Connection, com As new ADODB.Command Dim prm2 As ADODB.Parameter, rs As ADODB.Recordset Private Sub Form_Load() cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=E:\nwind.mdb" cn.CursorLocation = adUseClient cn.Open rs.CursorType = adOpenDynamic rs.ActiveConnection = cn rs.LockType = adLockOptimistic com.CommandType = adCmdUnknown com.CommandText = "[Sales by year]" com.ActiveConnection = cn com.Parameters.Append com.CreateParameter("BeginningDate", adDate, adParamInput) com.Parameters.Append com.CreateParameter("EndingDate", adDate, adParamInput) com.Parameters(0).Value = "1/1/95" com.Parameters(1).Value = "12/1/95" Set rs = com.Execute() Set DataGrid1.DataSource = rs End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
16.07.2006, 18:57
|
|||
|---|---|---|---|
После выполнения команды DataGrid не редактируется! |
|||
|
#18+
Tamara Dim cn As New ADODB.Connection, com As new ADODB.Command Dim prm2 As ADODB.Parameter, rs As ADODB.Recordset Private Sub Form_Load() cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=E:\nwind.mdb" cn.CursorLocation = adUseClient cn.Open rs.CursorType = adOpenDynamic rs.ActiveConnection = cn rs.LockType = adLockOptimistic com.CommandType = adCmdUnknown com.CommandText = "[Sales by year]" com.ActiveConnection = cn com.Parameters.Append com.CreateParameter("BeginningDate", adDate, adParamInput) com.Parameters.Append com.CreateParameter("EndingDate", adDate, adParamInput) com.Parameters(0).Value = "1/1/95" com.Parameters(1).Value = "12/1/95" Set rs = com.Execute() Set DataGrid1.DataSource = rs End Sub Ну дык йолк! Смотрите, что вы делаете: Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=60&mobile=1&tid=2165575]: |
0ms |
get settings: |
9ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
163ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
36ms |
get tp. blocked users: |
1ms |
| others: | 207ms |
| total: | 450ms |

| 0 / 0 |
