none
Ordenar código desde una clase RRS feed

  • Pregunta

  • Buenas tardes 

    señores programadores si alguien me puede orientar por tengo este codigo que buscar el rut  proveedor si no lo encuetra me tira un modalextender fuciona  

    1 pregunta como puedo ordenar este codigo ponerlo en una  clase y llamarlo desde mi formulario ingresocotizacion.aspx 

    2 .como puedo poner una mesaje de si o no para mostrar el modal en la linea del else 

    Protected Sub Button4_Click(sender As Object, e As System.EventArgs) Handles Button4.Click
            Dim cmd As New MySqlCommand
            Dim datos As New vproveedor
            Try
                conn.Open()
                cmd = New MySqlCommand("Busquedalikeproveedor")
                cmd.CommandType = CommandType.StoredProcedure
                cmd.Connection = conn
                cmd.Parameters.AddWithValue("?mi_variable", TxtRut.Text)
                'cmd.Parameters.Add("?mi_variable", MySqlDbType.Int32).Value = TxtRut.Text
                Dim drd As MySqlDataReader = cmd.ExecuteReader()
    
                If drd.Read() Then
                    TxtRut.Text() = drd.Item("Rut_Proveedor").ToString()
                    TxtProveedor.Text() = drd.Item("Proveedor").ToString()
                    TxtContacto.Text() = drd.Item("Nombre").ToString()
                    TxtDireccion.Text() = drd.Item("Direccion").ToString()
                    TxtCiudad.Text() = drd.Item("Ciudad").ToString()
                    TxtTelefono.Text() = drd.Item("Fono").ToString()
                    TxtCorreo.Text() = drd.Item("Correo").ToString()
    
                Else
                    
                    mp1.Show()' 
          
    
    
                End If
                drd.Close()
                conn.Close()
            Catch ex As Exception
                'Nos mostrara en un ventana el error'
                MsgBox(ex.Message)
            End Try

    jueves, 2 de julio de 2015 19:21

Respuestas

  • hola

    >>como puedo poner una mesaje de si o no para mostrar el modal en la linea del else

    seria

    Protected Sub Button4_Click(sender As Object, e As System.EventArgs) Handles Button4.Click Dim prov As Proveedor = ObtenerProveedor(TxtRut.Text)

    If prov Is Nothing Then

    Dim script As String = "alert('No existe el proveedor');" 

    ScriptManager.RegisterStartupScript(Me, GetType(Page), "alerta", script, True)

    Return

    End If

    TxtProveedor.Text = prov.Proveedor TxtContacto.Text = prov.Nombre TxtDireccion.Text = prov.Direccion 'resto textbox End Sub


    saludos


    Leandro Tuttini

    Blog
    MVP Profile
    Buenos Aires
    Argentina

    jueves, 2 de julio de 2015 21:29

Todas las respuestas

  • La pregunta la puedes hacer de la siguiente forma:

    ScriptManager.RegisterStartupScript(Me, Me.GetType(), "pregunta", "alert('"if(confirm("Su sesión ha expirado, desea iniciarla nuevamente?") == true){hacer algo}else{hacer otra cosa} "');", true)

    Puedes invocar la pregunta tambien desde javascript.

    Lo de ordenarlo no le veo problema que lo hagas desde el boton


    Si mi respuesta fue útil ayudame marcándola como correcta.


    jueves, 2 de julio de 2015 19:30
  • gracias por responder el codigo me escribiste le falta algo para llamarlo o que no entiedo como funciona

    necesito poner mi codigo en una clase para llamarlo desde otro formulario 

    jueves, 2 de julio de 2015 20:17
  • Estas desarrollando para escritorio o para web?

    Si mi respuesta fue útil ayudame marcándola como correcta.

    jueves, 2 de julio de 2015 20:27
  • web?
    jueves, 2 de julio de 2015 20:30
  • Ya vi el error debes acomodar las comillas, tienes error en la concatenacion de comillas

    Si mi respuesta fue útil ayudame marcándola como correcta.

    jueves, 2 de julio de 2015 20:43
  • lo otro me parece que tampoco va a funcionar por que dentro updatepanel 

    asp.net vb 

    mysql

    jueves, 2 de julio de 2015 20:50
  • si se puede, yo le he hecho preguntar algo dentro de un updatepanel, con la misma linea solo debes cambiar:

    ScriptManager.RegisterStartupScript(tuupdatepanel, tuupdatepanel.GetType(), "pregunta", "alert('"if(confirm("Su sesión ha expirado, desea iniciarla nuevamente?") == true){hacer algo}else{hacer otra cosa} "');", true),

    te pido abundar mas es que siento algo confuso lo que quieres


    Si mi respuesta fue útil ayudame marcándola como correcta.

    jueves, 2 de julio de 2015 20:56
  • hola

    podrias emprolijar si defines una capa de datos, aqui

    [ASP.NET] GridView – Edición Empleados

    explico como podrias lograrlo

    la idea es que no asignes directo a los textbox sino que definas una clase y devuelvas esta

    Public Class Proveedor
    
       Public Property Proveedor As String
       Public Nombre Proveedor As String
    
       'resto
    
    End Class

    y defiens en tu capa de datos


    Public Function ObtenerProveedor(mi_variable As String) As Proveedor
    
    	Dim cmd As New MySqlCommand
    	Dim datos As New vproveedor
    
    		conn.Open()
    		cmd = New MySqlCommand("Busquedalikeproveedor", conn)
    		cmd.CommandType = CommandType.StoredProcedure
    		cmd.Parameters.AddWithValue("?mi_variable",  mi_variable)
    		'cmd.Parameters.Add("?mi_variable", MySqlDbType.Int32).Value = TxtRut.Text
    		Dim drd As MySqlDataReader = cmd.ExecuteReader()
    
    		Dim prov As Proveedor
    		If drd.Read() Then
    			prov = New Proveedor
    			prov.Proveedor = drd("Rut_Proveedor").ToString()
    			prov.Nombre = drd("Nombre").ToString()
    			prov.Direccion = drd("Direccion").ToString()
    			'resto propiedades
    		End If
    		
    		Return prov
    
    End Function

    y desde el form usas la funcionalidad

    Protected Sub Button4_Click(sender As Object, e As System.EventArgs) Handles Button4.Click
    
    	Dim prov As Proveedor = ObtenerProveedor(TxtRut.Text)
    
    	TxtProveedor.Text = prov.Proveedor
    	TxtContacto.Text = prov.Nombre
    	TxtDireccion.Text = prov.Direccion
    	'resto textbox
    
    End Sub

    de esta forma separas responsabilidades en el codigo y queda mas mantenible

    saludos


    Leandro Tuttini

    Blog
    MVP Profile
    Buenos Aires
    Argentina


    jueves, 2 de julio de 2015 21:24
  • hola

    >>como puedo poner una mesaje de si o no para mostrar el modal en la linea del else

    seria

    Protected Sub Button4_Click(sender As Object, e As System.EventArgs) Handles Button4.Click Dim prov As Proveedor = ObtenerProveedor(TxtRut.Text)

    If prov Is Nothing Then

    Dim script As String = "alert('No existe el proveedor');" 

    ScriptManager.RegisterStartupScript(Me, GetType(Page), "alerta", script, True)

    Return

    End If

    TxtProveedor.Text = prov.Proveedor TxtContacto.Text = prov.Nombre TxtDireccion.Text = prov.Direccion 'resto textbox End Sub


    saludos


    Leandro Tuttini

    Blog
    MVP Profile
    Buenos Aires
    Argentina

    jueves, 2 de julio de 2015 21:29
  • muchas gracias Leandro Tutti esa repuesta la  que esperaba voy trata de hacerlo correrlo y cometo 
    jueves, 2 de julio de 2015 22:12