Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: использование ХП
 
 автор: Едрёныч   (01.05.2010 в 19:04)   личное сообщение
 
 

есть два полясосписком в первом я выбираю OrderID (с этим всё нормально)
и ХП:
ALTER PROCEDURE [dbo].[sp_orderDetails](@OrderID int)
AS SELECT dbo.[Order Details].OrderID, dbo.[Order Details].ProductID, dbo.Products.ProductName
FROM dbo.[Order Details] INNER JOIN
dbo.Products ON dbo.[Order Details].ProductID = dbo.Products.ProductID
WHERE (dbo.[Order Details].OrderID = @OrderID)

которая должна выбирать во второе полесосписком значения, в модуле я прописал

Private Sub ПолеСоСписком0_AfterUpdate()
Dim rst As New ADODB.Recordset
Set cmd = New ADODB.Command
Set cnn = New ADODB.Connection
cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandText = "sp_orderDetails"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("@OrderID", adInteger, adParamInput, , Me.ПолеСоСписком0)
Set rst = cmd.Execute
End Sub
Для ПолеСоСписком в качестве источника строк указал sp_orderDetails, и не получается
после клика на второе полесосписком вылетает окошко : введите OrderID. где может быть ошибка?

  Ответить  
 
 автор: Едрёныч   (02.05.2010 в 15:43)   личное сообщение
 
 

Dim rst As New ADODB.Recordset
Dim cmd As New ADODB.Command
cmd.ActiveConnection = CurrentProject.Connection

cmd.CommandText = "sp_orderDetails"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("@OrderID", adInteger, adParamInput, , Me.ПолеСоСписком0)
Set Me.ПолеСоСписком2.Recordset = cmd.Execute ' так заработало

End Sub
фурычит! может кому и сгодится.

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList