exists username in vb.net

Jeg må tilstå at jeg ikke helt forstår den måde du ønsker at gøre det på. Hvorfor skal der blandes en datatable ind i det?

På den helt simple form:

Smid

en TextBox (til indtastning af brugernavnet),
en Button (til submit)
og en Label ind (til at vise resultatet af søgningen)

ind på din side:

    <form id="form1" runat="server">
        <div>
            <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
            <asp:Button ID="Button1" runat="server" Text="Button" />
            <asp:Label ID="Label1" runat="server" Text="Label"></asp:Label>
        </div>
    </form>

Sæt derefter noget lignende den følgende kode på knappen:

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' Forbindelse til databasen
        Dim connStr As String = "hvad du nu skal bruge til netop din database"
        Dim conn As SqlConnection = New SqlConnection(connStr)

        ' SQl kommandoen ....
        Dim sql As String = "SELECT count(*) FROM dinUserTable WHERE username = @username"
        Dim cmd As SqlCommand = New SqlCommand(sql, conn)

        ' ... med parameters
        cmd.Parameters.Add("@username", SqlDbType.VarChar, 50)  ' Hvis du da har afsat 50 tegn i basen
        cmd.Parameters("@username").Value = Me.TextBox1.Text

        ' Udfør SQL kaldet
        conn.Open()
        Dim antal As Integer = CType(cmd.ExecuteScalar(), Integer)
        conn.Close()

        ' Vis resultatet
        If antal >= 1 Then
            Me.Label1.Text = "Desværre er brugernavnet allerede taget"
        Else
            Me.Label1.Text = "Brugernavnet er frit"
        End If
    End Sub

Denne version af kode antager at du bruger en SQL Server. Den kan dog uden vidre rettes til at du f.eks. bruger Access eller en ODBC forbindelse.

Jeg bruger Access database... Så jeg er ikke helt med hvordan jeg skal lave det ...derfor spørger jeg :D

Så skal du bare skrive "OleDb..." i starten af alle funktionerne i stedet for "Sql..."

kan du ikke lige vise hvordan jeg skal skrive det??

Som dette for jeg fejl:

  'her skal jeg tjekke om username eller email allerede findes i db
        Dim objDS As New DataSet
        Dim sql As String = "SELECT count(*) FROM dinUserTable WHERE username = @username"


        Dim connStr As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\App_Data\dbAcfc.mdb")
        Dim conn As New OleDbDataAdapter(sql, connStr)
     

        ' SQl kommandoen ....
        Dim cmd As OleDbCommand = New OleDbCommand(sql, connStr)


        ' ... med parameters
        cmd.Parameters.Add("@username", OleDbType.VarChar, 50)  ' Hvis du da har afsat 50 tegn i basen
        cmd.Parameters("@username").Value = Me.txtUsername.Text

        ' Udfør SQL kaldet

        Dim antal As Integer = CType(cmd.ExecuteScalar(), Integer)


        ' Vis resultatet
        If antal >= 1 Then
            Me.lblMsg.Text = "Desværre er brugernavnet allerede taget"
        Else

lbl.text = "ok"
End If

Ok Takker det var bare stien til db der var forkert...Super mange tak nielle... svar lige :D

Svar :^)

Så mangler du bare at acceptere mit svar :^)

Takker for point :^)