Opret Field IF NOT EXISTS

Jeg ved ikke om man kan tjekke om et felt eksisterer direkte i en SQL sætning, men det kan løses således:

dim cnt,i,feltfindes
cnt=table.fields.count-1
feltfindes=false
for i=0 to cnt
  if table.fields.item(i).name)="NewField" then feltfindes=true
next

if feltfindes then sQuery = "ALTER TABLE datatable ......

ups.. en parantes slut for meget..  det skal være:
if table.fields.item(i).name = "NewField" then feltfindes=true

Måske kan du bruge denne funktion. Den er godt nok skrevet til VB

Public Function FieldExists(DatabaseName As String, TableName _
As String, FieldName As String) As Boolean

'DataBaseName is the file/path name of the database
'with the field you want to test
'tablename is the table, fieldname is the field
'if database or table does not exist, an error is raised

Dim oDB As Database
Dim td As TableDef
Dim f As Field

On Error GoTo errorhandler

Set oDB = Workspaces(0).OpenDatabase(DatabaseName)
Set td = oDB.TableDefs(TableName)

On Error Resume Next
Set f = td.Fields(FieldName)
FieldExists = Err.Number = 0
oDB.Close

Exit Function

errorhandler:

If Not oDB Is Nothing Then oDB.Close
Err.Raise Err.Number
Exit Function

End Function

-> mortvader

Hvordan definerer jeg "table" i udtrykket: table.fields.count

/Steen

Åh, sorry:

det er mig der kalder et recordset for table.

conn=Server.CreateObject("ADODB.Connection")
conn.open DSN
table=Server.CreateObject("ADODB.Recordset")
table.activeconnection=conn
(det andet kode her)

-> mortvader:

Jeg har følgende kode:
======================

Set objConn = server.createobject("ADODB.connection")
objConn.Open "DBQ="&(Server.MapPath("../db/projekter.mdb")) &"; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"

Set objBrugerRec = server.createobject("ADODB.recordset")
objBrugerRec.activeconnection = objConn

dim cnt,i,feltfindes
cnt = objBrugerRec.fields.count-1            ' linie 22
feltfindes=false
for i=0 to cnt
  if objBrugerRec.fields.item(i).name="RefURL" then feltfindes=true
next

if feltfindes then
    sQuery    = "ALTER TABLE skemadata ADD RefURL text"
    Set objBrugerRec = objConn.Execute(sQuery)
End if


... og får følgende fejl:
=========================

Microsoft OLE DB Provider for ODBC Drivers fejl '80040e0c'

Command text was not set for the command object.

/demo/MakeRefURL.asp, line 22

Set objConn = server.createobject("ADODB.connection")
objConn.Open "DBQ="&(Server.MapPath("../db/projekter.mdb")) &"; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"

Set objBrugerRec = server.createobject("ADODB.recordset")
objBrugerRec.activeconnection = objConn

objBrugerRec.open "select top 1 * from skemadata" ' prøv lige om ikke dette virker?

dim cnt,i,feltfindes
cnt = objBrugerRec.fields.count-1            ' linie 22
feltfindes=false
for i=0 to cnt
  if objBrugerRec.fields.item(i).name="RefURL" then feltfindes=true
next

if feltfindes then
    sQuery    = "ALTER TABLE skemadata ADD RefURL text"
    Set objBrugerRec = objConn.Execute(sQuery)
End if

Ny fejl:

[Microsoft][ODBC Microsoft Access-driver] Databasemotoren kan ikke låse tabellen "skemadata", fordi den allerede anvendes af en anden person eller proces.

luk access og prøv igen.

... mere:

if feltfindes then
    sQuery    = "ALTER TABLE skemadata ADD RefURL text"
    Set objBrugerRec = objConn.Execute(sQuery)    'linie 32
End if

og husk forresten at lukke recordsettet igen efter for-next løkken.

DONE - recordset skulle lukkes efter for-løkken.

Takker

/Steen :-)

Konge! ;)