table exist

[gamal]

how do you check if some table exists in you db or not using VB?
for example
i use the the code
if(table_name) then
debug.Print "it is existing"
endif
i found the code ignore the checking because i have the table in db?
and i do not get the message "it is existing"
so how to write the right code?
i also tried the same code with the object which i used to create the table
and i got the same result.

if(object_name)
debug.print " it is existing"
endif

[dnagel]

yourcode snips seem a little 'simple'...

What is table_name, an object, a string, a recordset?

"Select 'SomeTableName' from Table_name"
If executed and the table does exist you'll get "SomeTableName"
as the only field and record in the recordset, if not then you'll get
a DB error because the table does not exist...

There are other ways of doing this but they get pretty specific
to your type of database.

D.


"gamal" <gamalt@yahoo.com> wrote in message news:3b32410f$1@news.devx.com...
>
> how do you check if some table exists in you db or not using VB?
> for example
> i use the the code
> if(table_name) then
> debug.Print "it is existing"
> endif
> i found the code ignore the checking because i have the table in db?
> and i do not get the message "it is existing"
> so how to write the right code?
> i also tried the same code with the object which i used to create the
table
> and i got the same result.
>
> if(object_name)
> debug.print " it is existing"
> endif

[George Shubin]

"gamal" <gamalt@yahoo.com> wrote in message news:3b32410f$1@news.devx.com...
>
> how do you check if some table exists in you db or not using VB?


Here's a function I use to determine if a table exists or not.

Function IsTable(sTableName As String) As Boolean
'Determines if a data table exists in a database
Dim oDb As adodb.Connection
Dim oRs As adodb.Recordset
Set oDb = New adodb.Connection
oDb.CursorLocation = adUseServer
oDb.Open "---Put your connection string here---"
Set oRs = oDb.OpenSchema(adSchemaTables, Array(Empty, Empty, sTableName,
"TABLE"))
If Not oRs.EOF Then
IsTable = True
Else
IsTable = False
End If
oRs.Close
Set oRs = Nothing
oDb.Close
Set oDb = Nothing
End Function