MyTetra Share
Делитесь знаниями!
Open_RecordsetADO
Время создания: 04.12.2020 12:07
Текстовые метки: Connect Excel To Access, ADO, Connection, Recordset, Excel-Access, CursorLocation, RecordCount
Раздел: !Закладки - VBA - Access - ADO

Sub Open_RecordsetADO2(ByVal strSQL As String)

ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & CONST_str_Db_TempsRet & "; Jet OLEDB:Database;"


Dim con As New ADODB.Connection

Dim rs As New ADODB.Recordset


con.Open ConnectionString


'Set objRS = Server.CreateObject("ADODB.Recordset")

'objRS.CursorLocation = adUseClient

'objRS.Open "SELECT * FROM " & viewName & ";", objConn, adOpenStatic, adLockReadOnly, adCmdText

rsADO.CursorLocation = adUseClient

rsADO.Open strSQL, con, , adLockPessimistic ' 3, 3,

End Sub




Sub Open_RecordsetADO(ByVal strSQL As String)

Set connDbADO = CurrentProject.AccessConnection

' rsADO.Open strSQL, connDbADO, , adLockBatchOptimistic ' 3, 3, 'rsADO.UpdateBatch

rsADO.Open strSQL, connDbADO, , adLockPessimistic ' 3, 3,

End Sub

Так же в этом разделе:
 
MyTetra Share v.0.53
Яндекс индекс цитирования