Oprettelse af tabel i database

Dim strTabelNavn, strSQL
strTabelNavn = Request.Form("TabelNavn")

strSQL = "CREATE TABLE " & strTabelNavn & " ([Navn] TEXT PRIMARY KEY, [email] TEXT)"
Conn.Execute(strSQL)

Ovenstående opretter en tabel med et navn som du selv definerer (I det her tilfælde via en formular), og med felterne 'Navn' og 'Email'. Du kan selv tilføje flere felter ud fra samme mønster :-)

Jeg har ikke testet det, men det burde virke...

Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i CREATE TABLE-sætningen.

Det giver den af fejl når jeg prøver det

Hmm... Det er muligt at det i stedet skal skrives således:

Dim strTabelNavn, strSQL
strTabelNavn = Request.Form("TabelNavn")

strSQL = "CREATE TABLE strTabelNavn ([Navn] TEXT PRIMARY KEY, [email] TEXT)"
Conn.Execute(strSQL)

Nu virker det som jeg skal bruger det.

strSQL = "CREATE TABLE " & request.querystring("user") & " ([Navn] TEXT PRIMARY KEY, [email] TEXT)"
Conn.Execute(strSQL)

Tak, smid et svar :)

(hvordan opretter man et Autonummererings felt?)

Okay, det var godt :-)

Det er et stykke tid siden, jeg har haft rigtig gang i ASP'en, så jeg var lidt i tvivl...

Hmm... Autonummering. Jeg er ikke sikker, men prøv dette:

Dim strTabelNavn, strSQL
strTabelNavn = Request.Form("TabelNavn")

strSQL = "CREATE TABLE strTabelNavn ([ID] INTERGER UNIQUE PRIMARY KEY, [Navn] TEXT, [email] TEXT)"
Conn.Execute(strSQL)

ID burde være din præmære nøgle, og være sat til autonummering

Apo

Får

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i feltdefinitionen.
/test/test.asp, line 53

Hov, jeg omskriver det lige til det der virkede hos dig:

Dim strTabelNavn, strSQL
strTabelNavn = Request.Form("TabelNavn")

strSQL = "CREATE TABLE " & Request.QueryString("user") & " ([ID] INTERGER UNIQUE PRIMARY KEY, [Navn] TEXT, [email] TEXT)"
Conn.Execute(strSQL)

Dim strTabelNavn, strSQL
Prøv:

strTabelNavn = Request.Form("TabelNavn")

strSQL = "CREATE TABLE " & Request.QueryString("user") & " ([ID] INTERGER UNIQUE NOT NULL, [Navn] TEXT, [email] TEXT)"
Conn.Execute(strSQL)

... Og slet lige 'prøv:' inde du forsøger ;-)

:) jeg kopiere kun selve det ved IDet og sætter ind i det der virker... Får dog stadig samme fejl.

Jeg har opdaget en fejl :-/ Prøv:

Dim strTabelNavn, strSQL
strTabelNavn = Request.Form("TabelNavn")

strSQL = "CREATE TABLE " & Request.QueryString("user") & " ([ID] INTEGER UNIQUE PRIMARY KEY, [Navn] TEXT, [email] TEXT)"
Conn.Execute(strSQL)
Conn.Close '<-- Jeg har tilføjet en lukning af databasen (God skik)

Jeg havde skrevet 'INTERGER', men det hedder 'INTEGER*. Nu må det sq da snart virke :-D

Har du fået det til at virke?

Hej, mit net gik ned igår, så kunne ikke komme på igen.

Den opretter bare ID som et tal felt, men ingen autonummenering. :)

Hmm... Jeg er ikke helt sikker på at man kan oprette autonummering via SQL. Jeg faldt over et spørgsmål her på E, hvor der var en der skrev at det _ikke_ kan lade sig gøre. En anden skrev, at nedenstående skulle virke (Med COUNTER i stedet for UNIQUE):

<%
Dim strTabelNavn, strSQL
strTabelNavn = Request.Form("TabelNavn")

strSQL = "CREATE TABLE " & Request.QueryString("user") & " ([ID] INTEGER COUNTER PRIMARY KEY, [Navn] TEXT, [email] TEXT)"
Conn.Execute(strSQL)
Conn.Close
%>

Hvis ikke det virker, tror jeg ikke det kan lade sig gøre.

Apo

Hej Apo,

Jeg har lige sadt og leget lidt med det, og det kan gøres udelukkende med counter, så det kommer til at ligne:

strSQL = "CREATE TABLE 123456789 ( "

strSQL = strSQL & "[ID] COUNTER"

strSQL = strSQL & ")"

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing


Tak for hjælpen.

Så lykkedes det. Det er nok en god idé, at sætte ID til PRIMARY KEY...

Velbekomme, og tak for points :-)

Apo