Opret tabel i access db

Prøv dette link:

http://www.w3schools.com/sql/sql_create.asp

Opret tabel:
'Opret forbindelse
Dim SQL
SQL = "CREATE TABLE ABC (NAME varchar, COUNT int)"
Conn.Execute(SQL)
'Luk forbindelse

Indeksering:
CREATE INDEX [et eller andet navn]
ON ABC (COUNT)

Eller sådan her da både NAME og COUNT er reserveret ord i SQL:

SQL = "CREATE TABLE ABC ([NAME] TEXT PRIMARY KEY, [COUNT] INT)"
Conn.Execute(SQL)

og så lige det med CREATE INDEX bagefter :)

eagleeye: Jeg får nedenstående fejl:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/test.asp, line 31

Hele koden ser sådan ud:

<%
strTABEL = Day(Date)&"-"&Month(Date)&"-"&Year(Date)

Dim ConnObj
Set ConnObj = Server.Createobject("ADODB.Connection")
Set RstObj = Server.CreateObject("ADODB.Recordset")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\udvikling\data\database.mdb; password=123abc"
ConnObj.Open strDSN

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

if fundet = true then

Response.Write "Fundet, " & strTABEL

else

Response.Write "Ikke fundet, " & strTABEL

Dim SQL
SQL = "CREATE TABLE strTABEL ([VirusName] TEXT(255) PRIMARY KEY, [Count] INT)"
Conn.Execute(SQL)

CREATE INDEX [Index]
ON strTABEL (COUNT)

end if
%>

Scriptet skal tjekke om en tabel med dags dato findes - hvis den gør skal den ikke foretage sig andet end skrive fundet - hvis ikke skal den oprette tabellen med navn som dags dato.

hvordan går det - kan du få det til at virke ?

Din connection object hedder ConnObj og ikke Conn så prøv at lave koden sådan her:


<%
strTABEL = Day(Date)&"-"&Month(Date)&"-"&Year(Date)

Dim ConnObj
Set ConnObj = Server.Createobject("ADODB.Connection")
Set RstObj = Server.CreateObject("ADODB.Recordset")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\udvikling\data\database.mdb; password=123abc"
ConnObj.Open strDSN

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

if fundet = true then

Response.Write "Fundet, " & strTABEL

else

Response.Write "Ikke fundet, " & strTABEL

Dim SQL
SQL = "CREATE TABLE [" & strTABEL & "] ([VirusName] TEXT(255) PRIMARY KEY, [Count] INT)"
ConnObj.Execute(SQL)

SQL = "CREATE INDEX [CountIndex] ON [" & strTABEL & "] ([Count])"
ConnObj.Execute(SQL)

end if
%>