Avatar billede jesper_larsen Nybegynder
12. maj 2005 - 09:33 Der er 11 kommentarer og
1 løsning

Fjerne nogle SQL tabeller??

Hvis jeg nu skal ha' fjernet tabellerne:
instruktor
iscenesettelse

Hvordan gør jeg det??
Jeg har overhoved ikke forstand på ASP, og siden er jeg har fået lavet.

---------------------------------------------------

<%
if len(request.querystring("ID")) = 0 then
    response.write "ERROR! ID IS MISSING OR IS INVALID!"
else
    ' Make list of all movies
    'createdataobject "d:\home\dirchpasserdk\db\film.mdb"
    createdataobject "mySQL"
        'opentable "select * from Film where ID = " & clng(request.querystring("ID")) & ";"
        Set rs = DBConn.Execute("SELECT * FROM teaterstykker WHERE ID = " & clng(request.querystring("ID")) & ";")
            if (rs.eof or rs.bof) then
                response.write "ID " & clng(request.querystring("ID")) & " not found!"
            else
                ID = server.htmlencode(rs("ID"))
                instruktor = rs("instruktor")
                Titel = rs("stykkenavn")
                if (isEmpty(rs("beskrivelse")) = false) AND (isNull(rs("beskrivelse")) = false) then
                  Tekst = replace(rs("beskrivelse"),vbcrlf,"<br>")
                end if
                Copyright = rs("iscenesettelse")
                Billede = rs("Billede")
                eYear = rs("premiere")
               
'Table: teaterstykker:
'ID : auto increment
'stykkenavn : char(50)
'instruktor : char(50)
'premiere : char(15)
'iscenesettelse : char(50)
'beskrivelse : text
'teater : int
'
'Table: teater
'teaternavn : char(70)
            end if
'        closetable
    closedataobject
%>
Avatar billede cpufan Juniormester
12. maj 2005 - 10:24 #1
hvis de skal slettes helt, - fuldstændig fjernes fra verdens overflade!!!

DBConn.Execute("drop table instruktor")
DBConn.Execute("drop table iscenesettelse")
Avatar billede jesper_larsen Nybegynder
12. maj 2005 - 10:34 #2
Ja, de to skal ikke bruges mere.
Kan man ikke bare fjerne noget i koderne så de ikke er med??

Er du ikke flink at skrive hele koden, da jeg ikke har forstand på det og ikke selv kan indføre de koder du skriver??
Avatar billede winman Nybegynder
12. maj 2005 - 12:24 #3
Jesper læser jeg ikke rigtig når det du skal er at fjerne de to felter
-instruktor
-iscenesettelse
I dette tilfælde er det ikke tabeller som skal fjernes men felter... VIGTIG!!!

Der er nemlig forskel på disse to, den ene er selve tabellen den anden er felterne i tabellen.

For at fjerne felter skal du bruge ALTER stamentet (og den skal kun køres en gang så er de fjernet for altid):
DBConn.Execute("ALTER TABLE teaterstykker DROP COLUMN instruktor")
DBConn.Execute("ALTER TABLE teaterstykker DROP COLUMN iscenesettelse")

Men igen, du skal nok lige beskrive lidt om hvad det er der sker... for hvis det bare er fordi du ikke vil have det vist på siden... kan du jo bare vælge ikke at udskrive det til klienten... og i dette tilfælde er det ikke den ovenståenden kode som du viser som vi skal rediger i...
Avatar billede jesper_larsen Nybegynder
12. maj 2005 - 13:27 #4
Jeg prøver lige at forklare det.

Det er som du selv skriver....at jeg ikke ønsker at ha' de 2 tabeller:
-instruktor
-iscenesettelse

Vist inde på siden.
Jeg prøver lige at postere hele showteater.asp.

----------------------------------------------

<!--#include file="includes/data.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Teater</title>
<link REL="STYLESHEET" TYPE="text/css" HREF="ny.css">
<base target="hovedramme">
</head>
<body bgcolor="#EDEEDD">
<%
if len(request.querystring("ID")) = 0 then
    response.write "ERROR! ID IS MISSING OR IS INVALID!"
else
    ' Make list of all movies
    'createdataobject "d:\home\dirchpasserdk\db\film.mdb"
    createdataobject "mySQL"
        'opentable "select * from Film where ID = " & clng(request.querystring("ID")) & ";"
        Set rs = DBConn.Execute("SELECT * FROM teaterstykker WHERE ID = " & clng(request.querystring("ID")) & ";")
            if (rs.eof or rs.bof) then
                response.write "ID " & clng(request.querystring("ID")) & " not found!"
            else
                ID = server.htmlencode(rs("ID"))
                instruktor = rs("instruktor")
                Titel = rs("stykkenavn")
                if (isEmpty(rs("beskrivelse")) = false) AND (isNull(rs("beskrivelse")) = false) then
                  Tekst = replace(rs("beskrivelse"),vbcrlf,"<br>")
                end if
                Copyright = rs("iscenesettelse")
                Billede = rs("Billede")
                eYear = rs("premiere")
               
'Table: teaterstykker:
'ID : auto increment
'stykkenavn : char(50)
'instruktor : char(50)
'premiere : char(15)
'iscenesettelse : char(50)
'beskrivelse : text
'teater : int
'
'Table: teater
'teaternavn : char(70)
            end if
'        closetable
    closedataobject
%>
<table border="0" cellpadding="2" class="normaltable" width="100%">
  <tr>
    <td style="color: #FFFFFF" bgcolor="#000000" width="50%" height="30">&nbsp;&nbsp;&nbsp;<%=Titel%>&nbsp;(<%=eYear%>)</td>
  </tr>
  <tr>
    <td>
      <table border="0" width="100%" class="normaltable" cellspacing="3" cellpadding="3">
        <tr>
          <td width="1%"><% if len(Billede) > 0 then %><img src="<%=Billede%>"><%end if %></td>
          <td width="50%" valign="top">
          Iscenesættelse: <%=Copyright%><br>
          Intruktør: <%=instruktor%><br><br><br>
          <%=Tekst%></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td align="center" bgcolor="#DEDFBF" height="30"> </td>
  </tr>
</table>
<%
end if
%>
</body>
Avatar billede jesper_larsen Nybegynder
12. maj 2005 - 13:38 #5
Det er som du selv skriver....at jeg ikke ønsker at ha' de 2 tabeller vist inde på siden:
-instruktor
-iscenesettelse

I øjeblikke viser den denne fejl fordi at jeg har slettet en er de ovenstående tabbeller inde i MySQL databasen.

-----------------------------------

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/showteater.asp, line 25
Avatar billede winman Nybegynder
12. maj 2005 - 14:46 #6
Jamen har du slettet hele tabellen eller kun et/flere feltet ????
Hvis det er felter du har fjernet... så skriv lige hvilken
Avatar billede winman Nybegynder
12. maj 2005 - 14:54 #7
Hvis du har slettet iscenesettelse
Skal det se sådan her ud EKSEMPEL 1:

Hvis du har slettet instruktor
Skal det se sådan her ud EKSEMPEL 2:

Hvis du har slettet instruktor & iscenesettelse
Skal det se sådan her ud EKSEMPEL 3:

EKSEMPEL 1:--------------------------------------------------------------------------
<!--#include file="includes/data.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Teater</title>
<link REL="STYLESHEET" TYPE="text/css" HREF="ny.css">
<base target="hovedramme">
</head>
<body bgcolor="#EDEEDD">
<%
if len(request.querystring("ID")) = 0 then
    response.write "ERROR! ID IS MISSING OR IS INVALID!"
else
    ' Make list of all movies
    'createdataobject "d:\home\dirchpasserdk\db\film.mdb"
    createdataobject "mySQL"
        'opentable "select * from Film where ID = " & clng(request.querystring("ID")) & ";"
        Set rs = DBConn.Execute("SELECT * FROM teaterstykker WHERE ID = " & clng(request.querystring("ID")) & ";")
            if (rs.eof or rs.bof) then
                response.write "ID " & clng(request.querystring("ID")) & " not found!"
            else
                ID = server.htmlencode(rs("ID"))
                instruktor = rs("instruktor")
                Titel = rs("stykkenavn")
                if (isEmpty(rs("beskrivelse")) = false) AND (isNull(rs("beskrivelse")) = false) then
                  Tekst = replace(rs("beskrivelse"),vbcrlf,"<br>")
                end if
                Billede = rs("Billede")
                eYear = rs("premiere")
               
'Table: teaterstykker:
'ID : auto increment
'stykkenavn : char(50)
'instruktor : char(50)
'premiere : char(15)
'beskrivelse : text
'teater : int
'
'Table: teater
'teaternavn : char(70)
            end if
'        closetable
    closedataobject
%>
<table border="0" cellpadding="2" class="normaltable" width="100%">
  <tr>
    <td style="color: #FFFFFF" bgcolor="#000000" width="50%" height="30">&nbsp;&nbsp;&nbsp;<%=Titel%>&nbsp;(<%=eYear%>)</td>
  </tr>
  <tr>
    <td>
      <table border="0" width="100%" class="normaltable" cellspacing="3" cellpadding="3">
        <tr>
          <td width="1%"><% if len(Billede) > 0 then %><img src="<%=Billede%>"><%end if %></td>
          <td width="50%" valign="top">
          Intruktør: <%=instruktor%><br><br><br>
          <%=Tekst%></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td align="center" bgcolor="#DEDFBF" height="30"> </td>
  </tr>
</table>
<%
end if
%>
</body>

EKSEMPEL 2:--------------------------------------------------------------------------
<!--#include file="includes/data.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Teater</title>
<link REL="STYLESHEET" TYPE="text/css" HREF="ny.css">
<base target="hovedramme">
</head>
<body bgcolor="#EDEEDD">
<%
if len(request.querystring("ID")) = 0 then
    response.write "ERROR! ID IS MISSING OR IS INVALID!"
else
    ' Make list of all movies
    'createdataobject "d:\home\dirchpasserdk\db\film.mdb"
    createdataobject "mySQL"
        'opentable "select * from Film where ID = " & clng(request.querystring("ID")) & ";"
        Set rs = DBConn.Execute("SELECT * FROM teaterstykker WHERE ID = " & clng(request.querystring("ID")) & ";")
            if (rs.eof or rs.bof) then
                response.write "ID " & clng(request.querystring("ID")) & " not found!"
            else
                ID = server.htmlencode(rs("ID"))
                Titel = rs("stykkenavn")
                if (isEmpty(rs("beskrivelse")) = false) AND (isNull(rs("beskrivelse")) = false) then
                  Tekst = replace(rs("beskrivelse"),vbcrlf,"<br>")
                end if
                Copyright = rs("iscenesettelse")
                Billede = rs("Billede")
                eYear = rs("premiere")
               
'Table: teaterstykker:
'ID : auto increment
'stykkenavn : char(50)
'premiere : char(15)
'iscenesettelse : char(50)
'beskrivelse : text
'teater : int
'
'Table: teater
'teaternavn : char(70)
            end if
'        closetable
    closedataobject
%>
<table border="0" cellpadding="2" class="normaltable" width="100%">
  <tr>
    <td style="color: #FFFFFF" bgcolor="#000000" width="50%" height="30">&nbsp;&nbsp;&nbsp;<%=Titel%>&nbsp;(<%=eYear%>)</td>
  </tr>
  <tr>
    <td>
      <table border="0" width="100%" class="normaltable" cellspacing="3" cellpadding="3">
        <tr>
          <td width="1%"><% if len(Billede) > 0 then %><img src="<%=Billede%>"><%end if %></td>
          <td width="50%" valign="top">
          Iscenesættelse: <%=Copyright%><br><br><br>
          <%=Tekst%></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td align="center" bgcolor="#DEDFBF" height="30"> </td>
  </tr>
</table>
<%
end if
%>
</body>

EKSEMPEL 2:--------------------------------------------------------------------------
<!--#include file="includes/data.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Teater</title>
<link REL="STYLESHEET" TYPE="text/css" HREF="ny.css">
<base target="hovedramme">
</head>
<body bgcolor="#EDEEDD">
<%
if len(request.querystring("ID")) = 0 then
    response.write "ERROR! ID IS MISSING OR IS INVALID!"
else
    ' Make list of all movies
    'createdataobject "d:\home\dirchpasserdk\db\film.mdb"
    createdataobject "mySQL"
        'opentable "select * from Film where ID = " & clng(request.querystring("ID")) & ";"
        Set rs = DBConn.Execute("SELECT * FROM teaterstykker WHERE ID = " & clng(request.querystring("ID")) & ";")
            if (rs.eof or rs.bof) then
                response.write "ID " & clng(request.querystring("ID")) & " not found!"
            else
                ID = server.htmlencode(rs("ID"))
                Titel = rs("stykkenavn")
                if (isEmpty(rs("beskrivelse")) = false) AND (isNull(rs("beskrivelse")) = false) then
                  Tekst = replace(rs("beskrivelse"),vbcrlf,"<br>")
                end if
                Billede = rs("Billede")
                eYear = rs("premiere")
               
'Table: teaterstykker:
'ID : auto increment
'stykkenavn : char(50)
'premiere : char(15)
'beskrivelse : text
'teater : int
'
'Table: teater
'teaternavn : char(70)
            end if
'        closetable
    closedataobject
%>
<table border="0" cellpadding="2" class="normaltable" width="100%">
  <tr>
    <td style="color: #FFFFFF" bgcolor="#000000" width="50%" height="30">&nbsp;&nbsp;&nbsp;<%=Titel%>&nbsp;(<%=eYear%>)</td>
  </tr>
  <tr>
    <td>
      <table border="0" width="100%" class="normaltable" cellspacing="3" cellpadding="3">
        <tr>
          <td width="1%"><% if len(Billede) > 0 then %><img src="<%=Billede%>"><%end if %></td>
          <td width="50%" valign="top"><%=Tekst%></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td align="center" bgcolor="#DEDFBF" height="30"> </td>
  </tr>
</table>
<%
end if
%>
</body>
Avatar billede jesper_larsen Nybegynder
12. maj 2005 - 19:19 #8
Undskyld at jeg først svare nu, men jeg får af en eller anden mærkelig grund ikke tilsendt emails når der svares så jeg glemmer at tjekke!

Jeg kigger lige på det og vender tilbage.
Avatar billede jesper_larsen Nybegynder
12. maj 2005 - 19:33 #9
Hej igen

Det ser ud til at eks 3 virker. 1000 tak
Må jeg vende tilbage hvis der skulle fremsnige sig en lille fejl i den??

Smider du lige et svar, så får du alle point
Avatar billede cpufan Juniormester
13. maj 2005 - 09:39 #10
der vist ikke rigtig nogen der får mails for øjeblikket........
det er ikke kun dig.
Avatar billede jesper_larsen Nybegynder
13. maj 2005 - 09:45 #11
Jeg fik sørme en email i dag.... :-)
Er det i orden at jeg gi'r Winman alle pointene, da det var hans svar jeg kunne bruge??
Avatar billede winman Nybegynder
13. maj 2005 - 16:58 #12
Jeg får godt nok mail... :o)
Her et svar...
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