By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
444,168 Members | 2,511 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 444,168 IT Pros & Developers. It's quick & easy.

Navigate related records

P: n/a
Bob
Hello:

I'm building a simple windows database application that has two tables with
One to One relationships on MS Access tables.

I know what your thinking. Why not just use one table? because MS Access
has a field count limitation of 255 and my table would have 327 fields so I
have no choice.

I'm using two Data adapters that generate a single DS with a relationship
build on the ClientID fields.

I dont' wish to use a datagride because the customer doesn't want it.

I can't figure out how to make my app populate the fields in my form with
the child data when the dataset loads and moves to the next record.

Below is what I have and it works ok:

Me.BindingContext(objdsClients, "ClientsMain").Position =
(Me.BindingContext(objdsClients, "ClientsMain").Position +
1)Me.BindingContext(objdsClients, "ClientsPage01").Position =
(Me.BindingContext(objdsClients, "ClientsPage01").Position + 1)
But as you know, it can quickly cause problems later if the child table
doesn't have a child record added for some reason like a power failur or
something else.

I built the relationship in Query Designer

Any help would be appriciated

TIA

Bob
Nov 21 '05 #1
Share this Question
Share on Google+
15 Replies


P: n/a
Bob,

Why do you make it yourself difficult, why don't you use just two datatables
in one dataset. They only need to have the same key.

It would have been a problem if you was using a datagrid, however you don't
have that problem.

By the way, I am curious how do you get 327 textboxes on one form?

I hope this helps,

Cor
Nov 21 '05 #2

P: n/a
LOL

--
Terry Burns
http://TrainingOn.net
"Cor Ligthert" <no************@planet.nl> wrote in message
news:%2****************@tk2msftngp13.phx.gbl...
Bob,

Why do you make it yourself difficult, why don't you use just two
datatables in one dataset. They only need to have the same key.

It would have been a problem if you was using a datagrid, however you
don't have that problem.

By the way, I am curious how do you get 327 textboxes on one form?

I hope this helps,

Cor

Nov 21 '05 #3

P: n/a
Bob
Cor:

Yeah thats why I don't understand why it doesn't work. I am using just one
dataset.

Maybe I only need one oleDBDataAdapter also and join the tables there?
Anyway, I tried that but all I got was constraint probs.

The examples I see use two oleDBDataAdapters and generate one DS.

I found an example that uses a Combo Box and I'm not. I might be making
headway with the code. Not sure yet.
Thanks

Bob
Nov 21 '05 #4

P: n/a
Bob,

Why do you not, show us some snippets of your code, (Not the designer part
pleast that we know very much). And than first copied, pasted, copied pasted
with a notebook to get it readable.

Cor
Nov 21 '05 #5

P: n/a
Bob
Private Sub btnNavNext_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnNavNext.Click
Me.BindingContext(objdsClients, "ClientsMain").Position =
(Me.BindingContext(objdsClients, "ClientsMain").Position + 1)
'Me.BindingContext(objdsClients, "ClientsPage01").Position =
(Me.BindingContext(objdsClients, "ClientsPage01").Position + 1)
'Me.txtSBLNum.DataBindings.Add(New
System.Windows.Forms.Binding("Text", objdsClients,
"ClientsMain.PK_ClientID.ClientID"))
Dim SelectClientID As String
SelectClientID = editClientID.Text.ToString()
Dim drSelectedClient As DataRow
drSelectedClient =
objdsClients.ClientsMain.FindByClientID(SelectClie ntID)
' Declare an array of data rows to hold the related records.
Dim draPage01 As DataRow()
draPage01 = drSelectedClient.GetChildRows("ClientsPage01")
' Display the length of the array (number of orders)
' and the CustomerID in the form caption.
'Me.Text = draPage01.Length.ToString() & " Client Pages " &
SelectClientID

Dim drPage1 As DataRow
For Each drPage1 In draPage01
'lbOrders.Items.Add(drOrder("OrderID"))
Next

Me.objdsClients_PositionChanged()

End Sub
Nov 21 '05 #6

P: n/a
Bob
Cor:

Yeah I'm curious how I'm going to get 327 fields on a form too. I don't
have anything briliant but I think I'm going to put as many as I can into
groupboxes and use the visible property in my code to show and hide the
fields consecutively as the user enters data.

Bob
Nov 21 '05 #7

P: n/a
Bob,

Can you try this sample that I made for you, it uses only two textboxes and
a button, however the problem with the two datatables and the solution
should be the same.

\\\Needs only two textboxes and a button on a form and pasting this code in
Dim ds As DataSet
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
ds = CreateDs()
Me.TextBox1.DataBindings.Add("Text", ds.Tables(0), "Country")
Me.TextBox2.DataBindings.Add("Text", ds.Tables(1), "State")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim cma1 As CurrencyManager _
= DirectCast(BindingContext(ds.Tables(0)), CurrencyManager)
Dim cma2 As CurrencyManager _
= DirectCast(BindingContext(ds.Tables(1)), CurrencyManager)
If cma1.Position < ds.Tables(0).Rows.Count - 1 Then
cma1.Position += 1
Else
cma1.Position = 0
End If
cma2.Position = cma1.Position
End Sub
Private Function CreateDs() As DataSet
Dim ds As New DataSet
Dim dtName As New DataTable("Persons")
Dim dtCountry As New DataTable("Countries")
dtCountry.Columns.Add("Country")
ds.Tables.Add(dtCountry)
dtCountry.LoadDataRow(New Object() {"EU"}, True)
dtCountry.LoadDataRow(New Object() {"EU"}, True)
dtCountry.LoadDataRow(New Object() {"US"}, True)
dtCountry.LoadDataRow(New Object() {"US"}, True)
Dim dtStates As New DataTable("States")
dtStates.Columns.Add("State")
ds.Tables.Add(dtStates)
dtStates.LoadDataRow(New Object() {"Austria"}, True)
dtStates.LoadDataRow(New Object() {"Holland"}, True)
dtStates.LoadDataRow(New Object() {"Florida"}, True)
dtStates.LoadDataRow(New Object() {"New York"}, True)
Return ds
End Function
///

I hope this helps,

Cor
Nov 21 '05 #8

P: n/a
Bob
I don't think it will work because ds doesn't get declared in the button
click and the form load events but I'll try it around 9:30 am EDT
Nov 21 '05 #9

P: n/a
Bob
ooppss my bad. I see it
Nov 21 '05 #10

P: n/a
Bob
Cor:

ok, I tried it and got the same runtime error

An unhandled exception of type 'System.NullReferenceException' occurred in
WindowsApplication1.exe

Additional information: Object reference not set to an instance of an
object.

Same as I get in my project

Thanks again

Bob
Nov 21 '05 #11

P: n/a
Bob
sorry, the code highlighted is

ds.Tables.Add(dtCountry)

Bob
Nov 21 '05 #12

P: n/a
Bob,

I tried this sample when I send it, and now again, I had/have not any error.

Can you paste it back to show what you made from it?

Cor
Nov 21 '05 #13

P: n/a
Bob
Cor:

Once again, I appologize for the confusion.

these early mornings without that first cup of coffe.

Me in my infinite wisdome, I forgot to past it into notepad first.

Thanks for all the help and sorry for all the false alarms.

I'll try to implement this into my project

Thanks again

Bob
Nov 21 '05 #14

P: n/a
Bob
Cor:

I appriciate the help you have given me but now that I look at it, I already
had a form of that. Thats based on row position.

That won't help me because thats not 100%. A simple power failure can throw
that off too easily. If data gets entered into the parent table and for some
reason the users stop entering data into the child tables, power failure,
system hang etc ...

See where I'm going?

I need something based on real relational concepts. I spent money on VS
becaused it advertised that but I'm thinking I'm better off with what I know
(VS6).

Any other suggestions?

Thanks again

Bob
Nov 21 '05 #15

P: n/a
Bob,
That won't help me because thats not 100%. A simple power failure can
throw that off too easily. If data gets entered into the parent table and
for some reason the users stop entering data into the child tables, power
failure, system hang etc ...

No, because that is in any concept the same.

AFAIK, can you not update easily a joined table, that you have to do table
by table using AdoNet.

Cor
Nov 21 '05 #16

This discussion thread is closed

Replies have been disabled for this discussion.