ник: helena
Мне хотелось бы разобраться в проекте access
Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command
Dim prm As ADODB.Parameter
Dim rst As ADODB.Recordset
Set cnn = New ADODB.Connection
Set cmd = New ADODB.Command
Set rst = New ADODB.Recordset
cnn.Open "provider=sqloledb;data source=(local);database=Организации;integrated security=sspi"
Set cmd.ActiveConnection = cnn
cmd.CommandText = "ХранимаяСПараметром"
cmd.CommandType = adCmdStoredProc
Set prm = cmd.CreateParameter("код_", adInteger, adParamInput, , 7777)
cmd.Parameters.Append prm
rst.Open cmd, , adOpenKeyset, adLockOptimistic, adCmdStoredProc
Me.Recordset = rst- присвоить так не дает