| Вопрос: Сохранение в DataGrid | Добавлено: 26.09.02 10:05 |
Автор вопроса:  dam
|
|
Создал DataGrid. Установил AllowAddNew, AllowArrows, ArrowDelete, ArrowUpdate в true. Никаких изменений в таблице нет (новые строки, изменение) Код Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub Form_Load() Set cn = New ADODB.Connection cn.Open "dsn=dip2" Set rs = New ADODB.Recordset rs.CursorType = adOpenKeyset rs.LockType = adLockBatchOptimistic ' adLockBatchOptimistic rs.CursorLocation = adUseClient rs.Source = ("Select * from podr") rs.ActiveConnection = cn rs.Open Set DataGrid1.DataSource = rs rs.Update End Sub Private Sub Form_Unload(Cancel As Integer) rs.Close cn.Close Set rs = Nothing Set cn = Nothing End Sub |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа: evgen2 Вопросов: 1 Ответов: 3 |
Профиль | | #1 | Добавлено: 12.05.04 18:16 |
|
Что такое "dsn=dip2"? Можно попробовать воспользоваться мастером. |
||
Страница: 1 |