Выполнение запроса

[Brusco]

Возможно ли запустить запрос или отчёт на выполнение созданный в Access 2000 из-под VB

[VVitafresh]

Для созданного в Access запроса (хранимой процедуры) без параметров:

Код: Выделить всё


    Dim cnDB As New ADODB.Connection
    Dim adoCmd As New ADODB.Command
    Dim sConn As String
   
    sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db.mdb;User Id=admin;Password=;"
    cnDB.Open sConn
   
    Set adoCmd.ActiveConnection = cnDB
    adoCmd.CommandText = "Proc_Name"
    adoCmd.CommandType = adCmdStoredProc
   
    adoCmd.Execute

    Set adoCmd = Nothing
    Set cnDB = Nothing


[Brusco]

Спасибо. Работает даже с параметрами!
И ещё вопрос - можно отчёт как-нибудь запустить, тоже созданный в Access?