Tjek om tabel findes i access db

Et eksempel på koden:

<%
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath("db10.mdb")
Set cat = Server.CreateObject("ADOX.Catalog")
cat.ActiveConnection = ConnStr

TabelNavn = "booking"
fundet = False
For Each Table In cat.Tables
  If UCase(Table.Name) = UCase(TabelNavn) Then
    fundet = True
    Exit For
  End If
Next
if fundet = true then
  Response.Write "Tabelnavnet findes"
else
  Response.Write "Tabelnavnet findes <i>ikke</i>"
end if
%>

Hej eagleeye. Tak for dit svar. Jeg har prøvet at lægge din kode ind i min, men får fejl.

Min kode:

strDBPath = "C:\Stats\Stats.mdb"

strTABEL = "08-03-2004"


Set oConnection = CreateObject("ADODB.Connection")
oConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strDBPath

fundet = False
For Each Table In cat.Tables
  If UCase(Table.Name) = UCase(strTABEL) Then
    fundet = True
    Exit For
  End If
Next

if fundet = true then

else

    CREATE TABLE strTABEL
    (
    VirusName varchar(255)
    Count integer(9)
    )

end if


Kan du se nogen fejl her?

Det den skal gøre, er at tjekke om der findes en tabel med samme navn som dags dato, hvis der gør skal den intet gøre, men hvis ikke skal den oprette en ny tabel med navn som dags dato.

Ja det er en forskel på mit eks og din kode. I det viste eks bruges ADOX.Catalog og du bruger en ADODB.Connection til databasen.

Hvis du vil bruge ADODB.Connection skal koden være sådan her:

<%
strDBPath = "C:\Stats\Stats.mdb"

strTABEL = "08-03-2004"


Set oConnection = CreateObject("ADODB.Connection")
oConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strDBPath

fundet = False
Set rs = oConnection.openschema(20)
Do until rs.eof
  If rs("TABLE_TYPE") = "TABLE" Then
    if rs("TABLE_NAME") = strTABEL then
      fundet = true
      exit do
    end if
  End if
  rs.movenext
Loop

if fundet = true then

else

    CREATE TABLE strTABEL
    (
    VirusName varchar(255)
    Count integer(9)
    )

end if
%>