Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Sign In with Facebook Sign In with Google Sign In with OpenID

Categories

We have migrated to a new platform! Please note that you will need to reset your password to log in (your credentials are still in-tact though). Please contact lee@programmersheaven.com if you have questions.
Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

Query attached to button to display a new window for database search

I'm creating an inventory application. It has a combo box for rooms, and I'm trying to code the "Display" button. I got it to open up the database in a new window, but I'm trying to get it to come up and search the database with the cmbRooms.Text information and compare it to the room data in the records. I'm wondering if that's even possible? If so, am I able to do it from the Main Form, or do I have to modify the code in the Database form instead, or in addition to the Main Form's code?

Here's the Main Form's Display button code so far. When I run the application and select a room, and click "Display", it comes up with an error on this line:
Call frmDatabase.Show(record)
I've tried to get it to work, but I can't find an example or help on how to do it anywhere!

[code]Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click
'displays the Database window with a search query of the specified room

'Declarations
Dim frmDatabase As New Database()
Dim record = From inventory In inventoryDataSet.Inventory
Where (inventory.room Like cmbRooms.Text)
Order By inventory.ID
Select inventory

'If textbox for cmbRooms is occupied, and holds the value "All"
'Then show the whole database
If cmbRooms.Text > "0" AndAlso cmbRooms.Text = "All" Then
frmDatabase.Show()
ElseIf cmbRooms.Text > "0" Then
'if textbox occupied, search database using query
Call frmDatabase.Show(record)

Else
'if textbox empty, view error
MessageBox.Show("Please select a room or type 'All' in the Room text field to view all entries.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
End If

End Sub[/code]

Here's my code for the database form:

[code]Public Class Database

Private Sub InventoryBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InventoryBindingNavigatorSaveItem.Click
Me.Validate()
Me.InventoryBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.InventoryDataSet)

End Sub

Private Sub Database_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'InventoryDataSet.Inventory' table. You can move, or remove it, as needed.
Me.InventoryTableAdapter.Fill(Me.InventoryDataSet.Inventory)

End Sub
End Class[/code]
Sign In or Register to comment.