SUB PARAMETROS

USUARIO.EXCLUIDOS 07/12/2006 10:59:46
#188526
Estou fazendo a seguinte sub

sub SelCliente(byval iCod as long, ByRef sCliente as string, ByRef sContato as string)

'aqui cria uma conexao com o banco e pega o valor

sCliente = rs("cliNome")
sContato = rs("cliContto")

end Sub


Quando chamo ela e passo todos os valores ela funciona... so que eu quero apenas q me retorne o cliente..

Assim fuciona

selCliente(txtcodigo.text, txtcliente.text, txtcontato.text)

Quero q funcione assim sem eu ter q colocar o contato

selCliente(txtcodigo.text, txtcliente.text)
LIONHEART 07/12/2006 11:54:53
#188545 Resposta escolhida
sub SelCliente(byval iCod as long, ByRef sCliente as string, OPTIONAL ByRef sContato as string)

;-)
USUARIO.EXCLUIDOS 07/12/2006 12:04:36
#188546
Ainda dá erro...

Para o ASP.NET tem outro jeito. ???

Error 1 Optional parameters must specify a default value.

to fazendo essa sub para teste (se funciona nela coloco na real)
    sub valor(byval iCod as Integer, OPTIONAL byref val1 as String, OPTIONAL byref val2 as String)
        val1 = 2
        val2 = 3
    End Sub
LIONHEART 07/12/2006 12:28:00
#188556
Foi mal... vc precisa colocar o valor default

sub valor(byval iCod as Integer, OPTIONAL byref val1 as String, OPTIONAL byref val2 as String = "")

Acho que agora vai ;-)
USUARIO.EXCLUIDOS 07/12/2006 13:54:54
#188585
Valeu Thiago funcionou perfeito... valeu mesmo...
Tópico encerrado , respostas não são mais permitidas
Voltar