передать параметр запроса на обновление из Excel в Access

[Serge 007]

Ответил здесь:
http://www.planetaexcel.ru/forum.php?thread_id=34721

[Serge 007]

Ответил здесь:
http://www.planetaexcel.ru/forum.php?thread_id=34721

[R Dmitry]

ох и намудрили Вы....

Sub Кнопка2_Щелкнуть()
Dim cnn As New ADODB.Connection
Dim i As Integer
Dim LastDoor As Long
Dim cmd As ADODB.Command
'C:\Documents and Settings\Сергей\Мои документы\db10.mdb

cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\Documents and Settings\Сергей\Мои документы\db10.mdb"
cnn.Open
LastDoor = ThisWorkbook.Sheets("ОсмотрДверей").Cells(65536, 1).End(xlUp).Row
Set cmd = New ADODB.Command
With cmd
.ActiveConnection = cnn

For i = 2 To LastDoor
kodDveri = ThisWorkbook.Sheets("ОсмотрДверей").Cells(i, 1)
.CommandText = "UPDATE Таблица1 SET Таблица1.Дата =" & DataSql(Date) _
& " WHERE Таблица1.КодДв =" & kodDveri
.Execute
Next
End With
cnn.Close
Set cnn = Nothing
End Sub

Function DataSql(dt_sql As String)
DataSql = "#" & Format(dt_sql, "mm\/dd\/yy hh\:mm\:ss") & "#"
End Function

на планете тоже ответил

[Sergey112233]

Уважаемые форумчане.
Подскажите, пожалуйста, как передать параметр из Excel в запрос на обновление Access?

[Sergey112233]

Serge 007,
R Dmitry.

Спасибо

[Sergey112233]

R Dmitry,
Ваш пример работает отлично!

.CommandText = "UPDATE Таблица1 SET Таблица1.Дата =" & DataSql(Date) _
& " WHERE Таблица1.КодДв =" & kodDveri

Здесь (как мне понятно) написан запрос на SQL в модуле Excel. Текст запроса передается в Access вместе с параметром "kodDveri"

А есть ли вариант управления из Excel сохраненным запросом, находящимся в Access?

Или что Вы рекомендуете почитать по Command?

[gluk_fm]

Выполнения модуля (можно добавить передачу параметра):

Set appAccess = CreateObject("Access.Application")

appAccess.Visible = True
Call appAccess.OpenCurrentDatabase("путь и имя базы")
appAccess.Run "имя модуля"
appAccess.Application.Quit

[R Dmitry]

Сообщение от Sergey112233

R Dmitry,
Ваш пример работает отлично!

.CommandText = "UPDATE Таблица1 SET Таблица1.Дата =" & DataSql(Date) _
& " WHERE Таблица1.КодДв =" & kodDveri

Здесь (как мне понятно) написан запрос на SQL в модуле Excel. Текст запроса передается в Access вместе с параметром "kodDveri"

А есть ли вариант управления из Excel сохраненным запросом, находящимся в Access?


Или что Вы рекомендуете почитать по Command?

А оно Вам надо ???
С параметрами никогда не работал, стараюсь обходиться доступными для понимания вещами

[Sergey112233]

R Dmitry,
"Логика?!.... она где то рядом..."
Первым мне попался пример с сохраненным запросом с параметром.
За Ваш вариант спасибо. А как правильнее сделать, что быстрее работает? Или дело вкуса? Этого я не знаю. Вот и спрашиваю.

[Sergey112233]

gluk_fm,

спасибо за помощь.