|
|
|
После выполнения команды 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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.07.2006, 18:18 |
|
||
|
После выполнения команды 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. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2006, 18:57 |
|
||
|
|

start [/forum/topic.php?fid=60&fpage=273&tid=2165575]: |
0ms |
get settings: |
9ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
81ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
51ms |
get tp. blocked users: |
2ms |
| others: | 246ms |
| total: | 425ms |

| 0 / 0 |
