Parameters

[Camilinhaa 0]

Boa Tarde Pessoal ^^

Bom .. eu estou começando a trabalhar agora com o vb.net e peguei um projeto que ta dando um erro,

mas não sei o que pode ser . .

 

Toda vez que eu tento fazer um novo cadastro de empresa a tela volta nessa linha de código :

.Parameters(sPP & "COD_EMPRESA").Direction = ParameterDirection.Output

 

Resolução de sobrecarga falhou porque nenhum acessíveis 'Parâmetros' aceita este número de argumentos.

 

O que posso fazer ? =/

 

Desde já agradeço a colaboração .^^

[guidjos 65]

Você provavelmente tem uma chamada de método inválido (número de parâmetros errado). Confira a declaração do método que está tentando usar.

[Joffre Mota 0]

Eis um exemplo (funcionando) de cadastro:

 

Dim comando As New NpgsqlCommand
Dim bd As New ConexaoBD

Public Sub IncluirUsuario (ByVal pcNome As String)
comando.CommandText = " INSERT INTO usuario (nome) VALUES (@Nome) "
comando.Parameters.AddWithValue("@Nome", pcNome)
bd.SalvarDados(comando)
End Sub

 

E abaixo, a função SalvarDados

 

Public Sub SalvarDados(ByVal comando As NpgsqlCommand)
Try
 Conectar()
 comando.Connection = conn
 reg = comando.ExecuteNonQuery()
 MessageBox.Show("Dados Salvos com sucesso", "Inclusão de dados", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
 MessageBox.Show(ex.Message, "Erro durante Inclusão!", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
 If Not conn Is Nothing Then
  If conn.State = ConnectionState.Open Then
   conn.Close()
   comando.Parameters.Clear()
  End If
 End If
End Try
End Sub

 

Espero ter ajudado.

[Rafael Mitsunaka 11]

qual o conteudo que vem dentro de "COMANDO"????

[Daniel LM Costa 2]

faz assim

 

Public Sub IncluirUsuario (ByVal pcNome As String)
comando.CommandText = " INSERT INTO usuario (nome) VALUES (@Nome) "
comando.Parameters.Add(    New SqlClient.SqlParameter("@Nome", pcNome   ))
bd.SalvarDados(comando)
End Sub