Posts by Naveed_786

If possible please advise some tools or guidlines so that i can give it a try.

So you must post your question in C# forum they would be able to answer you quickly

http://www.daniweb.com/software-development/csharp/61

If it is just for login form then why you are using .update and .edit your code is confusing but you can use simply this code for login

On Error GoTo errHandler
Set rs = db.OpenRecordset("SELECT COUNT(*) As Numrows FROM users WHERE LCASE(username) = '" & LCase(txtusername.Text) & "' AND LCASE(pw) = '" & LCase(txtpassword.Text) & "'")
If CInt(rs.Fields!Numrows) > 0 Then
   MsgBox "YOU HAVE SUCCESSFULLY SIGNED IN", vbOKOnly, "EXCELLENT ACADEMY"
   frmMenu.Show
   Unload Me
Else
   MsgBox "LOGIN DENIED PLEASE TRY AGAIN!!"
   txtusername.Text = ""
   txtpassword.Text = ""
   txtusername.SetFocus
End If
Exit Sub
errHandler:
   MsgBox (Err.Description)

Please view this link

http://www.codeproject.com/KB/vb/InsertUpdateDeleteSearch.aspx

Mark the thread as solved if it helps you.

I have resolved it thanks for yuor help

I have found the solution i have resolved the problem thanks for your help.

firs of all you should add these libraries in your form

Imports System
Imports System.Data
Imports System.Data.OleDb

Then copy and pase this code hope this would help you.

If ComboBox1.Text = "" Then
            MessageBox.Show("Please Select a Search Field From Combobox!", " You Software name ", MessageBoxButtons.OK, MessageBoxIcon.Information)
        ElseIf TextBox5.Text = "" Then
            MessageBox.Show("Please Enter Search Criteria To Search Record!", "You Software name", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            Try
                'Set up connection string
                Dim cnString As String

                cnString = ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\DB.mdb;")

                'Create connection
                Dim conn As OleDbConnection = New OleDbConnection(cnString)
                'Try
                ' Open connection
                conn.Open()
                Dim sqlQRY As String = "SELECT * FROM YourTable Name WHERE(" + Me.ComboBox1.SelectedItem + ")LIKE('%" + Me.TextBox1.Text + "%');"

                'create data adapter
                Dim da As OleDbDataAdapter = New OleDbDataAdapter(sqlQRY, conn)

                'create dataset
                Dim ds As DataSet = New DataSet

                'fill dataset
                da.Fill(ds, "YourTableName")

                'get data table
                Dim dt As DataTable = ds.Tables("YourTable Name")

                'display data
                Dim row As DataRow

                For Each row In dt.Rows
                    TextBox1.Text = row("C1Name")
                    TextBox2.Text = row("C2Name")
                    TextBox3.Text = row("C3Name")
                    TextBox4.Text = row("C5Name")
                Next row
                If ds.Tables("YourTableName").Rows.Count = 0 Then
                    MessageBox.Show("Sorry No Record Found Please Try Again!", " You Software name ", MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
                ' Close connection
                conn.Close()
            Catch ex As OleDbException
                MessageBox.Show("Customer Not found" + ex.Message)
            End Try
        End If

I hope this would help pleae mark thrad solved if it help.