Avatar billede hansen Nybegynder
10. september 2004 - 13:34 Der er 1 kommentar

opret kolonne i tabel, tjek for eksistens først

Jeg kan godt oprette en kolonne i en allerede eksisterende tabel, men hvordan tjekker jeg for om denne DB allerede har en kolonne der hedder det, så den ikke gør noget galt ?

<%
'Åben databasen<----------------------------------------------START
DBPath = "DBQ=d:\data\DB.mdb"
'Åben databasen<----------------------------------------------SLUT

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
SQL = "ALTER TABLE media ADD user varchar(30)"
Response.Write SQL
Conn.execute(SQL)
%>
Avatar billede eagleeye Praktikant
10. september 2004 - 16:10 #1
Et eksempel på det, man kan bruge OpenSchema og tjekke om kolonnenavnet findes:


<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

Set rs= conn.OpenSchema(4,Array(Empty, Empty, "media")) '4 = adSchemaColumns

findes=false
do while not rs.EOF
  if lcase(rs("COLUMN_NAME")) = "user" then
    findes=true
    exit do
  end if
  rs.Movenext
loop

if findes=false then
  SQL = "ALTER TABLE media ADD [user] varchar(30)"
  Conn.Execute(SQL)
end if

Conn.Close
Set Conn = Nothing
%>
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester