- Код: Выделить всё
Set m_dbextract = New ADODB.Connection
Set rs = New ADODB.Recordset
m_dbextract.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ProjectServer;Data Source=ITADSQL01"
m_dbextract.Open
rs.Open "SELECT TaskEnterpriseText1 From MSP_VIEW_PROJ_TASKS_ENT", m_dbextract, adOpenStatic, adLockOptimistic
Могу ля я теперь записать полученный рекордсет в таблицу?