[dimdim80]

My code is the following:
i have an access database which i upload.i am able to navigate and display the recordes from the database everything is fine(for saving time i have not included the code for the four navigation buttons).
My question is the following: i want to create another textbox where when i enter a name for example and by pressing a search button it would automatically fill the corrspoding textbox,in taht case it would be 'txtFirstName',this is the name of my textbox.

Dim inc As Integer
    Dim con As New OleDb.OleDbConnection
    Dim dbprovider As String
    Dim dbsource As String
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String
    Dim MaxRows As Integer

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        
        Me.TblContactsTableAdapter.Fill(Me.AddressBookDataSet.tblContacts)


        dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
        dbSource = "Data Source = C:/AddressBook.mdb"

        con.ConnectionString = dbprovider & dbsource
        con.Open()
        sql = "Select * from tblContacts"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "AdrressBook")
        con.Close()
        MaxRows = ds.Tables("AddressBook").Rows.Count
        inc = -1


    End Sub
    Private Sub NavigateRecords()

        txtFirstName.Text = ds.Tables("AddressBook").Rows(inc).Item(1)


    End Sub

So far i have not found a solution or the solutiuons i have found are not understanble.
Thank you in advance.

Attached File(s)

•  AddressBook.zip (7.29K)
  Number of downloads: 28

[thecoat]

Similar to doing:

sql = "Select * from tblContacts"

You can select specific records using a WHERE clause.

"Select * from tblContacts Where SurName = 'Smith'"

[dimdim80]

Yes i know this,but what i want is how to type for example in the textbox for name ,a specific name and by pressing the search button if it exists to automatically fill the correspoding textboxes.

This post has been edited by dimdim80: 13 December 2013 - 03:41 AM

[x-logan]

for this purpose you can use DataReader

[dimdim80]

problem solved thanks!!


One more question if you do not mind...whenever i add a new record i have to restart my programm in order for the record to be shown?any ideas how to do it withount restarting?updating a record is not a aproblem though.Thanks

[x-logan]

i can't really tell you without seeing your code...
because i don't know whether you are using datagrid or something else..
In order to reply i want to have a look in your code, if you don't mind !

[dimdim80]

    Dim con As New OleDb.OleDbConnection
    Dim dbProvider As String
    Dim dbsource As String
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String
    Dim inc As Integer
    Dim MaxRows As Integer
    

    

    


  
    
    Private Sub NavigateRecords()

        txtFirstName.Text = ds.Tables("AddressBook").Rows(inc).Item(1)
        txtSurname.Text = ds.Tables("AddressBook").Rows(inc).Item(2)

    End Sub

    

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
        dbsource = "Data Source = C:/AddressBook.mdb"

        con.ConnectionString = dbProvider & dbsource
        con.Open()
        sql = "select * from tblcontacts "
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "AddressBook")





        MaxRows = ds.Tables("AddressBook").Rows.Count
        inc = -1
        btnUpdate.Enabled = False


        con.Close()
    End Sub

    

    
    Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
        btnUpdate.Enabled = True
        If inc <> MaxRows - 1 Then

            inc = inc + 1

            NavigateRecords()

        Else

            MsgBox("No More Rows")

        End If
    End Sub

    Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious.Click

        If inc > 0 Then

            inc = inc - 1

            NavigateRecords()
            btnUpdate.Enabled = True
        ElseIf inc = -1 Then

            MsgBox("No Records Yet")
            btnUpdate.Enabled = False
        ElseIf inc = 0 Then

            MsgBox("First Record")
            btnUpdate.Enabled = True
        End If


    End Sub

    Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click
        btnUpdate.Enabled = True
        If inc <> MaxRows - 1 Then

            inc = MaxRows - 1

            NavigateRecords()

        End If
    End Sub

    Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click
        btnUpdate.Enabled = True
        If inc <> 0 Then
            inc = 0
            NavigateRecords()
        End If
    End Sub
    

    

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

    End Sub

    Private Sub Label14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label14.Click

    End Sub

    Private Sub ΠΑΤΡΩΝΥΜΟ_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΠΑΤΡΩΝΥΜΟ.TextChanged

    End Sub

    Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click

        Dim cb As New OleDb.OleDbCommandBuilder(da)
        ds.Tables("AddressBook").Rows(inc).Item(1) = txtFirstName.Text
        ds.Tables("AddressBook").Rows(inc).Item(2) = txtSurname.Text

        da.Update(ds, "AddressBook")

        MsgBox("Data updated")



    End Sub

    Private Sub btnAddNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddNew.Click
        btnCommit.Enabled = True
        btnAddNew.Enabled = False
        btnUpdate.Enabled = False
        btnDelete.Enabled = False

        txtFirstName.Clear()
        txtSurname.Clear()
    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        btnCommit.Enabled = False
        btnAddNew.Enabled = True
        btnUpdate.Enabled = True
        btnDelete.Enabled = True

        inc = 0
        NavigateRecords()
    End Sub

    Private Sub btnCommit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCommit.Click
        If inc <> -1 Then

            Dim cb As New OleDb.OleDbCommandBuilder(da)
            Dim dsNewRow As DataRow

            dsNewRow = ds.Tables("AddressBook").NewRow()

            dsNewRow.Item("FirstName") = txtFirstName.Text
            dsNewRow.Item("Surname") = txtSurname.Text

            ds.Tables("AddressBook").Rows.Add(dsNewRow)

            da.Update(ds, "AddressBook")

            MsgBox("New Record added to the Database")

            btnCommit.Enabled = False
            btnAddNew.Enabled = True
            btnUpdate.Enabled = True
            btnDelete.Enabled = True

        End If
    End Sub

    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        Dim cb As New OleDb.OleDbCommandBuilder(da)

        ds.Tables("AddressBook").Rows(inc).Delete()
        MaxRows = MaxRows - 1

        inc = 0
        da.Update(ds, "AddressBook")
        NavigateRecords()
    End Sub
End Class

This is my code needed for you to check and have a look.the problem is when i add a record 1:it requires to enter both name and secondname ot it displays an error. 2:if i add a record, the new record will show only after exiting the programme and restarting it.if i update it it will show at once ,after i press the next button ,withunt exiting.
Thanks

This post has been edited by dimdim80: 16 December 2013 - 03:29 AM

[x-logan]

you code is pretty confusing..right now i am busy i will reply you after sometime...

[x-logan]

   NavigateRecords()

add this line inside your insert command like you did inside next button, have a try after that let me know what are you up to

[dimdim80]

x-logan, on 16 December 2013 - 03:49 AM, said:

   NavigateRecords()

add this line inside your insert command like you did inside next button, have a try after that let me know what are you up to

Unfortunately no result..i need to exit and start again in order to be shown..Strange because the record is added in the access database.

[dimdim80]

Solved ...thanks for your help anyway:)