[acces] Connectie met andere db problemen

[Sjnirk]

code:

Sub Connectiondatabase()
    Dim wrkJet As Workspace
    Dim dbsMSDN As database

    Dim rstTijdelijk As DAO.Recordset

    Set wrkJet = CreateWorkspace("NieuweJetWerkruimte", _
      "admin", "", dbUseJet)
    Set dbsMSDN = wrkJet.OpenDatabase(msdnpath)


    Set rstTijdelijk = dbsMSDN.OpenRecordset( _
      "Products", dbOpenForwardOnly)

Me.msdnsubform.Form.RecordSource = rstTijdelijk.Name

End Sub

Dit heb ik nu maar

code:

Me.msdnsubform.Form.RecordSource = rstTijdelijk.Name

werkt niet, hij retourneert wel de naam, maar hij ziet hem niet omdat hij in een andere mdb staat, hoe kan ik zorgen dat hij hem wel ziet?

[Thunk]

als ie in een andere MDB staat maak dan een verwijzing naar die mdb.. lijkt me vrij logisch

[Thunk]

(niet dat ik veel verstand heb van databases maar ok )

[robjanssen]

Wat is eigenlijk precies je bedoeling?
Vanuit Access een connectie maken met een anders Access database?
Want dat is niet zo moeilijk hoor.

[robjanssen]

Zoiets:

code:

Private Sub ConnectionDatabase()
Dim ConnectionString as String
Dim Conn as Connection
Dim strSQL As String
Dim RS As Recordset

ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Temp\db.mdb;Persist Security Info=False"
Set Conn = New Connection
Conn.Open ConnectionString

strSQL = "SELECT * " _
     & "FROM Products"
Set RS = Conn.Execute(strSQL)

While Not RS.EOF
  MsgBox CStr(RS!Product)

  RS.MoveNext
Wend

Set RS = Nothing

Conn.Close
Set Conn = Nothing

End Sub

[Sjnirk]

Op maandag 27 mei 2002 19:57 schreef robjanssen het volgende:
Wat is eigenlijk precies je bedoeling?
Vanuit Access een connectie maken met een anders Access database?
Want dat is niet zo moeilijk hoor.

Zoals je kunt zien heb ik al een connectie met de andere mdb, dus daar ligt het probleem niet, het probleem is dat ik de info niet op het form krijg

[Sjnirk]

Op maandag 27 mei 2002 20:00 schreef robjanssen het volgende:
Zoiets:

code:

Private Sub ConnectionDatabase()
Dim ConnectionString as String
Dim Conn as Connection
Dim strSQL As String
Dim RS As Recordset

ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Temp\db.mdb;Persist Security Info=False"
Set Conn = New Connection
Conn.Open ConnectionString

strSQL = "SELECT * " _
     & "FROM Products"
Set RS = Conn.Execute(strSQL)

While Not RS.EOF
  MsgBox CStr(RS!Product)

  RS.MoveNext
Wend

Set RS = Nothing

Conn.Close
Set Conn = Nothing

End Sub

Zoiets in die trant ga ik nu ook maar maken, ik heb de hoop opgegeven om de tabel gelijk in de form te laten weergeven.

[Verwijderd]

Me.msdnsubform.Form.RecordSource = rstTijdelijk.Name

De property Name geeft zoals hij al aangeeft alleen een naam (als string) terug. Ik ben niet helemaal meer thuis in DAO, maar volgens mij was het zo dat de default property de recordsource was, dus volgens mij is het helvolgende:

code:

Me.msdnsubform.Form.RecordSource = rstTijdelijk

[Sjnirk]

Op dinsdag 28 mei 2002 09:46 schreef JeroenDega het volgende:

[..]

De property Name geeft zoals hij al aangeeft alleen een naam (als string) terug. Ik ben niet helemaal meer thuis in DAO, maar volgens mij was het zo dat de default property de recordsource was, dus volgens mij is het helvolgende:

code:

Me.msdnsubform.Form.RecordSource = rstTijdelijk

Dat dacht ik ook, maar dan heeft ie error met een type mismatch