Dim cmdCommand As ADODB.Command
Set cmdCommand = New ADODB.Command
Set cmdCommand.ActiveConnection = cnnConn
With cmdCommand
.CommandText = "exec sp_helpdb"
.CommandType = adCmdSql
.Execute
End With
Помогите разобраться
Помогите разобраться????Как правильно будет, а то он ругается
:(
Код:
:(
А как ругается? Что пишет?
User-defined type not defined
Ругается на:
Dim cmdCommand As ADODB.Command
Ругается на:
Dim cmdCommand As ADODB.Command
Значит не подключена библиотека с типом Command.
А ты на VB или на VBA пишешь?
А ты на VB или на VBA пишешь?
В VBA!!!
Зайди в Object Browser и посмотри есть там ADODB компонент. Если нету, тогда подключи его к проекту.
Открой исходный код, потом в меню Tools (точно не помню если что, полазий по меню) выбери References... кажется, появится модальное окошко, в котором можно подключать компоненты, если галочка стоит, то компонент подключен. Найди компонент, название которого схоже с ADODB, и поставь напротив него галочку, нажми "ОК" и все должно заработать.
Открой исходный код, потом в меню Tools (точно не помню если что, полазий по меню) выбери References... кажется, появится модальное окошко, в котором можно подключать компоненты, если галочка стоит, то компонент подключен. Найди компонент, название которого схоже с ADODB, и поставь напротив него галочку, нажми "ОК" и все должно заработать.
Microsoft ActiveX Data Objects ... Library
Спасибо!!!
А без добавления контрола Adodc на форму будет работать?