SQL Creare campi

[lucavizzi]

if (datains non esiste) then
ALTER TABLE catalogo ADD COLUMN datains TIME
end if
come faccio a sapere se il campo datains esiste?

Grazie
Luca

[lucavizzi]

stiamo parlando di un db di access

[Mems]

campo = "datains"
esiste = false

sql = "SELECT * FROM catalogo"
set rs = server.createObject("ADODB.Recordset")
rs.open sql, conn, 1, 3
  for i = 0 to rs.fields.count - 1
    if rs(i).fields.name = campo then
      esiste = true
      exit for
    end if
  next
rs.close
set rs = nothing

if not esiste then
conn.execute("ALTER TABLE catalogo ADD COLUMN " & campo & " TIME)
end if

[lucavizzi]

sicuro che va con access?

[Mems]

Provalo. No.
Anzi semmai togli quel - 1 volendo...
... è che mo non mi ricordo se ci vuole o no.
Oppure for i = 1

[lucavizzi]

mo provo

[optime]

potrebbe essere uno di quei due o tre casi in cui usare la On Error Resume Next...

[lucavizzi]

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'fields'

in questa riga:

Response.Write(rs(i).fields.name&"
")

rs.fields.count è ok

[optime]

rs(i).name

[lucavizzi]

rs(i).name