USE [ErrorReports]
GO
/****** Object:  StoredProcedure [dbo].[GetReportByUserName]    Script Date: 10/04/2012 11:37:25 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

ALTER PROCEDURE [dbo].[GetReportByUserName] 
	-- Add the parameters for the stored procedure here
	@Submitter nvarchar(30)
AS	
BEGIN
	-- SET NOCOUNT ON added to prevent extra result sets from
	-- interfering with SELECT statements.
	SET NOCOUNT ON;

    -- Insert statements for procedure here
	

	select *
	from ErrorReports.dbo.ClientsErrors
	where submitter=@Submitter

	select *
	from ErrorReports.dbo.InternalErrors
	where submitter=@Submitter

END

Dim submitter As Range

Set submitter = Sheets("Extended_Report").Cells(1, 1)

Set MyCommand = New ADODB.Command
With MyCommand
.ActiveConnection = Connection
.CommandText = "dbo.GetReportByUserName"
.CommandType = adCmdStoredProc
.NamedParameters = True
.Parameters.Append CreateParameter("@submitter", adVarChar, adParamInput, submitter)
.Execute
End With

	select *

	from 	dbo.GetFullSummary
	where submitter=@submitter


END

Sub GetReportData()
Dim objMyConn As ADODB.Connection
Dim objMyCommand As ADODB.Command
Dim objMyRecordset As ADODB.Recordset
Dim submitter As Range

Set objMyConn = New ADODB.Connection
Set objMyCommand = New ADODB.Command
Set objMyRecordset = New ADODB.Recordset
Set submitter = Sheets("Extended_Report").Cells(1, 1)
        
objMyConn.ConnectionString = "Provider=SQLOLEDB;Data Source=***;Initial Catalog=ErrorReports;User ID=***;Password=***;"
objMyConn.Open

With objMyCommand
.ActiveConnection = objMyConn
.CommandText = "dbo.GetReportByUserName"
.CommandType = adCmdStoredProc
.NamedParameters = True
.Parameters.Append CreateParameter("@submitter", adVarChar, adParamInput, submitter)
.Execute
End With

Set objMyRecordset.Source = objMyCommand
objMyRecordset.Open

ActiveSheet.Range("A6").CopyFromRecordset objMyRecordset

End Sub

.Parameters.Append .CreateParameter("@submitter", adVarChar, adParamInput, submitter)