MyTetra Share
Делитесь знаниями!
объект ADODB
16.03.2019
23:43
Текстовые метки: VBA, ADO, OpenDataBase
Раздел: !Закладки - VBA - Access - ADO

объект ADODB.Connection пригодился.

следующий код работает с расширением .accdb :



Visual BasicВыделить код





Sub pereschet_vseh_dolei()

Dim cnn As ADODB.Connection, sql_qry As String, filetoopen As String

sql_qry = "текст запроса"

filetoopen = "путь к директории файла\Planning_sku.accdb"

Set cnn = New ADODB.Connection

cnn.Open ConnectionString:="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + filetoopen + ";"

cnn.Execute sql_qry

cnn.Close

Call podgotovka_tablicy

End Sub


 
MyTetra Share v.0.52
Яндекс индекс цитирования