Jag vill skulle vilja ha ett script som kollar om ett fält existerar i en access tabell och om det inte gör det så ska den lägga till fältet. detta border hjälpa dig .. Hehe. det där kunde jag redan :P Jag vill att databasen ska lägga till ett fält då ett fält inte finns. borde finnas nån funktion som kollar vilka fält som finns i tabbelen och om ett inte finn så ska det läggas till. Det är förståss. Det där var kanske en smart ide tack för förslaget Antingen loopa genom fälten: Tack för svaret. Om ni har andra lösningar kan ni ju posta dom ocksåFält Existerar - access
Alltså, Jag vill ha en kod som kollar om t.ex. Fältet User finns men om det fälltet inte existerar ska koden lägga till det fätet. Tacksam för svar
//MuffinSv: Fält Existerar - access
Set RecSet=connect.Execute(" SELECT * FROM tabellnamn WHERE fält = '" & Request.Form("inlägg") & "' ")
IF RecSet.EOF THEN
response.write "Inlägget finns inte"
else
response.write "Inlägget finns"
end if
RecSet.close
set RecSet = Nothing
lycka till ...Sv: Fält Existerar - access
Sv: Fält Existerar - access
Sv: Fält Existerar - access
<code>
Dim rs
Dim con
Set con = Server.CreateObject("ADODB.Connection")
con.Open ">>>Din anslutningssträng<<<"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM TabellNamn", con
For Each fldField In rs.Fields
If fldField.Name = "User" Then
Found = True
Exit For
End If
Next
rs.Close
Set rs = Nothing
If Not Found Then
'SQL-Server: con.Execute "ALTER TABLE TabellNamn ADD COLUMN Uset varchar(20)"
con.Execute "ALTER TABLE TabellNamn ADD COLUMN User text(20)"
End If
con.Close
Set con = Nothing
</code>
Eller med hjälp av OpenShema:
<code>
Const adSchemaColumns = 4
Dim rs
Dim con
Set con = Server.CreateObject("ADODB.Connection")
con.Open ">>>Din anslutningssträng<<<"
Set rs = con.OpenSchema (adSchemaColumns, Array(Empty, Empty,"TabellNamn", "User")
If rs.EOF Then
'SQL-Server: con.Execute "ALTER TABLE TabellNamn ADD COLUMN Uset varchar(20)"
con.Execute "ALTER TABLE TabellNamn ADD COLUMN User text(20)"
End If
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
</code>
Du bör inte förändra databasen mer än en gång. Låter då som om du valt en dålig databasdesign. IStället för att lagra information kolumnvis kan du lagra den radvis med en nyckel som identifierar raden.Sv: Fält Existerar - access