21. februar 2001 - 17:58
Der er
9 kommentarer og 1 løsning
Opret tabeller i access online
Hvad er galt her ?? Jeg skal kunne oprette x antal nye tabeller i en Access database (tilføjelse af felter klarer jeg fint) <%@ Language=VBScript %> <% If Request.Form(\"action\")=\"create\" Then Set Conn = Server.Createobject(\"ADODB.Connection\") strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \" &_ \"DBQ=\" & Server.Mappath(\"/databaser/DB.mdb\") & \"\" Conn.Open strDSN SQL=\"CREATE TABLE \"&Keyword&\"(NR integer not null primary key)\" conn.Execute(SQL) Response.Write \"din tabel er nu oprettet\" %> <HTML> <BODY> <P>Opret en analyse</P> <P><form action=test.asp method=post > <INPUT name=Keyword ><br> <INPUT name=action type=submit value=create><br> <INPUT name=reset type=reset value=Reset> </form></P> </BODY> </HTML>
Annonceindlæg fra Computerworld
21. februar 2001 - 18:00
#1
SQL=\"CREATE TABLE \"&Keyword&\" (NR integer not null primary key)\" måske ?
21. februar 2001 - 18:01
#2
Nu ved jeg ikke helt med Access, men i MySQL skal man bruge: CREATE TABLE tabel (id int(6) auto_increment, PRIMARY KEY(id)); det er bare et eksempel
21. februar 2001 - 18:02
#3
glemte lige not null CREATE TABLE tabel (id int(6) auto_increment NOT NULL, PRIMARY KEY(id));
21. februar 2001 - 18:29
#4
Problemet ligger i at jeg ikke på forhånd kender navnet på tabellen - navnet hentes fra inputfeltet i formularen
21. februar 2001 - 18:30
#5
vagngart:> sql=\"CREATE TABLE \" & tabel & \" (id int(6) auto_increment, PRIMARY KEY(id));\" conn.execute(sql)
21. februar 2001 - 18:37
#6
Tja nu får jeg flg. fejl Fejltype: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i CREATE TABLE-sætningen.
21. februar 2001 - 18:44
#7
som jeg sagde .. jeg ved ikke med access men mit forslag byggede på MySQL .. men hvilken fejl fik du da i dit eget forsøg ?
21. februar 2001 - 18:49
#8
tdaugaard:> tak for dine altid hurtige svar! Men jeg fik sammefejl :-( Det må sg... da være muligt at lave denne lille manøvre. Ellers må jeg jo over i MySql - dog lidt tungt når dette kun skal bruges til en demo på PWS.
21. februar 2001 - 18:57
#9
Hvad med: <%@ Language=VBScript %> <% Dim Keyword If Request.Form(\"action\")=\"create\" AND Len(Request.Form(\"Keyword\")) > 0 Then Keyword = Request.Form(\"Keyword\") Set Conn = Server.Createobject(\"ADODB.Connection\") strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \" &_ \"DBQ=\" & Server.Mappath(\"/databaser/DB.mdb\") & \"\" Conn.Open strDSN SQL=\"CREATE TABLE \" & Keyword & \"(NR integer not null primary key);\" conn.Execute(SQL) Response.Write \"din tabel er nu oprettet\" %> <HTML> <BODY> <P>Opret en analyse</P> <P><form action=test.asp method=post > <INPUT name=Keyword ><br> <INPUT name=action type=submit value=create><br> <INPUT name=reset type=reset value=Reset> </form></P> </BODY> </HTML>
21. februar 2001 - 19:03
#10
henrikbr:> Takker Selfølgelig hvor tumpet kan man være :-)
Kurser inden for grundlæggende programmering