| Pregunta: | 50988 - COMO CONSULTAR DESDE UNA COLUMNA DE UN DATAGRIDVIEW |
| Autor: | Elkin Alberto Morales Morales |
| UNA AYUDA POR FAVOR: quien pueda colaborarme necesito realizar una consulta desde una columna de un datagridview, no he podido de sifrar el codigo, la consulta es a una base de datos creada en SQL 2000
por favor quien me ayude colaboreme con un codigo bien dinamico gracias a todos | |
| Respuesta: | CARLOS URIEL DE JESUS SANCHEZ GONZALEZ |
| Imports System.Data
Imports System.Data.SqlClient Public Class ACiudad Inherits System.Web.UI.Page #Region " Código generado por el Diseñador de Web Forms " 'El Diseñador de Web Forms requiere esta llamada. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() End Sub Protected WithEvents Label1 As System.Web.UI.WebControls.Label Protected WithEvents Label2 As System.Web.UI.WebControls.Label Protected WithEvents txtCiudad As System.Web.UI.WebControls.TextBox Protected WithEvents Label3 As System.Web.UI.WebControls.Label Protected WithEvents ddlEstado As System.Web.UI.WebControls.DropDownList Protected WithEvents Button1 As System.Web.UI.WebControls.Button 'NOTA: el Diseñador de Web Forms necesita la siguiente declaración del marcador de posición. 'No se debe eliminar o mover. Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: el Diseñador de Web Forms requiere esta llamada de método 'No la modifique con el editor de código. InitializeComponent() End Sub #End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Introducir aquí el código de usuario para inicializar la página Dim con As New SqlConnection Dim pam1 As SqlParameter Dim clave As SqlCommand Dim cmdSelec As SqlCommand con = New SqlConnection("workstation id=uriel;packet size=4096;user id=sa;initial catalog=Amigo;persist security info=False") con.Open() Dim dreader As SqlClient.SqlDataReader con = New SqlConnection("workstation id=uriel;packet size=4096;user id=sa;initial catalog=Amigo;persist security info=False") con.Open() cmdSelec = New SqlCommand("consulta" & control datagridview.propiedad, con) dreader = cmdSelec.ExecuteReader() Dim firstrow As Boolean = True While dreader.Read() Me.combo.Items.Add(New ListItem(dreader(0).ToString())) End While con.close() End Sub este codigo hace una consulta en sql y devuelve el resultado en un reader y lo guarda en un combo si necesitas informacion variada lo recomendable es que lo hagas por un procedimiento almacenado este es un ejemplo try Dim par4 As New SqlParameter Dim par5 As New SqlParameter Dim par6 As New SqlParameter Dim par7 As New SqlParameter Dim da3 As New SqlDataAdapter da3.SelectCommand = New SqlCommand da3.SelectCommand.Connection = con da3.SelectCommand.CommandText = "factu" da3.SelectCommand.CommandType = CommandType.StoredProcedure par4 = New SqlParameter("@n", SqlDbType.Int) par5 = New SqlParameter("@s", SqlDbType.Float) par6 = New SqlParameter("@i", SqlDbType.Float) par7 = New SqlParameter("@t", SqlDbType.Float) par4.Direction = ParameterDirection.Input par5.Direction = ParameterDirection.Output par6.Direction = ParameterDirection.Output par7.Direction = ParameterDirection.Output par4.Value = (Module1.var2) ' agregar valores da3.SelectCommand.Parameters.Add(par4) da3.SelectCommand.Parameters.Add(par5) da3.SelectCommand.Parameters.Add(par6) da3.SelectCommand.Parameters.Add(par7) Dim ds3 As New DataSet da3.Fill(ds3) Dim total As Double Dim iva As Double Dim subtotal As Double total = da3.SelectCommand.Parameters("@t").Value() iva = da3.SelectCommand.Parameters("@i").Value() ' devolucion de parametros subtotal = da3.SelectCommand.Parameters("@s").Value() Label15.Text = subtotal Label16.Text = iva Label18.Text = total con.Close() Catch ex As Exception End Try el try es para capturar los errores este codigo ejecuta un procedimiento almacenado en sql recibe parametros y devuelbe otros parametros este codigo esta hecho en microsoft visual studio .net 2003 pro edition espero que t e sirva si no mandame un email y ya vemos como te ayudo | |