Problema con Visual Studio 2010 y 2005!!!...

stuart_david3 · #1 (**permalink**) 11/01/2012, 13:07

Hola a todos, pues verán, tengo un problema en un programa al usar en mi máquina el Visual Studio 2010... En el, corrí una pequeña aplicación y pues todo bien, el problema es que la tengo que adecuar en un servidor que usa el Visual Studio 2005, y me marca un error, esta es la aplicación:

Código ASP:

Ver original<%@ Import Namespace="System.Data" %>
 
<%@ Import Namespace="System.Data.SQLClient" %>
<script language="vbscript" runat="server">
 
    Private Sub TextBox2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)
 
        Dim reader As SqlDataReader
        Dim values As ArrayList = New ArrayList()
        Dim conn As SqlConnection =
          New SqlConnection("server=10.11.2.49;database=extractor;User ID=sa;Password=administrador;Trusted_Connection=no")
        Dim Answer = Text1.Text
        
        Dim sql2 As String = "SELECT nombre FROM b_traba1 WHERE rpe='" & Answer & "' GROUP BY nombre"
        Dim dr As New SqlCommand(sql2, conn)
        conn.Open()
        reader = dr.ExecuteReader()
        If reader.Read() Then
            Text2.Text = CStr(reader("nombre"))
        
        End If
        reader.Close()
    End Sub
</script>
<html>
<head>
<title>Tablas y Columnas</title>
</head>
<body>
    <asp:Label ID="Label1" runat="server" Text="RPE del Empleado"></asp:Label>
    <asp:Label ID="Label2" runat="server" Text="Malo Chavo"></asp:Label>
<form id="Form1" method="post" runat="server" name="ListEnlaza">
<asp:TextBox ID="Text1" runat="server"></asp:TextBox>
<br />
<br />
<asp:TextBox ID="Text2" runat="server" AutoPostBack="true" ontextchanged="TextBox2_TextChanged"></asp:TextBox>
<br />
<asp:Button ID="Button1" runat="server" Text="Sirve" OnCommand="TextBox2_TextChanged" 
    Width="71px"/>
 
<asp:Button ID="Button2" runat="server" style="margin-left: 82px" 
    Text="No Sirve" />
 
</form>
</body>
</html>

Como dije, en el VS 2010 hace lo que quiero que es colocar un dato en el textbox y mostrar en otro el resultado de lo que puse mediante una consulta en sql...

Ahora cuando lo corro en el VS 2005, me marca un error en esta línea:

Línea 37: <asp:Button ID="Button1" runat="server" Text="Sirve" OnCommand="TextBox2_TextChanged" Width="71px"/>

Y me dice esto:

El método 'Private Sub TextBox2_TextChanged(sender As Object, e As System.EventArgs)' no tiene la misma firma que el delegado 'Delegate Sub CommandEventHandler(sender As Object, e As System.Web.UI.WebControls.CommandEventArgs)'.

Agradezco de antemano su ayuda!!!...

lucord · #2 (**permalink**) 12/01/2012, 08:45

Hola stuart_david3 creo que tu problema se debe a que en la construcción del evento TextBox2_TextChanged hace falta el EventHandler intenta agregandolo de la siguiente manera

Código ASP:

Ver original%@ Import Namespace="System.Data" %>
*
<%@ Import Namespace="System.Data.SQLClient" %>
<script language="vbscript" runat="server">
*
    Private Sub TextBox2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged                                                   
 
* * 'Private Sub TextBox2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)
*
* * * * Dim reader As SqlDataReader
* * * * Dim values As ArrayList = New ArrayList()
* * * * Dim conn As SqlConnection =
* * * * * New SqlConnection("server=10.11.2.49;database=extractor;User ID=sa;Password=administrador;Trusted_Connection=no")
* * * * Dim Answer = Text1.Text
* * * * 
* * * * Dim sql2 As String = "SELECT nombre FROM b_traba1 WHERE rpe='" & Answer & "' GROUP BY nombre"
* * * * Dim dr As New SqlCommand(sql2, conn)
* * * * conn.Open()
* * * * reader = dr.ExecuteReader()
* * * * If reader.Read() Then
* * * * * * Text2.Text = CStr(reader("nombre"))
* * * * 
* * * * End If
* * * * reader.Close()
* * End Sub
</script>
<html>
<head>
<title>Tablas y Columnas</title>
</head>
<body>
* * <asp:Label ID="Label1" runat="server" Text="RPE del Empleado"></asp:Label>
* * <asp:Label ID="Label2" runat="server" Text="Malo Chavo"></asp:Label>
<form id="Form1" method="post" runat="server" name="ListEnlaza">
<asp:TextBox ID="Text1" runat="server"></asp:TextBox>
<br />
<br />
<asp:TextBox ID="Text2" runat="server" AutoPostBack="true" ontextchanged="TextBox2_TextChanged"></asp:TextBox>
<br />
<asp:Button ID="Button1" runat="server" Text="Sirve" OnCommand="TextBox2_TextChanged" 
* * Width="71px"/>
*
<asp:Button ID="Button2" runat="server" style="margin-left: 82px" 
* * Text="No Sirve" />
*
</form>
</body>
</html>

Salu2.

stuart_david3 · #3 (**permalink**) 13/01/2012, 15:03

Jajaja gracias lucord al final de cuentas lo hicé así:

Código ASP:

Ver original<%@ Import Namespace="System.Data" %>
 
<%@ Import Namespace="System.Data.SQLClient" %>
<script language="vbscript" runat="server">
 
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim reader As SqlDataReader
        Dim values As ArrayList = New ArrayList()
        Dim conn As SqlConnection = New SqlConnection("server=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
        Dim Answer = Text1.Text
        
        Dim sql2 As String = "SELECT nombre FROM b_traba1 WHERE rpe='" & Answer & "' GROUP BY nombre"
        Dim dr As New SqlCommand(sql2, conn)
        conn.Open()
        reader = dr.ExecuteReader()
        If reader.Read() Then
            Text2.Text = CStr(reader("nombre"))
        
        End If
        reader.Close()
    End Sub
</script>

Con el evento onclick de mi botoncillo...

Código ASP:

Ver original<asp:Button ID="Button1" runat="server" Text="Mostrar" Width="71px" OnClick="Button1_Click"/>

Pero en serio muchas gracias por tu amable respuesta, así ya tendré otra manera de hacerlo :p... Saludos!!!...

lucord · #4 (**permalink**) 16/01/2012, 09:04

Excelente con todo gusto!!!