Instancia un procedimiento almacenado

[CarlosMelgar]

Hola amigos buenos dias

tengo un procedimiento almacenado que cuenta los clientes que tengo, cuando la creé probe y me funciona perfecto.

ahora coloque un label que de hecho se llama Label1 y queria que me muestre en ese label la cantidad de clientes hice esto :

Código vb:

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        Me.ClientesTableAdapter.ContarClientes()
    End Sub
 

pero no me muestra nada por favor se que esta mal y por eso les pregunto como hago para que me muestre los datos ahi

gracias por los comentarios


Roberto

[Aquaventus]

Hola CarlosMelgar pordrías mostrarnos como esta hecho tu metodo ContarClientes() ? ya que en ningun momento le pasas algo al Label. Saludos!.

[CarlosMelgar]

En el DataSet de la Tabla clientes
Boton derecho
Agregar Consulta
Crear un nuevo procedimiento almacenado
Opción
Select que devuelve un solo valor
SELECT COUNT(*) FROM Clientes

y cuando doy generar consulta me cuenta los clientes registrados
ahora al momento de hacer que me muestre el valor en el formulario no se como instanciarlo

gracias por colaborarme

[Aquaventus]

Claro lo sé pero quiero verlo como lo tienes en código no que me lo describas para poder ver la falla. Saludos!.

[CarlosMelgar]

Distinguido amigo este es todo mi codigo de mi formulario haber si con eso me puedes ayudar a ver el error.

Código vb:

Public Class Form1
    Private Sub ClientesBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'Me.Validate()
        'Me.ClientesBindingSource.EndEdit()
        'Me.TableAdapterManager.UpdateAll(Me.AgendaTelefonica2012DataSet)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'AgendaTelefonica2012DataSet.Clientes' Puede moverla o quitarla según sea necesario.
        Me.ClientesTableAdapter.Fill(Me.AgendaTelefonica2012DataSet.Clientes)
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.ClientesBindingSource.MoveFirst()
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.ClientesBindingSource.MoveLast()
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.ClientesBindingSource.MoveNext()
    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.ClientesBindingSource.MovePrevious()
    End Sub
    Private Sub AgregarContactoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AgregarContactoToolStripMenuItem.Click
        Me.ClientesBindingSource.AddNew()
    End Sub
    Private Sub ActualizarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ActualizarToolStripMenuItem.Click
        Me.ClientesTableAdapter.ActualizarCliente(CelularTextBox.Text, CelularReferenciaTextBox.Text, TelefonoFijoTextBox.Text, NombreTextBox.Text, ProveedorDeTextBox.Text, CorreoElectronicoTextBox.Text, WebTextBox.Text, DireccionTextBox.Text)
        Me.ClientesTableAdapter.Fill(Me.AgendaTelefonica2012DataSet.Clientes)
    End Sub
    Private Sub EliminarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EliminarToolStripMenuItem.Click
        Me.ClientesTableAdapter.EliminarCliente(CelularTextBox.Text)
        Me.ClientesTableAdapter.Fill(Me.AgendaTelefonica2012DataSet.Clientes)
    End Sub
    Private Sub GuardarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GuardarToolStripMenuItem.Click
 
        Try
            Me.ClientesTableAdapter.InsertarCliente(CelularTextBox.Text, CelularReferenciaTextBox.Text, TelefonoFijoTextBox.Text, NombreTextBox.Text, ProveedorDeTextBox.Text, CorreoElectronicoTextBox.Text, WebTextBox.Text, DireccionTextBox.Text)
            Me.ClientesTableAdapter.Fill(Me.AgendaTelefonica2012DataSet.Clientes)
        Catch ex As Exception
            MsgBox("Error al guardar" & ex.Message)
 
        End Try
 
    End Sub
 
    Private Sub BuscarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarToolStripMenuItem.Click
        Me.ClientesTableAdapter.FillBy(Me.AgendaTelefonica2012DataSet.Clientes, CelularTextBox.Text)
    End Sub
    Private Sub CelularTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles CelularTextBox.KeyPress
 
        If Char.IsNumber(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsControl(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsSeparator(e.KeyChar) Then
            e.Handled = False
        Else
            e.Handled = True
        End If
        'Codigo para cambiar con la tecla enter
        If Asc(e.KeyChar) = 13 Then
            CelularReferenciaTextBox.Focus()
        End If
 
    End Sub
    Private Sub CelularReferenciaTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles CelularReferenciaTextBox.KeyPress
        If Asc(e.KeyChar) = 13 Then
            TelefonoFijoTextBox.Focus()
        End If
    End Sub
    Private Sub NombreTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NombreTextBox.KeyPress
        If Asc(e.KeyChar) = 13 Then
            ProveedorDeTextBox.Focus()
        End If
    End Sub
    Private Sub ProveedorDeTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ProveedorDeTextBox.KeyPress
        If Asc(e.KeyChar) = 13 Then
            CorreoElectronicoTextBox.Focus()
        End If
    End Sub
    Private Sub CorreoElectronicoTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles CorreoElectronicoTextBox.KeyPress
        If Asc(e.KeyChar) = 13 Then
            WebTextBox.Focus()
        End If
    End Sub
    Private Sub WebTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles WebTextBox.KeyPress
        If Asc(e.KeyChar) = 13 Then
            DireccionTextBox.Focus()
        End If
    End Sub
    Private Sub TelefonoFijoTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TelefonoFijoTextBox.KeyPress
        If Asc(e.KeyChar) = 13 Then
            NombreTextBox.Focus()
        End If
    End Sub
 
    Private Sub DireccionTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles DireccionTextBox.KeyPress
        If Asc(e.KeyChar) = 13 Then
            GuardarToolStripMenuItem.Select()
        End If
    End Sub
 
 
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        Me.ClientesTableAdapter.ContarClientes()
    End Sub
End Class
 

Muchas gracias

[Aquaventus]

CarlosMelgar, te recalco necesito ver el código del método ContarClientes(), ya que alli es donde vas a mandar el valor.

PDT: Dale doble click sobre la palabra ContarClientes(), luego click derecho y le das en la opcion "GO TO DEFINITION" y pegame el codigo que te muestra allí. Saludos!.

[CarlosMelgar]

Bueno hice click como dijiste y me llevo a este código.

Código vb:

<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"),  _
         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
        Public Overloads Overridable Function ContarClientes() As Object
            Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2)
            Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
            If ((command.Connection.State And Global.System.Data.ConnectionState.Open)  _
                        <> Global.System.Data.ConnectionState.Open) Then
                command.Connection.Open
            End If
            Dim returnValue As Object
            Try 
                returnValue = command.ExecuteScalar
            Finally
                If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
                    command.Connection.Close
                End If
            End Try
            If ((returnValue Is Nothing)  _
                        OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then
                Return Nothing
            Else
                Return CType(returnValue,Object)
            End If
        End Function
 

Gracias por la paciencia y si no es ese no se cual mas

pues lo unico que hice luego de hacer el procedimiento fue
colocar dentro evento click del label1

Código vb:

Me.ClientesTableAdapter.ContarClientes()
 

[tareaforo]

Claro lo sé pero quiero verlo como lo tienes en código no que me lo describas para poder ver la falla. Saludos

[Aquaventus]

Por ese metodo veo que retorna la consulta un Objeto, ponle este codigo y me cuentas:

Código vb:

Label1.Text =  CType(Me.ClientesTableAdapter.ContarClientes(),String)
 

[CarlosMelgar]

Buen día muchas gracias.
quedó de esta forma, en su evento _TextChanged

Código vb:

Private Sub ToolStripStatusContarClientes_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripStatusContarClientes.TextChanged
        ToolStripStatusContarClientes.Text = CType(Me.ClientesTableAdapter.ContarClientes(), String) & " Contactos Registrados"
    End Sub
 

si estas con tiempito solo por favor en tus palabras si me puedes explicar un poco que función cumplen CType y String al final de la cadena
se que estring es cadena pero porque ponerlo ahí y

y si no puedes por falta de tiempo tal vez. no te preocupes.

Gracias ya resolvi el problema y quedo como lo muestro.


Roberto Melgar

[Aquaventus]

Hola! Si te das cuenta en una parte del metodo que te dije que me pasaras el codigo veras que dice :

Código vb:

If ((returnValue Is Nothing)  _
                        OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then
                Return Nothing
            Else
                Return CType(returnValue,Object)
            End If
 

en el else lo castea el retorno como un Object, entonces eso retorna un objeto y como tu quieres pasarle a un texto de un control, lo que se hace alli pues es castearlo(Convertir) con el Ctype(Convertir cierto objeto a...) despues de la coma le paso el tipo de objeto a cual lo quiero convertir, como lo quieres pasar al texto de un label lo convierto en cadena por eso le coloco String. Espero me hayas entendido. Saludos!.

[CarlosMelgar]

Si funcionó gracias amigo

quedo perfecto y la explicación tamben muchas gracias.

Cierro el hilo

Ojala me colabores alguna vez


Roberto Melgar