i need a code for search engine using sql server :) thanks

[zoraster01]

can you give me some search engine code. i am using sql server .. thank in advanced

[debasisdas]

can you give me some search engine code.

No, You have to show some effort for that first.

[zoraster01]

okay sir.. can i have one more favor.. can you please tell me why my program is not working.. this is my sample login program .. the data set is not able to count the data... i wonder why ??

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim connection As New SqlClient.SqlConnection
        Dim command As New SqlClient.SqlCommand
        Dim adapter As New SqlClient.SqlDataAdapter
        Dim dataset As New DataSet

        connection.ConnectionString = ("Data Source=CUBED-DESKTOP05;Initial Catalog=Biometrics;Integrated Security=True")
        command.CommandText = " SELECT * FROM (admin) WHERE username= '" & TextBox1.Text & "' AND password= '" & TextBox2.Text & "';"
        connection.Open()

        command.Connection = connection


        adapter.SelectCommand = command
        adapter.Fill(dataset, "0")

        Dim count = dataset.Tables(0).Rows.Count

        If count > 0 Then
            MsgBox("Welcome to Cubed Technologies", MsgBoxStyle.OkOnly)
            Form2.Show()
            Me.Close()
        Else
            MsgBox("Incorrect Login please Check your Username and Password")
            TextBox1.Clear()
            TextBox2.Clear()
            Me.TextBox1.Focus()

        End If


    End Sub

[aldeene]

try this

Dim IDNumber As String = Nothing
        Dim User As String = Nothing
        Dim Pass As String = Nothing
          If txtUser.Text = "" Then txtUser.Focus() : MessageBox.Show("Please Enter Username", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) : Exit Sub
        If txtPass.Text = "" Then txtPass.Focus() : MessageBox.Show("Please Enter Password", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) : Exit Sub

        User = GetFieldValue("SELECT UserName FROM tblUser WHERE UserName = '" & txtUser.Text & "'", "UserName")
        Pass = GetFieldValue("SELECT Password FROM tblUser WHERE UserName = '" & txtUser.Text & "'", "Password")


        If User = txtUser.Text And Pass = txtPass.Text Then
            IDNumber = GetFieldValue("SELECT UserID FROM tblUser WHERE UserName= '" & txtUser.Text & "'", "UserID")

            UserInfo.IS_USER = IDNumber
            MessageBox.Show("Login Succesful!", "Welcome", MessageBoxButtons.OK, MessageBoxIcon.Information)
 Else
            If Not User = txtUser.Text Then
                MessageBox.Show("Username not registered", "Invalid", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                MessageBox.Show("Invalid Password", "Invalid", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If

[zoraster01]

ohh thank you so much aldeene :) it will help me a lot :)

[zoraster01]

ohh aldeene there are some errors. is the a vb.net program ??

[hericles]

aldeene's code is a bit random. Why is there code to extract the user name from the database where the userName = txtUser.Text? It will only return what you already have - the entered user name. User is ALWAYS going to equal txtUser.text

All that is really needed is, as you did previously, to select the count of rows in the database where userName = user.Text and password = password.Text. This should provide a count of 1. What error were you getting with that code?

[zoraster01]

i think that code is for vb6 not for vb.net.. that's why its not accept hte other function in vb.net ...

[Netcode]

you could try this for your login because you have shown some code.

Dim connection As New SqlClient.SqlConnection
Dim command As New SqlClient.SqlCommand
Dim adapter As New SqlClient.SqlDataAdapter
Dim dataset As New DataSet
 
connection.ConnectionString = ("Data Source=CUBED-DESKTOP05;Initial Catalog=Biometrics;Integrated Security=True")
    objconnection.Open() 'open connection to server 

            'this is the SQL select statement query that is performed
            ' to read the username and password from server 
            Dim SelectStmt As String = "SELECT * FROM users WHERE UserName ='" + TextBox1.Text + "' and " + _
                                "Password ='" + TextBox2.Text + "'"

            Dim objcommand As SqlCommand = New SqlCommand(SelectStmt, objconnection)

            Dim reader As SqlDataReader = objcommand.ExecuteReader

            If reader.Read Then

                MainForm.Show	'display login form

                Me.Dispose()'close login form

            Else

                'integer variable to count the number of times
                'the user has tried loggin in
                Static count As Integer = 0

                'display promt 
                Dim prompt As DialogResult = _
                MessageBox.Show("Invalid Username or Password!", "Login Error", _
                MessageBoxButtons.RetryCancel, MessageBoxIcon.Warning)

                Select Case prompt

                    Case Windows.Forms.DialogResult.Retry
                        'keep login displayed for another trial 
                        userNameTextBox.Text = ""
                        passwordTextBox.Text = ""

                        count += 1 'increment counter by one 
                        If count = 3 Then
                            MessageBox.Show("High value of failed login attempts" & vbCrLf & _
                                           "Application will be terminated" & _
                                        " for security reasons", "Error", MessageBoxButtons.OK, _
                                        MessageBoxIcon.Stop)
                            Application.Exit()
                        End If

                    Case Windows.Forms.DialogResult.Cancel
                        Application.Exit()  'terminate application

                End Select

            End If
        Catch ex As Exception
            MessageBox.Show("Error: Login Failed for User:" & " " & userNameTextBox.Text)
        End Try
    End Sub

[debasisdas]

i think that code is for vb6 not for vb.net.. that's why its not accept hte other function in vb.net ...

That code is in .net only.

Looking the syntax itself you should be able to know what language it is in.

[aldeene]

ohh aldeene there are some errors. is the a vb.net program ??

coz i used a module there, the GetFieldValue line.. hehe sorry I forgot to revised it.. :D

[aldeene]

aldeene's code is a bit random. Why is there code to extract the user name from the database where the userName = txtUser.Text?

I did this because what if the user changes his username..