Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Fält Existerar - access

Postades av 2003-07-02 19:11:58 - Viktor svensson, i forum asp - allmänt, Tråden har 5 Kommentarer och lästs av 425 personer

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.
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

//Muffin


Svara

Sv: Fält Existerar - access

Postades av 2003-07-02 20:40:04 - Mouhannad Al-Sayegh

detta border hjälpa dig ..

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 ...


Svara

Sv: Fält Existerar - access

Postades av 2003-07-03 00:30:12 - Viktor svensson

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.


Svara

Sv: Fält Existerar - access

Postades av 2003-07-03 08:37:09 - Viktor svensson

Det är förståss. Det där var kanske en smart ide tack för förslaget


Svara

Sv: Fält Existerar - access

Postades av 2003-07-03 09:15:34 - Andreas Hillqvist

Antingen loopa genom fälten:

<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.


Svara

Sv: Fält Existerar - access

Postades av 2003-07-03 13:43:02 - Viktor svensson

Tack för svaret. Om ni har andra lösningar kan ni ju posta dom också


Svara

Nyligen

  • 08:28 Butiksskyltar: Hur upplever utbude
  • 22:31 Slappna av
  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 798
27 960
271 761
2 750
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies