Very Computer

1)
use connection string ->Build
2)
Microsoft Jet 4.0 OLE DB Provider
3)
Select or enter a database name:
"C:\1.mdb" ->this is STATIC
4)
and a couple of selections of tables

i want dynamic, with my "dblocation" function a made (below)

Anybody knows how?
thanks

Marcel Le Clercq
--
The Netherlands

'<form1>
Private Sub Command1_Click()
Module1.get_dblocation 'haal de dblocatie op
Text1.Text = dblocation()

End Sub

'<module1>
Dim getdb As String

Public Function get_dblocation()

getdb = "C:\1.mdb"

End Function

Public Property Get dblocation() As String
dblocation = getdb
End Property

Private m_dblocation As String
Public Property Get dblocation() As Variant
    dblocation = m_dblocation
End Property

Public Property Let dblocation(ByVal vNewValue As Variant)
    m_dblocation = vNewValue
End Property

?ystein

Quote:> I have a problem with my adodc
> i want a connection with a access 2000 database
> the connection is dynamic, so i went to the "ADODC properties" page (right
> click on the adodc)  of the adodc, but it is only posible to make a
> connection with a dynamic database :
> i did:

> 1)
> use connection string ->Build
> 2)
> Microsoft Jet 4.0 OLE DB Provider
> 3)
> Select or enter a database name:
> "C:\1.mdb" ->this is STATIC
> 4)
> and a couple of selections of tables

> i want dynamic, with my "dblocation" function a made (below)

> Anybody knows how?
> thanks

> Marcel Le Clercq
> --
> The Netherlands

> '<form1>
> Private Sub Command1_Click()
> Module1.get_dblocation 'haal de dblocatie op
> Text1.Text = dblocation()

> End Sub

> '<module1>
> Dim getdb As String

> Public Function get_dblocation()

> getdb = "C:\1.mdb"

> End Function

> Public Property Get dblocation() As String
> dblocation = getdb
> End Property

Marcel