ADO need help with this assignment? Help.

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

RON - 01 Nov 2006 02:23 GMT

OK I need your help, I need to do this assignment for a class and am getting
nowhere with it.

I need to use ADO to display information on a form from the current database
and another database.

I need to make a Form with Student info that will be filled into text boxes
from the STUDENT table of the current database. For example txtname,
txtaddress, txtzip would all get filled in from the STUDENTS Table.

On this same form I need a couple textboxes for example
txtcontactPersonName, txtContactPersonPhone <-- these will be filled in
using ADO from another databases CONTACTS Table. In the Contacts table of
the other Database, it has a corresponding StudentID to a corresponding
StudentID in the STUDENTS table of this database.

So for example If I wanted to make a NEXT RECORD BUTTON to show me all of
these values in a table, how would I code using ADO for this?

thanks for any help

Reply to this Message

Alex Dybenko - 01 Nov 2006 10:18 GMT

You can join tables from different databases using IN like:

Select * from MyTable IN'C:\myother.mdb'

Signature

Best regards,
___________
Alex Dybenko (MVP)
http://alexdyb.blogspot.com
http://www.PointLtd.com

> OK I need your help, I need to do this assignment for a class and am
> getting
[quoted text clipped - 19 lines]
>
> thanks for any help

Reply to this Message

onedaywhen - 01 Nov 2006 12:33 GMT

> You can join tables from different databases using IN like:
>
> Select * from MyTable IN'C:\myother.mdb'

At first glance I thought you meant using IN a WHERE clause as an
alternative to the JOIN syntax.

For the purposed you actually mean, I prefer the <schema>.<table>
syntax (less confusion with the other IN keyword!):

SELECT col1
FROM [MS Access;DATABASE=C:\myother.mdb].MyTable;

Jamie.

--

Reply to this Message

AccessVandal - 01 Nov 2006 11:56 GMT

Hi RON,

Ok, here is something for you to start with.

Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset

Set Conn = New ADODB.Connection
Set rs = New ADODB.Recordset

Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.Open "F:\YourFolder\Your.mdb", "admin", ""

rs.Open "tblContacts", Conn, adOpenStatic, adLockOptimistic

With rs
Do While Not rs.EOF
Debug.Print rs!FirstName
rs.MoveNext
Loop
End With

rs.Close
Conn.Close

>RON wrote:
>OK I need your help, I need to do this assignment for a class and am getting
>nowhere with it.

Reply to this Message