Saludos a todos los foristas...
Estoy empezando a trabajar con procedimientos almacenados, y tengo un Store Procedure donde declaro una variable del tipo FLOAT, hasta aca todo bien; mi problema resulta al enviar el parametro desde VISUAL BASIC ya que no se como formatear el valor de un TEXTBOX o de un INPUTBOX, para que el Procedimiento lo pueda reconocer, ya probe con anteponiendo a OP las funciones VAL, CDBL [val(op), CDbl(op)] y nada. Les envio el codigo:
Private Sub Command1_Click()
op = InputBox("Ingrese historia clinica", "Busca historia", Text1)
If op = "" Then Exit Sub
CmdAplica.CommandText = "sp_busca"
CmdAplica.Parameters.Refresh
CmdAplica.Parameters(1) = op
Set RG = CmdAplica.Execute
If CmdAplica.Parameters(0) = 0 Then
MsgBox "Codigo no existe"
Exit Sub
End If
End Sub
y el procedimiento almacenado es:
create procedure sp_busca
@cod float
as
select * from hiscli where codigo=@cod
return @@ROWCOUNT
Muchas Gracias
Atte.
Fredy Mendoza
