ferias
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: Private Sub sql() Dim cn As ADODB.Connection, rs As ADODB.Recordset Set cn = New ADODB.Connection cn.Open "Provider=SQLOLEDB;Data Source=PC-SERVER\SQLBLBLBLBLBL;" & _ "Initial Catalog=имя_базы_данных;User ID=имя_пользователя;Password=пароль" Set rs = New ADODB.Recordset With rs .ActiveConnection = cn .Open "UPDATE T1 SET T1.Sale = T2.CurrentPublisherSale WHERE T1.Publisher = T2.CurrentPublisher" 'ActiveSheet.Range("A2").CopyFromRecordset rs .Close End With cn.Close Set rs = Nothing Set cn = Nothing End Sub |
| Всего записей: 39 | Зарегистр. 28-06-2007 | Отправлено: 15:55 11-12-2011 | Исправлено: ferias, 15:59 11-12-2011 |
|