can my acc97 read acc2003 over the net

[EliDo]

can my acc97 read acc2003 over the net.

I have 2 user with access97 on there pc, and they need to
read my access2003.mbd on the server, can I do this

 

[Douglas J. Steele]

If by "read", you mean interact with the forms, reports, etc. in the Access
2003 mdb, the answer is no.

If all you want is to read the data contained in tables, you can do it, but
it's not straightforward. I've successfully used ADO in Access 97 to read
data from a newer version of Access. You need to ensure you've got the
appropriate Connection String to read the data, the same as you would if the
data was in some other DBMS.

 

[elido]

-----Original Message-----
If by "read", you mean interact with the forms, reports, etc. in the Access
2003 mdb, the answer is no.

If all you want is to read the data contained in tables, you can do it, but
it's not straightforward. I've successfully used ADO in Access 97 to read
data from a newer version of Access. You need to ensure you've got the
appropriate Connection String to read the data, the same as you would if the
data was in some other DBMS.

--
Doug Steele, Microsoft Access MVP

(No private e-mails, please)





.

I just want them to read the data in the tables, I have
codes in vb script, can you give me an example of things I
have to use ADO.

 

[Douglas J. Steele]

I just want them to read the data in the tables, I have
codes in vb script, can you give me an example of things I
have to use ADO.

I don't have any sample code to do this where I am today.

If no-one else has responded by the time I get home, I'll try to post a
sample this evening.

 

[Douglas J. Steele]

Here's some code I just tested.

Sub A2KfromA97()

Dim cn As Object
Dim rs As Object
Dim strSQL As String
Dim intLoop As Integer

Set cn = CreateObject("ADODB.Connection")
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "D:\Documents and Settings\DJSteele\My
Documents\My Office Documents\Office.2003\Access.2003\Test.mdb"
.Open
End With

Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = cn
strSQL = "SELECT * FROM Colors"
With rs
.CursorType = 1 ' adOpenKeyset
.LockType = 3 ' adLockOptimistic
.source = strSQL
.Open
End With
Do Until rs.EOF
For intLoop = 0 To rs.Fields.Count - 1
Debug.Print rs.Fields(intLoop).Name & "=" &
rs.Fields(intLoop).value
Next intLoop
rs.MoveNext
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

End Sub