| |
|
|
| | Помогите пончть-разобраться.
Начинается всё вот так
Dim сn as new ADODB.Connection ()
cnn.ConnectionString = StringConnectToBDAccess("Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database ", "", "", "C:\DB\RMK.arm", "ReadWrite|Share Deny None")
cn.Open ()
Dim RS As New ADODB.Recordset ()
rs.CursorLocation = ADODB.CursorLocationEnum.adUseClient
rs.CursorType = ADODB.CursorTypeEnum.adOpenStatic
rs.LockType = ADODB.LockTypeEnum.adLockBatchOptimistic
rs.Open ("SELECT * FROM продуктов", сn)
rs.ActiveConnection = Nothing
cn.Close ()
|
Затем идёт работа с набором записей (rs)
затем надо этому (rs ) - присвоить новый набор записе на основании той же таблицы, так как прошло время и там может чё изменилось.
Как правильно это сделать.
Повторно весь код запускать - ругань несусветная.  | |
| |
| |
| |
|
|
| | получается делаем единожды подключение:
Public cnn As New ADODB.Connection()
cnn.ConnectionString = StringConnectToBDAccess("Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database ", "", "", "C:\DB\RMK.arm", "ReadWrite|Share Deny None")
|
А потом каждый раз вот так?
Dim RS As New ADODB.Recordset()
cnn.Open()
RS.CursorLocation = ADODB.CursorLocationEnum.adUseClient
RS.CursorType = ADODB.CursorTypeEnum.adOpenStatic
RS.LockType = ADODB.LockTypeEnum.adLockBatchOptimistic
RS.Open("SELECT * FROM TUNING_TBL", cnn)
RS.ActiveConnection = Nothing
cnn.Close()
|
А может у соединения можно курсоры прописать...
нО тогда наверное тоже каждый раз при открытии соединения надо будет задавать значения курсоров - или нет? | |
| |
| |
| |
|
|
| | Опять сам с собою. К сожалению я в таких вопросах ничем помочь не могу.   | |
| |
| |
| |
|
|
| | Спасибо - разрулил.....
Один неясный момент остался
Что это такое - и нужно ли оно мне
RST_USERS_TBL.ActiveConnection = Nothing
|
Зачем отсоединятся от соединения.... | |
| |
| |
