Alter table

6 svar · 276 visningar · startad av Asa 3 feb. 2003

AsaMedlem sedan dec. 20011 860 inlägg

Trådstart3 feb. 2003 21:56#1

Vaför får jag syntaxfel i denna kodsnutt?

<%Set Conn = createObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("dbq/galleri.mdb")

Conn.Execute("ALTER TABLE galleri ADD visa int default 0")

Conn.Close
Set Conn=Nothing%>

VideMedlem sedan dec. 19998 577 inlägg

3 feb. 2003 22:00#2

Testa:

"ALTER TABLE galleri ADD COLUMN visa int default 0"

AsaMedlem sedan dec. 20011 860 inlägg

3 feb. 2003 22:07#3

Nää! Undra vad det är som strular :/

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Drivrutin för ODBC Microsoft Access] Syntaxfel i ALTER TABLE-instruktion.
/jobb/sexziten/skapa.asp, line 4

Det är Default 0 som strular! Tar jag bort det så funkar det att skapa. Testat å sätta '' runt 0 men funkar ej.

AsaMedlem sedan dec. 20011 860 inlägg

3 feb. 2003 22:19#4

Jag ändra till

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server.MapPath("dbq/galleri.mdb")

Och då fick jag inga felmess men standardvärdet blev inte satt!

VideMedlem sedan dec. 19998 577 inlägg

3 feb. 2003 22:25#5

Lite intressant läsning ang. ditt problem: http://dbforums.com/archives/t317567.html

AsaMedlem sedan dec. 20011 860 inlägg

3 feb. 2003 22:27#6

Jag gjorde så här och då funkar det. Får köra med text på fältets datatyp tills vidare

<%Set Conn = createObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server.MapPath("dbq/galleri.mdb")

Conn.Execute("ALTER TABLE galleri ADD column visa varchar(1) default 0")

Conn.Close
Set Conn=Nothing%>

nikoMedlem sedan juni 20022 599 inlägg

3 feb. 2003 22:36#7

Access/ADO:ns ALTER TABLE-syntax stöder inte default.

Om du har tillgång till ADOX så kan du göra så här:

 
  set cat = Server.CreateObject("ADOX.Catalog")
   set col = Server.CreateObject("ADOX.Column")
   cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & Server.MapPath("dbq/galleri.mdb")

   With col
      .Name = "Visa"
      .Type = 3 'adInteger
      Set .ParentCatalog = cat
      .Properties("Default") = 0
   End With
   cat.Tables("Galleri").Columns.Append col
   Set cat = Nothing