Create Tabel hvordan?

Dim db47 As Database
Dim tdfNew As TableDef
Dim a As String
On Error GoTo Errorhandler
a = InputBox(Prompt:="Indtast navnet på den nye tabel:", Title:="Opret ny tabel.", Default:="")
Set db47 = OpenDatabase("D:\VBA\XP\db47")
Set tdfNew = db47.CreateTableDef(a)
With tdfNew
.Fields.Append .CreateField("tekst", dbText, 30)
.Fields.Append .CreateField("memo", dbMemo)
.Fields.Append .CreateField("dato", dbDate)
.Fields.Append .CreateField("tal", dbInteger)
.Fields.Append .CreateField("tal1", dbLong)
.Fields.Append .CreateField("tal2", dbDouble)
db47.TableDefs.Append tdfNew
MsgBox "Tabellen:" & vbNewLine & vbNewLine & a & vbNewLine & vbNewLine & "er nu oprettet.", Title:="Udført."
End With
Errorhandler:
If Err = 3010 Then
MsgBox "Der findes allerede en tabel med dette navn." & vbNewLine & vbNewLine & "Procedüren forlades."
Else:
MsgBox Err.Description
End If

Ovennævnte kode er hentet fra en testdb, der viser forskellige muligheder. Læg din e-mail hvis du vil have den.

Ved at bruge søgestrengen create table i ekspertens vidensbank får du 105 muligheder.

Hejs mugs, jeg har søgt og læst næsten alt..
men kan ikke rigtig finde det jeg søger.

mailen er ranox[sa]mailme.dk tror godt at du kan gætte hvad [sa] skal være ;-)

vil så lige kigge på det og vendet tilbage om det er noget jeg kan bruge...

Guro.Not

Hejsa mugs...

Det du har sendt mig fortæller mig ikke hvordan jeg skal strikke min sql string sammen, men hvordan man gør det med dao og ado...

Guro.Not

Nu skrev du jo ikke det skulle være i SQL. Men et eksempel i SQL er sendt.

hejsa igen mugs..
Jeg skrev...
/klip
Hvordan skal min Create Table string se ud for at få oprettet tabellen med det specifikationer..
/klip
Der står altså Create Table string.

Guro.Not

mugs, dit eksempel er heller ikke i SQL men i vb..

Guro.Not

Mit eksempel er en SQL-sætning i en VBA procedüre med en DoCmd.RunSQL. Nyt eksempel sendt som en datadefinitionsforespørgsel.

Det er dårlig skik hele tiden at afvise mine svar, før spørgsmålet er besvaret.

det må du så undskylde, og det lader jeg da være med, gjore det ikke for at være på tværs..

Mener nu stadig ikke at det er sql, vil tro at det er dao eller adox. men er ikke sikker på sidste nævnte, men en sql string er det ikke.

guro.not

Når du benuytter kommandoen DoCmd.RunSql, så afvikler du en SQL-sætning i en VBA-procedüre.

Når du indsætter en SQL-sætning i en forespørgsel, så Er det SQL:
CREATE TABLE tabelnavn (ID AUTOINCREMENT CONSTRAINT C1 PRIMARY KEY, DOKUMENTID LONG, ORD TEXT, ANTAL INTEGER);

det er måske en ide, at du nærmere forklarer hvad du vil :o)

Hej igen mugs...

har lige set de mails du har sendt..

Min sql string, kan oxo godt oprette en tabel med felter, men
jeg kan ikke finde ud af at indsætte en default værdi...

Det som min string skal kunne lave er en tabel som jeg deffinere i starten.

feks vil jeg have Fld2 til at have disse proppeties, eller hvad det nu hedder
Data Type: Date/Time
Format : Short Time
Default Value: #00:00:00#
Required: No
Indexed: No
----------------------------------------
CREATE TABLE Name1
(
Fld1 VARCHAR(255) NOT NULL,
Fld2 DATE,
Fld3 NUMBER,
Fld4 VARCHAR(1) NOT NULL,
CONSTRAINT PK_Name1 PRIMARY KEY (Fld1)
);

men det er ligesom om ikke nok, vil gerne kunne bruge en create table til alle indstillinger... men det kan man nok ikke....

Håber at det er lidt bedre forklaret...
Guro.not

Prøv at se dette linkj:

http://www.eksperten.dk/spm/347069

hey mugs...

det var jo lige det der skulle til....

Guro.Not

Tak for point :o)

mugs det er mig der takker.. jeg fik den hjælp jeg skulle bruge...
Guro.Not