Visual Basic.NET - La funcion o el procedimiento tienen demasiados ar

   
Vista:

La funcion o el procedimiento tienen demasiados ar

Publicado por Jair (3 intervenciones) el 02/09/2010 00:36:21
Mucha, tengo un problema con VB.NET a la hora de guardar registros en una base de datos generado con SQL, ya que al ejecutar la aplicación me muestra el siguiente error:

"La función o el procedimiento tienen demasiados argumentos"

Ya probé solucionarlo con métodos de este y otros foros, pero nada me ha funcionado.
Agradecería profundamente alguna ayuda o consejo para solucionarlo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:La funcion o el procedimiento tienen demasiados

Publicado por Jair (3 intervenciones) el 02/09/2010 00:49:50
Aqui les dejo el codigo que utilizo en VB.NET, espero su ayuda:

Imports System.Data.SqlClient

Public Class Form1
Dim das1 As DataSet = New DataSet()
Dim dap1 As SqlDataAdapter

Sub populate()
Dim cnn As SqlConnection = New SqlConnection("data source=PCPRACTICAS-PC\SQLEXPRESS;initial catalog=soltisa;integrated security=SSPI;user id=soltisa\practicante1; ")
dap1 = New SqlDataAdapter("select*from clientes", cnn)
dap1.InsertCommand = New SqlCommand("pdu_insertarcliente", cnn)
dap1.InsertCommand.CommandType = CommandType.StoredProcedure
dap1.InsertCommand.Parameters.Add("@id_cliente", SqlDbType.Int, 0, "id_cliente")
dap1.InsertCommand.Parameters.Add("@nombre", SqlDbType.NVarChar, 60, "nombre")
dap1.InsertCommand.Parameters.Add("@direccion", SqlDbType.NVarChar, 60, "direccion")
dap1.InsertCommand.Parameters.Add("@contacto_nombre", SqlDbType.NVarChar, 60, "contacto_nombre")
dap1.InsertCommand.Parameters.Add("@contacto_cargo", SqlDbType.NVarChar, 60, "contacto_cargo")
dap1.InsertCommand.Parameters.Add("@correo_electronico", SqlDbType.NVarChar, 60, "correo_electronico")
dap1.InsertCommand.Parameters.Add("@telefono", SqlDbType.Int, 0, "telefono")
dap1.InsertCommand.Parameters.Add("@categoria", SqlDbType.NVarChar, 10, "categoria")
Dim prm1 As SqlParameter = dap1.InsertCommand.Parameters.Add("identity", SqlDbType.Int, 0, "id_cliente")
prm1.Direction = ParameterDirection.Output

cnn.Open()
dap1.Fill(das1, "clientes")
cnn.Close()

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
populate()
TextBox1.DataBindings.Add(New Binding("text", das1, "clientes.id_cliente"))
TextBox2.DataBindings.Add(New Binding("text", das1, "clientes.nombre"))
TextBox3.DataBindings.Add(New Binding("text", das1, "clientes.direccion"))
TextBox4.DataBindings.Add(New Binding("text", das1, "clientes.contacto_nombre"))
TextBox5.DataBindings.Add(New Binding("text", das1, "clientes.contacto_cargo"))
TextBox6.DataBindings.Add(New Binding("text", das1, "clientes.correo_electronico"))
TextBox7.DataBindings.Add(New Binding("text", das1, "clientes.telefono"))
TextBox8.DataBindings.Add(New Binding("text", das1, "clientes.categoria"))
ComboBox1.DataSource = das1.Tables("clientes")
ComboBox1.DisplayMember = "id_cliente"
Me.BindingContext(das1.Tables(0)).Position = 0


End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.BindingContext(das1, "clientes").Position = 0
TextBox1.DataBindings.Clear()
TextBox2.DataBindings.Clear()
TextBox3.DataBindings.Clear()
TextBox4.DataBindings.Clear()
TextBox5.DataBindings.Clear()
TextBox6.DataBindings.Clear()
TextBox7.DataBindings.Clear()
TextBox8.DataBindings.Clear()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim newrow As DataRow = das1.Tables("clientes").NewRow()
newrow("id_cliente") = TextBox1.Text
newrow("nombre") = TextBox2.Text
newrow("direccion") = TextBox3.Text
newrow("contacto_nombre") = TextBox4.Text
newrow("contacto_cargo") = TextBox5.Text
newrow("correo_electronico") = TextBox6.Text
newrow("telefono") = TextBox7.Text
newrow("categoria") = TextBox8.Text
das1.Tables("clientes").Rows.Add(newrow)
dap1.Update(das1, "clientes") --------->>>> AQUÍ MUESTRA EL ERROR
TextBox1.DataBindings.Add(New Binding("text", das1, "clientes.id_cliente"))
TextBox2.DataBindings.Add(New Binding("text", das1, "clientes.nombre"))
TextBox3.DataBindings.Add(New Binding("text", das1, "clientes.direccion"))
TextBox4.DataBindings.Add(New Binding("text", das1, "clientes.contacto_nombre"))
TextBox5.DataBindings.Add(New Binding("text", das1, "clientes.contacto_cargo"))
TextBox6.DataBindings.Add(New Binding("text", das1, "clientes.correo_electronico"))
TextBox7.DataBindings.Add(New Binding("text", das1, "clientes.telefono"))
TextBox8.DataBindings.Add(New Binding("text", das1, "clientes.categoria"))

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Me.BindingContext(das1, "clientes").Position = 0

End Sub
End Class

Agradezco su ayuda de antemano...!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar