ник: час
получается делаем единожды подключение:
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()
|
А может у соединения можно курсоры прописать...
нО тогда наверное тоже каждый раз при открытии соединения надо будет задавать значения курсоров - или нет?