Postada em 07/04/2010 14:35 hs
Olá, estou com uma tremenda dúvida aqui. Não consigo incluir um novo registro, quando clica no botão "novo" sempre dá erro, ou de sintaxe, objeto, procedure, etc.. sempre que corrige um aparece outro erro. Estou sem saber o que fazer, o código (resumido, retirei a os campos por ser muitos e deixei só o principal, de registro) é o seguinte:
Public Sub Incluir_Cadastro() 'Incluir novo registro de servidor usando store procedure do sql
Set cmd = New Command
Set RS = New ADODB.Recordset
cmd.ActiveConnection = con
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "Sp_Incluir_Tbl_Func"
Verifica_RF ' função que verifica se a RF informada já existe no banco de dados
If Not RS.EOF Then
FRMGeral.TXTRF.SetFocus
Exit Sub
Else
With FRMGeral
Par_RegFun = .TXTRF.FormattedText
End With
Set Par_RegFun = cmd.CreateParameter("@Reg_Funcionario", adVarChar, adParamInput, 9, Par_RegFun)
cmd.Parameters.Append Par_RegFun
Set RS = cmd.Execute
'já testei com "cmd.execute", ".execute", e tentei executar a procedure diretamente
sel_func
Desabilita_CAMPO
MsgBox "Cadastro efetuado com Sucesso", vbInformation + vbSystemModal, "::CADASTRO::"
End Sub
O erro sempre ocorre no cmd.execute, quando eu dou o debug indica que os campos receberam os valores digitados, mas não é salvo efetivamente, o erro mais frequente é o "procedure "Sp_Incluir_Tbl_Func" expects parameter @Reg_funcionario wich was not supplied"
Se alguém tiver uma idéia de como resolver isso eu ficaria muito grata!
|
