Problemi col VS 2005 e Namespaces

**dvd83i** · 05-09-2005, 17:41

Salve Ragazzi, non Capisco cosa ci sia di sbagliato in questo codice, qualcuno potrebbe aiutarmi????

Grazie

codice:

 Pagina Default. Aspx


<%@ Import Namespace= "LoginVB" %>

<script language= "vb" runat = "server" >
    Sub Button1_Click(ByVal Sender As Object, ByVal E As EventArgs)
        Dim Data As AutentObjVB("server=(local);database=Clienti;user=sa")
        Data.GetUser(TextBox1.Text, TextBox1.Text)
        Label1.Text = "OK"
    End Sub
</script>

<html>
<body>
    <form id="form1" runat="server">
    <div>
        <table style="width: 478px">
            <tr>
                <td style="width: 98px">
                    login</td>
                <td style="width: 179px">
                    <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox></td>
            </tr>
            <tr>
                <td style="width: 98px">
                    password</td>
                <td style="width: 179px">
                    <asp:TextBox ID="TextBox2" runat="server"></asp:TextBox></td>
            </tr>
            <tr>
                <td style="width: 98px">
                </td>
                <td style="width: 179px">
                    <asp:Button ID="Button1" runat="server" Text="Button" />
                    <asp:Label ID="Label1" runat="server" ForeColor="Red"></asp:Label>
                </td>
            </tr>
        </table>
    </div>
    </form>
</body>
</html>

codice:

 Pagina default.aspx.vb



Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Reflection

Namespace LoginVB
    Public Class AutentObjVB
        Private ConnectionString As String

        Public Sub New()
            MyBase.New()
            ConnectionString = ""
        End Sub

        Public Sub New(ByVal ConnStr As String)
            MyBase.New()
            ConnectionString = ConnStr
        End Sub

        Public Property ConnectionString() As String
            Get
                Return ConnectionString
            End Get

            Set(ByVal value As String)
                ConnectionString = Value
            End Set
        End Property

        Public Function GetUser(ByVal login As String, ByVal password As String) As DataSet

            Dim myConnection As New SqlConnection(ConnectionString)
            Dim CommandText As String = "select Login, Password FROM Cliente where ([Clienti].[Login] = '" + login + "' and [Clienti].[Password] = '" + password + "')"
            Dim myCommand As New SqlDataAdapter(CommandText, myConnection)

            Dim ds As New DataSet()
            myCommand.Fill(ds)

            Return ds
        End Function
    End Class
End Namespace

Grazie

**sms** · 05-09-2005, 18:48

ricordati sempre di scrivere che errore viene restituito. ci faciliti la vita..
in ogni caso, prova con

codice:

        Dim Data As AutentObjVB = New AutentObjVB("server=(local);database=Clienti;user=sa")

**dvd83i** · 06-09-2005, 16:21

Hai Ragione, ho dimenticato d scrivere il mess d'errore, CMQ ho risolto il problema,

L'asp.net 2.0 mette tutt il codice ad esempio in default.aspx.vb tutto automaticamente è tutto funziona normalmente senza più <script>!!!!

Grazie lo stesso

Vedere Compilare aspx.vb????

Discussione: Problemi col VS 2005 e Namespaces

Strumenti discussione

Ricerca discussione

Visualizza

Problemi col VS 2005 e Namespaces

Permessi di invio