ASP.NET - problema para llamar un procedimiento

   
Vista:

problema para llamar un procedimiento

Publicado por djnilo (20 intervenciones) el 07/07/2015 01:50:43
buenas tardes
amigos del foro si alguien me puede orientar tengo este procedimiento el nombre de la clase se llama fproveedor esta la funcion que necesito llamar desde un boton para llenar la cajas de texto txtrut, txtprovedor, txtdireccion

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Function GetResultFromDB(mi_variable As String) As List(Of Proveedor)
 
	Dim list As New List(Of Proveedor)
	conn.Open()
 
	Dim cmd As New MySqlCommand("Busquedalikeproveedor", conn)
	cmd.CommandType = CommandType.StoredProcedure
	cmd.Parameters.AddWithValue("?mi_variable", mi_variable)
	Dim drd As MySqlDataReader = cmd.ExecuteReader()
 
	While drd.Read
		Dim result As New Proveedor()
		result.Proveedor = drd("Proveedor")
		result.Rut_Proveedor = drd("Rut_Proveedor")
		result.Direccion = drd("Direccion")
		list.Add(result)
	End While
 
	drd.Close()
	conn.Close()
	Return list
 
End Function


como llamo esta procedimiento lista para carga mis cajas de texto y mi grilla
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
        Dim consulta As New fproveedor
 
       'llamar a procedimiento
 
        Txtrut.Text() =
        TxtProveedor.Text() =
        TxtContacto.Text() =
        TxtDireccion.Text() =
 
 
        GridView1.DataSource =
        ' Actualizamos el GridView'
        GridView1.DataBind()
    End Sub
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

problema para llamar un procedimiento

Publicado por Khristtian (80 intervenciones) el 07/07/2015 04:51:59
Dim consulta As New fproveedor

fproveedor,GetResultFromDB("consulta")

El método te devuelve una lista... así lo has definido.
Debes recorrer la lista para acceder a los valores.

Si en la consulta solo vas a devolver un registro, deberías usar atributos, así los asignarias así:

Txtrut.Text = fproveedor.rut
TxtProveedor.Text = fproveedor.proveedor
TxtContacto.Text = fproveedor.contacto
TxtDireccion.Text = fproveedor.direccion

-------------------------------------------

Deberías usar una capa de negocion y otra de datos
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

problema para llamar un procedimiento

Publicado por djnilo (20 intervenciones) el 07/07/2015 15:03:50
Buenos dias khristian

si me puede guiar por fa tengo dos clases una clase que se llama Proveedor

que es esta
1
2
3
4
5
6
7
8
9
10
Imports Microsoft.VisualBasic
 
Public Class Proveedor
    Public Property Proveedor As String
    Public Rut_Proveedor As String
    Public Direccion As String
 
 
End Class
en otra clase que se ll

depues tengo esta funcion
en otra clase que se llama fproveedor tengo esta funcion
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Function GetResultFromDB1(mi_variable As String) As List(Of Proveedor)
 
        Dim list As New List(Of Proveedor)
        conn.Open()
 
        Dim cmd As New MySqlCommand("Busquedalikeproveedor", conn)
        cmd.CommandType = CommandType.StoredProcedure
        cmd.Parameters.AddWithValue("?mi_variable", mi_variable)
        Dim drd As MySqlDataReader = cmd.ExecuteReader()
 
        While drd.Read
            Dim result As New Proveedor()
            result.Proveedor = drd("Proveedor")
            result.Rut_Proveedor = drd("Rut_Proveedor")
            result.Direccion = drd("Direccion")
            list.Add(result)
        End While
 
        drd.Close()
        conn.Close()
        Return list
 
    End Function
esta funcion necesito llamarla para que carga los datos cuando yo presione el boton de buscar

deberia cargar las cajas de texto mas la grilla ese es mi problema como lo llamo

Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click

llamar a funcion para carga mi cajas de texto mas la grilla

Txtrut.Text() =
TxtProveedor.Text() =
TxtContacto.Text() =
TxtDireccion.Text() =


GridView1.DataSource =

GridView1.DataBind()
end sub
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

problema para llamar un procedimiento

Publicado por djnilo (20 intervenciones) el 07/07/2015 15:46:42
muchas gracias Khristian asi lo resolvi


1
2
3
4
5
6
7
8
9
10
11
Dim query As New fproveedor
'Dim data As New vproveedor
ListaProveedor Dim As New List (Of Provider)
ListaProveedor = consulta.GetResultFromDB1 (Me.Txtrut.Text)
 
Me.Txtrut.Text = ListaProveedor.Item (0) .Rut_Proveedor
Me.TxtProveedor.Text = ListaProveedor.Item (0) .Proveedor
Me.TxtDireccion.Text = ListaProveedor.Item (0) .Direccion
 
GridView1.DataSource = ListaProveedor
GridView1.DataBind ()
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar