¿como imprimir una variable q contiene una consulta sql por paantalla (con asp.net )?

r0xdrig0 · #1 (**permalink**) 14/07/2011, 20:54

Hola amigos les cuento, estoy debugeando un sistema hecho en asp.net con vb.net, en lo q a la vez no tengo mucha experiencia osea soy practicamente novato en vb.net, bueno y lo q necesito es imprimir la variable de vb q contiene la consulta sql sobre los clientes existentes en la bd ya q al hacer la busqueda de clientes al darle al boton buscar solo se me recarga la pagina y no me muestra resultados de busqueda y datos para esa consulta hay en la bd, lo q quiero y necesito hacer es imprimir por pantalla la variable sql q contiene la consulta de busqueda de clientes para asi ver si me esta tomando o no en este caso el id del cliente a buscar en la aplicacion, ese es mi problema ¿como lo hagom para imprimir esa variable sql de la consulta q esta declarada en el archivo .vb? ¿como la imprimo cual es la sintaxis? y la otra pregunta ¿la imprimo en la pagina aspx o en el archivo .vb? agradeceria mucho su ayuda amigos, de antemano muchas gracias

r0xdrig0 · #2 (**permalink**) 14/07/2011, 21:22

amigos logre imprimir la variable de la consulta sql por pantalla y si me toma las variables introducidas en el formulario de ingreso, ahora porfavor alguien me puede ayudar/guiar de como hacerlo para ver pq no me muestra los resultados de la consulta en mi gridview como puedo puedo hacerlo para comenzar a debugear y comprobar el pq no me muestra los resultados de la consulta en el gridview agradeceria mucho si alguien me puede ayudar/guiar a como hacerlo, de antemano muchas gracias.

Aquaventus · #3 (**permalink**) 15/07/2011, 07:29

Hola r0xdrig0! nosotros no somos adivinos para saber tu codigo no??? pega tu codigo que tienes para poder observar lo que haces.

r0xdrig0 · #4 (**permalink**) 15/07/2011, 13:39

hola Aquaventus gracias por mostrarte atento a mi consulta, el codigo es:

Pagina BuscarCliente.aspx

Código PHP:

  <%@ Page Language="VB" AutoEventWireup="false" CodeFile="BuscarClienteNew.aspx.vb" Inherits="BuscarClienteNew" %> 
 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
 
<html xmlns="http://www.w3.org/1999/xhtml" > 
<head runat="server"> 
    <title>Buscar Cliente</title> 
    <link href="css/style.css" rel="stylesheet" type="text/css"/> 
<script language="javascript" type="text/javascript"> 
// <!CDATA[ 
 
function pasarparametro(rut, nombre, cod) { 
     window.opener.document.getElementById('dato1').innerHTML = nombre;  
     window.opener.document.getElementById('hdnClienteCod').value=cod; 
     window.opener.document.getElementById('hdnClienteInfo').value= nombre; 
     window.opener.document.getElementById('imgQuitar').style.visibility = 'visible'; 
     window.close(); 
} 
 
// ]]> 
</script> 
</head> 
<body> 
    <form id="form1" runat="server"> 
    <div id="header"> 
<img src="css/img/logotipo.png" width="525" height="80" /> 
</div> 
<div id="container"> 
 
    <h3>Buscar Clientes</h3> 
<TABLE style="WIDTH: 100%"> 
  <TBODY> 
  <TR> 
    <TD style="WIDTH: 101%" align=middle> 
      <TABLE width="54%" height="244" border=0 style="WIDTH: 50%"> 
        <TBODY> 
        <TR> 
          <TD  
            style="WIDTH: 35%; HEIGHT: 21px; TEXT-ALIGN: left">Nombre/Apellido</TD> 
          <TD style="WIDTH: 50%; HEIGHT: 21px; TEXT-ALIGN: left"> 
              <asp:TextBox ID="txtNombre"  class="formulario" runat="server" Width="90%"></asp:TextBox></TD></TR> 
        <TR> 
          <TD style="WIDTH: 35%; TEXT-ALIGN: left">Razón Social</TD> 
          <TD style="WIDTH: 50%; TEXT-ALIGN: left"> 
              <asp:TextBox ID="txtRznSoc"  class="formulario" runat="server" Width="90%"></asp:TextBox></TD></TR> 
        <TR> 
          <TD style="WIDTH: 35%; TEXT-ALIGN: left">Rut</TD> 
          <TD style="WIDTH: 50%; TEXT-ALIGN: left"> 
              &nbsp;<asp:TextBox ID="txtRut"  class="formulario" runat="server" Width="30%"></asp:TextBox>(12345678-9)</TD></TR> 
        <TR> 
          <TD style="WIDTH: 35%; TEXT-ALIGN: left">Código Embonor</TD> 
          <TD style="WIDTH: 50%; TEXT-ALIGN: left"> 
              &nbsp;<asp:TextBox ID="txtCodigo"  class="formulario" runat="server" Width="30%"></asp:TextBox></TD></TR> 
        <TR> 
          <TD style="WIDTH: 35%; TEXT-ALIGN: left">Código Comercio Net</TD> 
          <TD style="WIDTH: 50%; TEXT-ALIGN: left"> 
              <asp:TextBox ID="txtCodComercio"  class="formulario" runat="server" Width="30%"></asp:TextBox></TD></TR> 
        <TR> 
          <TD></TD> <TD> 
              <asp:Button ID="btnBuscar" class="buscar" runat="server" Text="Buscar" /></TD></TR></TBODY></TABLE></TD></TR> 
  <TR> 
    <TD style="WIDTH: 101%"> 
      <DIV> 
          <asp:GridView ID="gvwTrazabilidad" runat="server" AllowPaging="True" AutoGenerateColumns="False" 
              BackColor="White" BorderColor="#999999" BorderStyle="Solid" BorderWidth="1px" 
              CellPadding="3" ForeColor="Black" GridLines="Vertical" PageSize="25" Width="100%"> 
              <FooterStyle BackColor="#CCCCCC" /> 
              <Columns> 
                  <asp:TemplateField HeaderText="RUT"> 
                      <EditItemTemplate> 
                          <asp:TextBox ID="TextBox1" runat="server" Text='<%# Bind("Rut") %>'></asp:TextBox> 
                      </EditItemTemplate> 
                      <ItemTemplate> 
                          <asp:HyperLink ID="HyperLink1" runat="server" Text='<%# Bind("Rut") %>'></asp:HyperLink> 
                      </ItemTemplate> 
                      <ItemStyle Width="20%" /> 
                  </asp:TemplateField> 
                  <asp:BoundField DataField="RznSoc" HeaderText="RZN SOC"> 
                      <ItemStyle Width="40%" /> 
                  </asp:BoundField> 
                  <asp:BoundField DataField="CodComercio" HeaderText="CODIGO NET"> 
                      <ItemStyle Width="20%" /> 
                  </asp:BoundField> 
                  <asp:BoundField DataField="CodCliente" HeaderText="COD EMBONOR"> 
                      <ItemStyle Width="20%" /> 
                  </asp:BoundField> 
              </Columns> 
              <PagerStyle BackColor="#999999" ForeColor="Black" HorizontalAlign="Center" /> 
              <SelectedRowStyle BackColor="#000099" Font-Bold="True" ForeColor="White" /> 
              <HeaderStyle BackColor="Black" Font-Bold="True" ForeColor="White" /> 
              <AlternatingRowStyle BackColor="#CCCCCC" /> 
          </asp:GridView> 
      </DIV></TD></TR></TBODY></TABLE> 
      </div> 
    </form> 
</body> 
</html>

Pagina BuscarCliente.vb

Código PHP:

  Imports System.Data 
Imports System.Data.OleDb 
 
Partial Class BuscarClienteNew 
    Inherits System.Web.UI.Page 
 
    Private stringConn As String 
    Private NOMBRE_BD As String 
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
        stringConn = ConfigurationSettings.AppSettings("conn") 
        NOMBRE_BD = ConfigurationSettings.AppSettings("NombreDB") 
    End Sub 
 
    Protected Sub btnBuscar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnBuscar.Click 
 
        Dim bolComercio As String = "1" 
        Dim codComercio As String = "-1" 
        If IsNumeric(txtCodComercio.Text) Then 
            bolComercio = "0" 
            codComercio = txtCodComercio.Text 
        End If 
 
        Dim bolCliente As String = "1" 
        Dim codCliente As String = "-1" 
        If IsNumeric(txtCodigo.Text) Then 
            bolCliente = "0" 
            codCliente = txtCodigo.Text 
        End If 
 
        Dim bolRut As String = "1" 
        Dim rut As String = "-1" 
        If txtRut.Text <> "" Then 
            bolRut = "0" 
            rut = txtRut.Text 
        End If 
 
        Dim bolRznSoc As String = "1" 
        Dim RznSoc As String = "qwerty" 
        If txtRznSoc.Text <> "" Then 
            bolRznSoc = "0" 
            RznSoc = txtRznSoc.Text.ToUpper 
        End If 
 
        Dim bolNombre As String = "1" 
        Dim nombre As String = "qwerty" 
        If txtNombre.Text <> "" Then 
            bolNombre = "0" 
            nombre = txtNombre.Text.ToUpper 
        End If 
 
 
 
        Dim sSelect As String = "select DB2APP.trcabe.TCCLIE as CodCliente, DB2APP.trcabe.TCRUT || '-' || DB2APP.trcabe.TCDV as Rut, DB2APP.trcabe.TCOCOR CodComercio, DB2APP.trcabe.TCRAZ as RznSoc from DB2APP.trcabe " 
 
        sSelect += " where (DB2APP.trcabe.TCRUT || '-' || DB2APP.trcabe.TCDV = '" + rut + "' or 1=" + bolRut + " ) AND (TCCLIE = '" + codCliente + "' or 1=" + bolCliente + ") AND (TCOCOR = '" + codComercio + "' or 1=" + bolComercio + ") AND ((UPPER(TCRAZ) like '%" + RznSoc + "%' or 1=" + bolRznSoc + ") and (UPPER(TCRAZ) like '%" + nombre + "%' or 1=" + bolNombre + ")) " 
 
 
        '        Dim s As String = Request.Cookies("plantas").Value 
 
        sSelect += " AND " + getWherePlantas(Session("plantas")) 
        'sWhere = " (DB2APP.trcabe.CPLAN = " + codPlanta + " or " + codPlanta + " = '-1') " 
 
 
        sSelect += " AND " + getWhereSucursales(Session("sucursales")) 
 
        sSelect += " group by TCRUT, TCDV , TCOCOR, TCCLIE , TCRAZ order by TCRAZ asc" 
 
        Dim dt As DataTable = ExecuteQuery(sSelect) 
        Session("dtClientes") = dt 
        gvwTrazabilidad.DataSource = Session("dtClientes") 
        gvwTrazabilidad.DataBind() 
 
        MsgBox("El resultado es " & sSelect) 
 
 
    End Sub 
 
    Private Function getWherePlantas(ByVal plantas As String()) As String 
        Dim sQuery As String 
        sQuery = " (" 
        If plantas IsNot Nothing Then 
            For i As Int16 = 0 To plantas.Length - 1 
                Dim codPlanta As String = plantas(i) 
                sQuery += " DB2APP.trcabe.CPLAN = '" + codPlanta + "' OR" 
            Next 
        End If 
        sQuery += " 0=1) " 
        Return sQuery 
    End Function 
    Private Function getWhereSucursales(ByVal sucus As String()) As String 
        Dim sQuery As String 
        sQuery = " (" 
        If sucus IsNot Nothing Then 
 
            For i As Int16 = 0 To sucus.Length - 1 
                Dim codSucu As String = sucus(i) 
                sQuery += " DB2APP.trcabe.CSUCU = '" + codSucu + "' OR" 
            Next 
 
        End If 
        sQuery += " 0=1) " 
        Return sQuery 
    End Function 
 
    Private Function ExecuteQuery(ByVal query As String) As DataTable 
        Dim conn As OleDbConnection = New OleDbConnection(stringConn) 
        conn.Open() 
        Dim cmd As New OleDbCommand(query, conn) 
        Dim da As New OleDbDataAdapter(cmd) 
        Dim dt As New Data.DataTable 
        da.Fill(dt) 
 
        conn.Close() 
 
        Return dt 
    End Function 
 
    Protected Sub gvwClientes_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gvwTrazabilidad.PageIndexChanging 
        gvwTrazabilidad.PageIndex = e.NewPageIndex 
        gvwTrazabilidad.DataSource = Session("dtClientes") 
        gvwTrazabilidad.DataBind() 
    End Sub 
 
 
 
    Protected Sub gvwClientes_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles gvwTrazabilidad.RowDataBound 
        If e.Row.RowIndex > -1 Then 
            CType(e.Row.FindControl("HyperLink1"), HyperLink).NavigateUrl = "javascript:pasarparametro('" + CType(e.Row.FindControl("HyperLink1"), HyperLink).Text + "', '" + e.Row.Cells(1).Text + "', '" + e.Row.Cells(3).Text + "');" 
        End If 
 
    End Sub 
 
 
    Protected Sub gvwTrazabilidad_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles gvwTrazabilidad.SelectedIndexChanged 
 
    End Sub 
End Class

r0xdrig0 · #5 (**permalink**) 15/07/2011, 13:46

ese es el codigo y mi consulta es como puedo empezar a debugear para poder encontrar el error del pq no me muestra los resultados de busqueda al dar click en el boton buscar, ya q al hacerlo solo se me recarga la pagina y no me muestra nada ningun msje ni resultados, logre imprimir la variable q contiene la consulta sql de busqueda y esta me muestra q si toma todos los filtros q el usuario selecciona para la busqueda, por lo q creo q el problema esta en el codigo de la app y no en la consulta sql, y esa es mi pregunta amigos ¿como puedo empezar para comenzar a debugear el problema?, les cuento soy nuevo en vb.net y este sistema esta hecho por otro desarrollador y a mi me encargaron arreglar los bugs de esta app, es por eso les hago esa consulta ¿de como empezar el debugeo del codigo?, de antemano muy agradecido... bye

Aquaventus · #6 (**permalink**) 15/07/2011, 13:52

Has empezado por debugearlo por breakpoints? Te dejo aqui el link. Y este otro en español

r0xdrig0 · #7 (**permalink**) 15/07/2011, 14:25

si lo he probado pero necesito saber q pasa en el momento q le doy al boton buscar para asi ver q pasa con el databound pq no me carga este databound eso necesito y con el breakpoint lo he probado pero no logro ver el pq... q otra cosa puedo hacer para ver el pq no m e carga los datos encontrados en el databound??? porfavor amigos agradeceria su ayuda/guia.... de antemano gracias. bye

Aquaventus · #8 (**permalink**) 15/07/2011, 14:41

Modifica el Load:

Código vb:

Ver originalProtected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
If Not Page.IsPostBack Then
        stringConn = ConfigurationSettings.AppSettings("conn") 
        NOMBRE_BD = ConfigurationSettings.AppSettings("NombreDB") 
    End Sub 
End If

Comentame como va...

r0xdrig0 · #9 (**permalink**) 15/07/2011, 15:10

al probar el if postback me lanza una excepcion "El codigo de usuario no controlo InvalidOperationException" y en la pila de llamada me muestra este codigo externo:

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

App_Web_x99r6ht1.dll!BuscarClienteNew.btnBuscar_Cl ick(Object sender = {Text = "Buscar"}, System.EventArgs e = {System.EventArgs}) Línea 72 + 0xe bytes Basic

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

q puede ser entonces amigos??? porfavor como dije anteriormente soy nuevo en vb.net y desde ya agradesco profundamente su ayuda.

r0xdrig0 · #10 (**permalink**) 17/07/2011, 20:31

amigos aca yo aun con el problema no logro ver el pq no me muestra los resultados de busqueda al hacer el filtro, soy completamente nuevo en vb.net, y porfavor de verdad les agradeceria si alguien me ayuda a como empezar a ver el pq no me muestra los resultados de busqueda en el gridview al realizar la busqueda ya q al apretar buscar solo se recarga la pagina y no muestra nada, tambien les cuento q eel sistema no lo hice yo y ademas soy totalmente novato en vb.net, es por eso q agradeceria su ayuda/guia de como empezar a encontrar el error, probe creando breakpoint pero no me muestra nada concreto, porfavor q debo hacer para para empezar a encontrar el error??, mi code es el q esta posteado mas arriba porfavor agradeceria sus sugerencias de ayuda amigos.... de antemano gracias. bye