[AccessD] Does table exist?

Hi Gustav,

I used the msystable once for developers-use (access add-in), some sort of
documenting type of thing combined with the use of a treeview... so all
objects like the regular access tabulars were showing and then tables were
more specific than those being shown in access including the Oracle, SQL
server, system, hidden etc.. ones also showing more specific connect
information etc... same for queries (pass-through, unions etc...) etc...
maybe I still have it somewhere but I am not sure...

Anyway, I had a lot of type numbers figured out:-)


-----Original Message-----
From: accessd-admin at databaseadvisors.com
[mailto:accessd-admin at databaseadvisors.com]On Behalf Of Gustav Brock
Sent: vrijdag 21 maart 2003 18:58
To: StaRKeY
Subject: Re: [AccessD] Does table exist?


Hi StaRKeY

Ahh, didn't notice that, sorry.
It's 4 by the way.

/gustav


> it will...check out my extended information in the code...'and other
> types'...

> :-)

> -----Original Message-----
> From: accessd-admin at databaseadvisors.com
> [mailto:accessd-admin at databaseadvisors.com]On Behalf Of Gustav Brock
> Sent: vrijdag 21 maart 2003 12:08
> To: StaRKeY
> Subject: Re: [AccessD] Does table exist?


> Hi StaRKeY

> This won't catch attached ODBC tables.

> /gustav

>> How about:

>> Public Function CheckTableExist (strTableName As String) As Boolean
>> Dim strCriteria As String

>>   strCriteria = "name = '" & strTableName & "'" & " and (type=1 or type=6
>> and other types)"
>>   CheckTableExist = CBool(DCount("[ID]", "MSysObjects", strCriteria))

>> End Function

_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


---
Message is tested virus free
Virus Database (VPS): 19-3-2003
Tested on: 21-3-2003 20:04:13

(c) 2000-2003 ALWIL Software.
http://www.avast.com