[AccessD] Why can't I get all a database's DAO properties' values?

Roberto Ford Long rford at terra.com.br
Fri Jun 6 09:56:31 CDT 2014


Hi Bill.
Maybe this small program can help. http://accesssvn.codeplex.com/
It saves all from database to a txt files, and can reload then and 
recreate a database.
It's very slow to process tables.
Regards,
Roberto.

Em 06/06/2014 11:33, Bill Benson escreveu:
> Not sure (cannot check right now) but,  I tried using SET and got the same
> error.
>
> I am since giving up because I cannot get all of the database objects
> described enough within non-database files on disk to recombine and rebuild
> it without either copying from an old database or using transferdatabase to
> import objects from the old data base.
>
> I was looking for a way to rebuild a database from text files then grab
> properties.
> On Jun 6, 2014 8:53 AM, "Charlotte Foust" <charlotte.foust at gmail.com> wrote:
>
>> Connection is an object, but connection string is a property.  Did you get
>> that?
>>
>> Charlotte
>>
>>
>> On Thu, Jun 5, 2014 at 6:13 PM, Bill Benson <bensonforums at gmail.com>
>> wrote:
>>
>>> I am trying to recreate a new database in the image of an existing
>>> database.
>>> So I have saved all the objects in the model database as text, and I plan
>>> to
>>> import all those objects into the new database. Before doing so, I want
>> to
>>> capture all of the properties of the model database, and recreate them in
>>> the new database. Below is the code I have tried to use, but I am hitting
>>> some properties that will not allow me to get their values into the
>> array,
>>> such as "Connection". That property seems to exist, have a type = 0, but
>>> the
>>> value cannot be obtained. I am not sure I can create it in the new
>> database
>>> - nor really whether I should have to.
>>>
>>> For Each Prp In ModelDb.Properties
>>>      iUB = UBound(VarPrp, 2) + 1
>>>      If iUB = 1 Then
>>>          ReDim VarPrp(1 To 3, 1 To iUB)
>>>      Else
>>>          ReDim Preserve VarPrp(1 To 3, 1 To iUB)
>>>      End If
>>>
>>>      VarPrp(1, iUB) = Prp.Name
>>>      VarPrp(2, iUB) = Prp.Type
>>>
>>> ''''GETTING ERROR HERE
>>> ''''Operation is not supported for this type object
>>> ''''Note that Prp.Name = "Connection
>>>          VarPrp(3, iUB) = Prp.Value
>>> ''''
>>> ''''
>>> Next
>>>
>>>
>>> Essentially, I cannot load up all the properties of the ModelDB into an
>>> array, which is what I am trying to do.
>>>
>>> Help?!
>>>
>>> --
>>> AccessD mailing list
>>> AccessD at databaseadvisors.com
>>> http://databaseadvisors.com/mailman/listinfo/accessd
>>> Website: http://www.databaseadvisors.com
>>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>



More information about the AccessD mailing list