PARAMETROS SP

GUTOTEC 19/09/2011 02:10:28
#384609
Pessoal , estou tentando inserir .. mais o nome insere em branco
Como posso passar parametro ?


Dim rsClientes
Dim sql

varNome = Trim(Request.Form([Ô]txtNome[Ô]))
sql = [Ô]SP_CLIENTES_INCLUSAO [ô][Ô] & varNome &[Ô][ô][Ô]

Set rsClientes = Server.CreateObject([Ô]ADODB.Recordset[Ô])
set rsClientes = conexao.Execute(sql)

rsClientes.Close
set rsClientes = NOthing

Obg Abs
KERPLUNK 19/09/2011 11:43:56
#384628 Resposta escolhida
O correto é criar um ADODB.Command pra isso:

dim cmd
dim rsClientes
set cmd = Server.CreateObject([Ô]ADODB.Command[Ô])

With cmd
.ActiveConnection = cn
.Prepared = True
.CommandText = [Ô]SP_CLIENTES_INCLUSAO[Ô]
.CommandType = adCmdText
.Parameters.Append .CreateParameter([Ô]Nome[Ô], adVarChar, adParamInput, , varNome)
End With
set rsClientes = cmd.Execute
GUTOTEC 19/09/2011 21:04:33
#384708
Desculpe , vacilo meu ....
O <form> estava pra baixo do txttipo .... nao ia gravar o nome. só em branco
Funcionou Obrigado

Citação:


Dim rsClientes
Dim sql

varNome = Trim(Request.Form([Ô]txtNome[Ô]))
sql = [Ô]SP_CLIENTES_INCLUSAO [ô][Ô] & varNome &[Ô][ô][Ô]

Set rsClientes = Server.CreateObject([Ô]ADODB.Recordset[Ô])
set rsClientes = conexao.Execute(sql)

rsClientes.Close
set rsClientes = NOthing
Tópico encerrado , respostas não são mais permitidas
Voltar