ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.
One of a set of tools we're offering as a way to say thank you for being a part of the community.
Dynamically fill textbox from Access
Hello,
I have a table "t_GallonsPerPound" where there is the following fields: Id, TP as [True Proof], WG as [Wine Gallons] and PG as [Proof Gallons]
I have a form that i am trying to take the value from a txtTP compare it to the database and pull the rest of the information from that record and populate the other two read only text boxes. This happens when the button is clicked
That is if 184 is entered
TP WG PG
----- ----- ----
184 .114 .252
the text boxes fill with those two numbers respectivly.
Since this is my first attempt in VB.net to access a database... i am somewhat lost... Any help. This is what i have so far.
Private Sub btnLookup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLookup.Click
DaGallons.SelectCommand.Co
MessageBox.Show(DaGallons.
End Sub
This is where i get stuck.. I dont know how to get the information.. Normally in VB or ASP the above select statement would return 1 record... but i dont know what the syntax is for VB.net r how to reference it to set the values of the textboxs.
This is just one part of an application i am developing.. hopefully i will turn this into
entering the True Proof, automatically looking up the other values, entering everything into another database table, but i suppose one step at a time..
Any help is appreciated.. i assume this is a pretty simple request.
I have a table "t_GallonsPerPound" where there is the following fields: Id, TP as [True Proof], WG as [Wine Gallons] and PG as [Proof Gallons]
I have a form that i am trying to take the value from a txtTP compare it to the database and pull the rest of the information from that record and populate the other two read only text boxes. This happens when the button is clicked
That is if 184 is entered
TP WG PG
----- ----- ----
184 .114 .252
the text boxes fill with those two numbers respectivly.
Since this is my first attempt in VB.net to access a database... i am somewhat lost... Any help. This is what i have so far.
Private Sub btnLookup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLookup.Click
DaGallons.SelectCommand.Co
MessageBox.Show(DaGallons.
End Sub
This is where i get stuck.. I dont know how to get the information.. Normally in VB or ASP the above select statement would return 1 record... but i dont know what the syntax is for VB.net r how to reference it to set the values of the textboxs.
This is just one part of an application i am developing.. hopefully i will turn this into
entering the True Proof, automatically looking up the other values, entering everything into another database table, but i suppose one step at a time..
Any help is appreciated.. i assume this is a pretty simple request.
Who is Participating?
Hi ClassickJr:
I assume DaGallons is a DataAdaptor.
You will need to "Fill" a DataSet or DataTable to hold the results of your SQL statement.
I suggest you try the following:
Dim dt as New DataTable
daGallons.Fill(dt)
Dim dr as DataRow = dt.Rows(0)
txtWG = dt.Item("Wine Gallons")
txtPG = dt.Item("Proof Gallons")
Good luck!
Dabas
I assume DaGallons is a DataAdaptor.
You will need to "Fill" a DataSet or DataTable to hold the results of your SQL statement.
I suggest you try the following:
Dim dt as New DataTable
daGallons.Fill(dt)
Dim dr as DataRow = dt.Rows(0)
txtWG = dt.Item("Wine Gallons")
txtPG = dt.Item("Proof Gallons")
Good luck!
Dabas
I tried what you suggested.. and have two things to add.
1, isince i already set up a dataset DsGallons, using the object tool, do i need to create another one.
and 2)
When i put in the code, as such..
Private Sub btnLookup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLookup.Click
DaGallons.SelectCommand.Co
MessageBox.Show(DaGallons.
Dim dt As New DataTable
Dim dr As DataRow = dt.Rows(0)
DaGallons.Fill(dt)
txtWG.Text = DsGallons.Item("Wine Gallons")
txtPG.Text = DsGallons.Item("Proof Gallons")
End Sub
I get Item not a member of System.Data.DataTable
any thints... also do i have to Fill the DataAdapter on form load?
Thanks much.
Dave
1, isince i already set up a dataset DsGallons, using the object tool, do i need to create another one.
and 2)
When i put in the code, as such..
Private Sub btnLookup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLookup.Click
DaGallons.SelectCommand.Co
MessageBox.Show(DaGallons.
Dim dt As New DataTable
Dim dr As DataRow = dt.Rows(0)
DaGallons.Fill(dt)
txtWG.Text = DsGallons.Item("Wine Gallons")
txtPG.Text = DsGallons.Item("Proof Gallons")
End Sub
I get Item not a member of System.Data.DataTable
any thints... also do i have to Fill the DataAdapter on form load?
Thanks much.
Dave
Sorry it has taken so long Bob,
I have not yet had a chance to try this yet... This is only a pet project. I will award the points when i can get a chance to try it out. i hope that is ok.
I have not yet had a chance to try this yet... This is only a pet project. I will award the points when i can get a chance to try it out. i hope that is ok.
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
All Courses
From novice to tech pro — start learning today.
-
Course of the Month9 days, 14 hours left to enrollMonitoring and Operating a Private Cloud with System Center 2012 R2 273 lessons
Dim dt As DataSet.t_GallonsPerPound = DaGallons.Tables("t_Gallon
Dim dr As DataSet.t_GallonsPerPoundR
txtWG.Text = Dr.Wine.Value
txtPG.Text = Dr.ProofGallons.Value
Bob