PEGAR O VALOR DA STORED PROCEDURE

NEGRON 01/08/2007 08:31:53
#228690
Galera por favor me ajudem

Banco de dados : Firebird, com conexao ADO

Criei uma stored procedure para retornar o cliente, tipo assim:
quando eu vou fazer um novo cadastro eu vou digitar o codigo,ai quando
o campo perder o foco vai ser ativado a SP para verificar se aquele codigo
já existe, se existir ela irá retornar as informações na tela pra mim.

Criei a SP testei e ela retorna tudo certinho.
Agora como que eu faço através do VB pra fornecer o parametro de entrada
tipo:
1
ai a sp vai ver se já tem esse codigo e me retornará na tela as informações??
Como faço , para passar o parametro na stored procedure e para receber
os dados por ela encontrado na minha tela de cadastro.
por favor me ajudem

se alguem tiver algum exemplo, melhor ainda
USUARIO.EXCLUIDOS 01/08/2007 09:31:15
#228705
Normal cara... como se fosse uma tabela, abre um recordset

Ex.:
Dim rs as New ADODB.Recordset
rs.Open "Sua_SP Parametro1,Parametro2"

MsgBox rs(0)
NEGRON 01/08/2007 11:49:06
#228768
Amigo mas como eu faço pra passar o parametro de entrada, vc poderia me dar um exemplo.
USUARIO.EXCLUIDOS 01/08/2007 12:03:51
#228777
Então... no meu exemplo ali em cima, ele passa os parâmetros...


OLha só
rs.Open "Sua_SP 1,2"

A parte em negrito são os parâmetros.
NEGRON 13/08/2007 15:58:06
#230737
amigo eu tentei fazer o que vc me disse mas num deu certo
USUARIO.EXCLUIDOS 13/08/2007 16:06:55
#230740
mais o que acontece??

Dá algum erro??

Passe mais detalhes, que aí fica mais fácil de eu e o pessoal ajudar.
NEGRON 13/08/2007 16:11:53
#230744
Public Function SELECIONACLIENTES(ByVal mcodigo As String, ByVal 
mycodigo As String, mynome As String, myendereco As String, mynumero As String)
Dim rst As ADODB.Recordset
Dim valores As Long
valores = frmCadclientes.Text1.Text
'With frmCadclientes
Dim sql As String
sql = "EXECUTE seleciona_clientes valores"
Set rst = conexao.Execute(sql)
'End With


End Function

Amigo esse é o codigo
da um erro na parte do SQL ="EXECUTE"
USUARIO.EXCLUIDOS 13/08/2007 16:19:53
#230748
Tenta assim:

Public Function SELECIONACLIENTES(ByVal mcodigo As String, ByVal 
mycodigo As String, mynome As String, myendereco As String, mynumero As String)
Dim rst As ADODB.Recordset
Dim valores As Long
valores = frmCadclientes.Text1.Text
'With frmCadclientes
Dim sql As String
sql = "EXECUTE seleciona_clientes " & valores
Set rst = conexao.Execute(sql)
'End With 
 


End Function
NEGRON 13/08/2007 16:44:17
#230757
Amigo utilizei o codigo que vc me passou e deu o seguinte erro:

Run-time erro'-2147418113(8000ffff)':
Dynamic SQL Error
SQL error code = -104
Token unknown -line 1,column 9
seleciona_clientes

o Codigo da Store procedure é esse aqui :
  
SET TERM ^ ;

CREATE PROCEDURE SELECIONA_CLIENTES (
    macodigo char(10))
returns (
    mycodigo char(10),
    mynome char(40),
    myendereco char(30),
    mynumero char(10))
as
declare variable qtderegistro integer;
BEGIN
SELECT count (CODIGO) from PESSOAL
where(codigo =:macodigo)
into QTDEREGISTRO;
if (QTDEREGISTRO > 0) then
BEGIN
SELECT  CODIGO, NOME,ENDERECO,NUMERO FROM pessoal
where (CODIGO= :macodigo)
into :mycodigo,:mynome, :myendereco,:mynumero;
END
END^

SET TERM ; ^

GRANT SELECT ON PESSOAL TO PROCEDURE SELECIONA_CLIENTES;

GRANT EXECUTE ON PROCEDURE SELECIONA_CLIENTES TO SYSDBA;

Por favor amigos me ajude
NEGRON 14/08/2007 16:38:27
#230879
Por favor gente alguem me dê uma luz!!!!!!
Tópico encerrado , respostas não são mais permitidas
Voltar