Visual Basic - Problemas con VB6 y Procedure

Life is soft - evento anual de software empresarial
   
Vista:

Problemas con VB6 y Procedure

Publicado por Javier Medina (2 intervenciones) el 08/11/2007 01:31:03
tengo este procedure

-------------------------------------------------------------------------------------------------------
set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go

-- =============================================
-- Author: <Javier Medina>
-- Description: <Sumatoria de los alumnos en todas las secciones>
-- =============================================
ALTER PROCEDURE [dbo].[spSumaTotalAlumnos]
-- Add the parameters for the stored procedure here
@cedula int,
@cod_materias char(6)
AS
BEGIN
select sum(num_alumnos) as Total_Alumnos from RelProfMat where cedula = 4820145
return
END
-------------------------------------------------------------------------------------------------------

Como podran ver devuelve un valor

pero necesito saber como pasarselo a una variable en VB6 para luego comenzarla a tratarla

Gracias de antemano...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problemas con VB6 y Procedure

Publicado por smokalot (203 intervenciones) el 08/11/2007 10:49:11
Hola,

pero como llamas a este sp desde VB ???
Set oStream = New ADODB.Stream
Set oCommand = New ADODB.Command
With oCommand
.CommandType = adCmdStoredProc
.CommandText = strURL
.Properties("Output Stream") = oStream

oStream.Open
.Execute , , adExecuteStream
end with
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problemas con VB6 y Procedure

Publicado por carlos (3 intervenciones) el 08/11/2007 15:12:31
me pueden ayudar unos procedimientos un .net
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problemas con VB6 y Procedure

Publicado por CHRISTOPHER (6 intervenciones) el 08/11/2007 19:11:34
Private Sub Command1_Click()
Set RS = New ADODB.Recordset
RS.Open "NombreProcedure ", CN, adOpenStatic
TextResultado.Text = RS.Fields(0).Value
End Sub

Bueno creo ue es lo que Buscas espero te sirva, Suerte.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar