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 |
|
