MyTetra Share
Делитесь знаниями!
Open_RecordsetADO
Время создания: 04.12.2020 12:07
Текстовые метки: Connect Excel To Access, ADO, Connection, Recordset, Excel-Access, CursorLocation, RecordCount
Раздел: !Закладки - VBA - Access - ADO
Запись: xintrea/mytetra_db_adgaver_new/master/base/1607072832h4t0oghnzb/text.html на raw.githubusercontent.com

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.59
Яндекс индекс цитирования