запрос в mdb

[aleks2]

Привет АЛЛ!

У меня возник вопрос. Когда я открываю запрос на просмотр из excel в базе mdb, то он открывается нормально. А запрос на изменение у меня выдается ошибка.

макрос в excel

Dim dbs As Database
Dim rst1 As Recordset
Dim s As String

Set dbs = OpenDatabase("c:\asd.mdb")
Set rst1 = dbs.OpenRecordset("prms", dbOpenDynaset)

нормально

Set dbs = OpenDatabase("c:\asd.mdb")
Set rst1 = dbs.OpenRecordset("update ****", dbOpenDynaset)

то выдается ошибка

Заранее благодарен

[RayShade]

А все от того, что ну ты сам(а)? подумай, кто ж рекордсет то апдейтом открывает? DAO или ADO используешь? Если DAO, то надо вызвать в рекордсете, открытом обычным запросом метод .edit а потом .update. Если ADO, то надо использовать метод .Execute и в нем выполнить запрос типа Update.

[Scuder]

Если DAO, то надо вызвать в рекордсете, открытом обычным запросом метод .edit а потом .update.

А нафига?
В DAO тоже есть метод Execute.. А edit - update - долго и муторно. Если вообще возможно. Зависит от задач..

Кстати

ну ты сам(а)?

Вот ответ:

Заранее благодарен

[aleks2]

Проверил ( ДАО 3.6 )

Макрос в excel
Sub QW()
Dim dbs As Database
Dim rst1 As Recordset
Dim s As String

Set dbs = OpenDatabase("C:\OS1\DB1.MDB")

s = "DELETE TBL.* FROM TBL;"
dbs.Execute s, dbFailOnError

End Sub

Работает Спасибо