ASP.NET遇到问题---Datareader访问数据库

Exam6_1.aspx

<%@ Page Language="VB" %>
<%@ Import NameSpace="System.Data.OleDb" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        txtusername.Text = ""
        txtpassword.Text = ""
        txtphone.Text = ""
        txtemail.Text = ""
        txtqq.Text = ""
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim connstring As String
        Dim strsql As String
        Dim conn As OleDbConnection
        Dim comm As OleDbCommand
        Dim usercount As Long
        conn = New OleDbConnection
        comm = New OleDbCommand
        connstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
        connstring += Server.MapPath("Data/mydb.accdb")
        conn.ConnectionString = connstring
        conn.Open()
        strsql = "select count(*) from members where username='" & txtusername.Text & "'"
        comm.Connection = conn
        comm.CommandText = strsql
        usercount = comm.ExecuteScalar
        Try
            If usercount = 0 Then
                strsql = "insert into members values("
                strsql += "'" & txtusername.Text & "',"
                strsql += "'" & txtpassword.Text & "',"
                strsql += "'" & txtphone.Text & "',"
                strsql += "'" & txtqq.Text & "',"
                strsql += "'" & txtemail.Text & "')"
                comm.Connection = conn
                comm.CommandText = strsql
                comm.ExecuteNonQuery()
                Response.Write("<font color='blue' size=3>恭喜您，<b>" & txtusername.Text & "</b>注册成功</font>")
            Else
                Response.Write("<font color='red' size=3>对不起，您的用户名已被使用</font>")
            End If
        Catch ex As Exception
            Response.Write("<font color='blue' size=3>" & ex.Message & "</font>")
        End Try
        comm.Dispose()
        conn.Close()
        txtusername.Text = ""
        txtpassword.Text = ""
        txtphone.Text = ""
        txtemail.Text = ""
        txtqq.Text = ""
    End Sub
</script>

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>添加新用户</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <strong>注册新用户：</strong><br />
        <hr />

    </div>
        <br />
        <asp:Label ID="Label1" runat="server" Text="用户名："></asp:Label>
        <asp:TextBox ID="txtusername" runat="server"></asp:TextBox><br />
        <br />
        <asp:Label ID="Label2" runat="server" Text="密   码："></asp:Label>
        <asp:TextBox ID="txtpassword" runat="server" TextMode="Password"></asp:TextBox><br />
        <br />
        <asp:Label ID="Label3" runat="server" Text="电   话："></asp:Label>
        <asp:TextBox ID="txtphone" runat="server"></asp:TextBox><br />
        <br />
        <asp:Label ID="Label4" runat="server" Text="邮   箱："></asp:Label>
        <asp:TextBox ID="txtemail" runat="server"></asp:TextBox><br />
        <br />
        <asp:Label ID="Label5" runat="server" Text="Q   Q："></asp:Label>
        <asp:TextBox ID="txtqq" runat="server"></asp:TextBox><br />
        <br />
        <asp:Button ID="Button1" runat="server" OnClick="Button1_Click" Text="取消" />
           
        <asp:Button ID="Button2" runat="server" Text="确定" OnClick="Button2_Click" />
    </form>
</body>
</html>

错误提示:

ASP.NET遇到问题---Datareader访问数据库

猜你喜欢